<!--#include file="Inc/syscode_photo.asp"-->



<%
if CheckUserLogined()=False then
	response.Redirect "User_Login.asp"
end if
dim ComeUrl
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
const ChannelID=3
Const ShowRunTime="Yes"
SkinID=0
MaxPerPage=12
dim UserID
UserID=trim(request("UserID"))
if UserID="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>请指定UserID</li>"
	call WriteErrMsg()
	response.end
else
	UserID=Clng(UserID)
end if
strFileName="UserInfo.asp?UserID=" & UserID
sql="select * from " & db_User_Table & " where " & db_User_ID & "=" & UserID
set rs=server.createobject("adodb.recordset")
rs.open sql,Conn_User,1,1
if rs.bof and rs.eof then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>找不到指定的用户<li>"
else
	UserName=rs(db_User_Name)
	PageTitle="用户信息：" & UserName
dim CommentID
CommentID=trim(request("CommentID"))

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=strPageTitle%><%=PageTitle%></title>
<link href="new/css.CSS" rel="stylesheet" type="text/css">

</head>

<body bgcolor="f2f2f2" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr
sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.ParentPath From PhotoClass C inner join Layout L on C.LayoutID=L.LayoutID "
if ClassID<>0 then
	sqlRoot = sqlRoot & " where C.ParentID=" & ClassID & " or C.ParentPath like '%" & ParentPath & "," & ClassID & "%' "
else
	sqlRoot = sqlRoot & " where 1 "
end if
sqlRoot = sqlRoot & " and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID"
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1	
arrClassID=ClassID
do while not rsRoot.eof
	arrClassID=arrClassID & "," & rsRoot(0)
	rsRoot.movenext
loop
rsRoot.close
set rsRoot=nothing
%>
<%
	dim ReplyName,ReplyContent,ReplyTime
	CommentID=trim(Request("CommentID"))
	ReplyContent=trim(request("ReplyContent"))
	if CommentID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定ID</li>"
		
	else
		CommentID=Clng(CommentID)
	
	conn.execute "delete from usercomment where CommentID=" & CommentID & " "
	response.Redirect ComeUrl 
    end if
%>

</body>
</html>

<%
end if
rs.close
set rs=nothing
call CloseConn()
%>

