adminhuifu.asp

软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,超强大会员自定义编辑功能

<!--#include file="post.asp"-->
<!--#include file="ubbcode.asp"-->
<%DoWhat="留言查阅"
	Dim submainid,iserr
	submainid=request.querystring("id")
	iserr=False
if submainid="" or (not isnumeric(submainid)) then
		iserr=True
		WhatErr="<LI>留言ID参数无效，请从合法链接进入！；</LI>"
else	
    SqlData="select top 1 * from Data where id="&Cint(submainid)&" and SubMainNumber=0 order by id"
    Rs.open SqlData,conn,1,3
		if Rs.eof and Rs.bof then
			iserr=True
			WhatErr="<LI>你查看的留言不存在或已经被删除；</LI>"
	  else
	  	Rs("counter")=Rs("counter")+1
	  	Rs.update
			Dim istop,submain,name,sex,face,email,homeurl,ip,writetime,ly,counter,flower,egg			
			istop=Rs("istop")
			submain=ChkBadWords(Rs("submain"))
			name=Rs("name")
			sex=Rs("sex")
			email=Rs("email")
			homeurl=Rs("homeurl")
			face=Rs("face")
			ly=Rs("ly")
			ip=Rs("ip")
			writetime=Rs("writetime")
			counter=Rs("counter")
			flower=Rs("flower")
			egg=Rs("egg")
			Rs.close
		end if		
end if

Sub DisMainBody()	'主体函数%>
<table width="780" border="1" cellspacing="0" cellpadding="3" align="center" bordercolor="#FFFFFF">
<tr><td width="100%" colspan=2 align=center><table width="100%" cellspacing="0" cellpadding="0">
<tr><td width="30%"><a href="go.asp?id=<%=submainid%>"><img src="images/prethread.gif" border=0></a> <a href="javascript:location.reload()" target=_self><img src="images/refresh.gif" border=0></a> 
<a href="go.asp?action=next&id=<%=submainid%>"><img src="images/nextthread.gif" border=0></a>
<td width="40%" align=center>您是这条留言的第 <B><%=counter%></B> 位阅读者</td>
<td width="30%" align=right><a href="default.asp"><img src="images/home.gif" border=0 alt="返回首页"></a> 
<a href="upfile.asp"><img src="images/newpage.gif" border=0 alt="签写留言"></a>
<%call islogin()	'管理链接%>
</td></tr></table>
<tr><td height=15 bgcolor="#DEE5EF" colspan=2> <img src="images/folder_old.gif" border=0> <B>留言主题：<%=submain%></B></td></tr>
	<tr bordercolor="#DEE5EF"><td width="22%" height=30 bgcolor="#DEE5EF" valign="top">
		<table width="100%"><tr><td colspan=2 align=right>
   		<img src="images/<%if sex then response.write "Male.gif"" border=0 alt=""帅哥哟"">" else response.write "Female.gif"" border=0 alt=""美女哦"">"%> 
 </td></tr><tr><td width="30%">作 者：</td><td widht="70%" style="filter:shadow(color=#8F8FE0, strength=2)"><B><font color=#800000><%=name%></font></B></td></tr>
<tr><td>性 别：</td><td><%if sex then response.write "男" else response.write "女"%>
</td></tr><tr><td width="100%" colspan=2 align=center><a href="edit.asp?action=flower&id=<%=submainid%>" title="同意该观点，送给作者一朵鲜花"><img src="images/xianhua.gif" border=0>鲜花(<%=flower%>)</a>
 &nbsp; <a href="edit.asp?action=egg&id=<%=submainid%>" title="不同意该观点，给作者一个鸡蛋"><img src="images/jidan.gif" border=0>鸡蛋(<%=egg%>)</a></td></tr></table>
    <td width="78%" colspan=2 bgcolor="#FFFFFF">
    	<TABLE width="98%" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td width="12%">
		    <%if email>"" then 
		    	response.write "<a href=""mailto:" & email & """><img src=""images/email.gif"" border=0 alt=""我的电邮""></a>"
		    else
		    	response.write "<img src=""images/email.gif"" border=0 alt=""没有邮箱"">"
		    end if
		    	response.write "</td> <td width=""12%"">"
		    if homeurl>"" then 
		    	response.write "<a href=""" & homeurl & """ target=_blank><img src=""images/homepage.gif"" border=0 alt=""我的主页""></a>"
		    else
		    	response.write "<img src=""images/homepage.gif"" border=0 alt=""没有主页"">"
		    end if
		    	response.write "</td> <td width=""12%""><a href=""post.asp?id=" & submainid & "&quotid=" & submainid & "&name=" & name & "&writetime=" & writetime & """><img src=""images/quot.gif"" border=0 alt=""引用内容""></td>"&_
		    	"<td width=""12%""><a href=""post.asp?id=" & submainid & "&replyid=" & submainid & "&contentmain=" & submain & "&name=" & name & """><img src=""images/reply.gif"" border=0 alt=""回复留言""></td>"
		    %><td width="52%" align=right><B>楼	主</B></td></tr><tr><td colspan=5><HR color="#DEE5EF"></td></tr>
		  	<tr><td colspan=5><img src="face/face<%=face%>.gif" border=0><%=" <B>" & submain & "</B> <br> <br> " & UBBCode(ly)%></td></tr>
	    </TABLE>
    </td>
  </tr>
  <tr><td bgcolor="#FFFFFF"><img src="images/ip.gif" alt="IP：<%=ip & """> " & writetime & "</td><td align=right>"%>
		<%if istop=1 then 
				response.write "<a href=""edit.asp?action=isbottom&id=" & submainid & """><img src=""images/notop.gif"" border=0></a>" 
			else
				response.write "<a href=""edit.asp?action=istop&id=" & submainid & """><img src=""images/istop.gif"" border=0></a>"
			end if%>
		<a href="edit.asp?action=edit&id=<%=submainid%>"><img src="images/edit.gif" border=0></a> <a href="edit.asp?action=del&id=<%=submainid%>"><img src="images/del.gif" border=0 onclick="{if(confirm('确认删除该留言？')){return true;}return false;}"></a></td></tr>
