seedeltop.asp

一个asp写的论坛源代码,论坛所需要的功能都有

<!-- #include file="conn.asp" -->
<!-- #include file="INC/Const.asp" -->
<%
Dim tID,Rs,i
tID = HRF(2,2,"tid")
team.Headers(Team.Club_Class(1) & "- 查看回收箱的帖子内容")
Set Rs = team.execute("Select ID,Topic,Content,posttime,UserName From ["&IsForum&"forum] Where deltopic=1 and ID=" & tID)
If RS.eof And Rs.bof Then
	team.Error "系统不存在此帖子。"
Else
	Echo "<table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=""center"" class=""a2""><tr class=""tab1""><td align=""left"">主题："&Rs(1)&" </td><td  align=""left"">Name: "&Rs(4)&" / Time: "&Rs(3)&"</td></tr><tr class=""a4""><td height=""50"" colspan=""2"">"
	Echo Ubb_Code(Rs(2))
	Echo "</td></tr></table><br />"
End If
Rs.Close :Set Rs = Nothing 
Set Rs = team.execute("Select Username,Content,posttime,ReTopic From  ["&IsForum & team.Club_Class(11) &"] Where topicid=" & tID)
Do While Not Rs.Eof
	Echo "<table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=""center"" class=""a2""><tr class=""tab1""><td  align=""left"">回复主题："&Rs(8)&" </td><td  align=""left"">Name: "&Rs(5)&" / Time: "&Rs(7)&"</td></tr><tr class=""a4""><td height=""50"" colspan=""2"">"
	Echo Ubb_Code(Rs(6))
	Echo "</td></tr></table><br />"
	Rs.MoveNext
Loop
Rs.Close :Set Rs = Nothing 
team.footer
%>