<%
	SqlData="select * from Data where SubMainNumber=" & Cint(submainid)
	Rs.open SqlData,conn,1,1
if Not Rs.eof and Not Rs.bof then
		dim resubmain,i
		i=0
		do while not Rs.eof
		i=i+1
		resubmain=Rs("submain")		
		if resubmain="" then resubmain="回复："&submaiin else resubmain=ChkBadWords(resubmain)
%>
<tr bordercolor="#DEE5EF">
 <td width="22%" height=30 bgcolor="#DEE5EF" valign="top"><table width="100%"><tr><td colspan=2 align=right>
   <img src="images/<%if Rs("sex") then response.write "Male.gif"" border=0 alt=""帅哥哟"">" else response.write "Female.gif"" border=0 alt=""美女哦"">"%> 
 </td></tr><tr><td width="30%">作 者：</td><td widht="70%" style="filter:shadow(color=#8F8FE0, strength=2)"><B><font color=#800000><%=Rs("name")%></font></B></td></tr>
<tr><td>性 别：</td><td><%if Rs("sex") then response.write "男" else response.write "女"%>
</td></tr><tr><td width="100%" colspan=2 align=center><a href="edit.asp?action=flower&id=<%=Rs("id")%>" title="同意该观点，送给作者一朵鲜花"><img src="images/xianhua.gif" border=0>鲜花(<%=Rs("flower")%>)</a>
 &nbsp; <a href="edit.asp?action=egg&id=<%=Rs("id")%>" title="不同意该观点，给作者一个鸡蛋"><img src="images/jidan.gif" border=0>鸡蛋(<%=Rs("egg")%>)</a></td></tr></table></td>
    <td width="78%" colspan=2 bgcolor="#FFFFFF">
	    <TABLE width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
		    <tr><td width="12%"><%if Rs("email")>"" then 
		    	response.write "<a href=""mailto:" & Rs("email") & """><img src=""images/email.gif"" border=0 alt=""我的电邮""></a>"
		    else
		    	response.write "<img src=""images/email.gif"" border=0 alt=""没有邮箱"">"
		    end if
		    response.write "</td> <td width=""12%"">"
			  if Rs("homeurl")>"" then 
		    	response.write "<a href=""" & Rs("homeurl") & """ target=_blank><img src=""images/homepage.gif"" border=0 alt=""我的主页""></a>"
		    else
		    	response.write "<img src=""images/homepage.gif"" border=0 alt=""没有主页"">"
		    end if
		    	response.write "</td> <td width=""12%""><a href=""post.asp?id=" & submainid & "&quotid=" & Rs("id") & "&name=" & Rs("name") & "&writetime=" & Rs("writetime") & """><img src=""images/quot.gif"" border=0 alt=""引用内容""></td>"&_
		    	"<td width=""12%""><a href=""post.asp?id=" & submainid & "&replyid=" & Rs("id") & "&contentmain=" & resubmain & "&name=" & Rs("name") & """><img src=""images/reply.gif"" border=0 alt=""回复留言""></td>"
		    %><td width="52%" align=right><B>第 <font color=#C00000><%=i%></font> 楼</B></td></tr><tr><td colspan=5><HR color="#DEE5EF"></td></tr>
		  	<tr><td colspan=5><img src="face/face<%=Rs("face")%>.gif" border=0><%=" <B>" & resubmain & "</B> <br> <br> " & UBBCode(Rs("ly"))%></td></tr>
	    </TABLE>
    </td>
  </tr>
  <tr><td bgcolor="#FFFFFF"><img src="images/ip.gif" alt="IP：<%=Rs("ip") & """> " & Rs("writetime") & "</td>"%>
		<td align=right><a href="edit.asp?action=edit&id=<%=Rs("id")%>"><img src="images/edit.gif" border=0></a> <a href="edit.asp?action=del&id=<%=Rs("id")%>"><img src="images/del.gif" border=0 onclick="{if(confirm('确认删除该留言？')){return true;}return false;}"></a></td></tr>
<%Rs.movenext
	loop
end if
	Rs.close
	set Rs=nothing
	conn.close
	set conn=nothing
	response.write "</table>"
SavePostSubMain="回复：" & submain
call post()		'调用发帖函数
End Sub

call HeadHtml()		'网页头函数
If iserr Then call FounderErr() Else call DisMainBody() 		'调用主体函数或信息函数
call FootHtml()	'网页尾函数
%>