salon.asp

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

<!-- #include file="conn.asp" -->
<!-- #include file="INC/Const.asp" -->
<%
	Dim UserName,fID,x1,x2,tmp,SQL,i,USign
	Dim IsPage,Page,RS,mRs,Maxpage,PageNum,mmp
	UserName = HRF(2,1,"username")
	team.Headers(Team.Club_Class(1) & " - " & UserName & "的个人文集")
	IsPage = team.execute("Select Count(ID) From ["&IsForum&"Forum] Where Creatdiary = 1 and UserName='"&UserName&"'")(0)
	SQL="Select ID,Topic,UserName,Views,Replies,Posttime,Icon,Content From ["&IsForum&"Forum] Where Creatdiary = 1 and UserName='"&UserName&"' Order By PostTime Desc"
	Set Rs = Server.CreateObject ("Adodb.RecordSet")
	If Not IsObject(Conn) Then ConnectionDatabase
	Rs.Open Sql,Conn,1,1,&H0001
	If Not (Rs.Eof and Rs.Bof) Then 
		SqlQueryNum=SqlQueryNum+1
		Maxpage = 20								'每页分页数
		PageNum = Abs(int(-Abs(IsPage/Maxpage)))	'页数
		Page = CheckNum(Request.QueryString("page"),1,1,1,PageNum)	'当前页
		Rs.AbsolutePosition=(Page-1)*Maxpage+1
		mRs=Rs.GetRows(Maxpage)
	End if
	RS.Close:Set Rs=Nothing
	Set Rs = team.execute("Select Sign From ["&IsForum&"User] Where UserName='"&UserName&"'")
	If Rs.Eof And Rs.bof Then
		team.Error "系统不存在此用户的个人文集。"
	Else
		USign = Rs(0)
	End If 
	Rs.close:Set Rs=Nothing 
	x1 = "<a href=""Salon.asp?username="&UserName&"""> 查看 " & UserName & " 的个人文集 </a>"
	tmp = Replace(Team.UserHtml (3),"{$username}",UserName)
	tmp = Replace(tmp,"{$weburl}",team.MenuTitle)
	tmp = Replace(tmp,"{$myinfos}","<tr class=""a4""><td> <H3>"& Sign_Code(USign,1) &"</H3> </td></tr>")
	If Not Isarray(mRs) Then
		tmp=Replace(tmp,"{$showlives}","<tr class=""tab3""><td> <h4> 此用户暂无撰写文集 。</h4> </td></tr>")
	Else
		For i=0 To Ubound(mRs,2)
			mmp = mmp & "<tr class=""popupmenu_option"">"
			mmp = mmp & " <td> <a href=""Thread.asp?tid="&mRS(0,i)&""" target=""_blank""><B>"& mRS(1,i) &"</B></a><br> [ 时间："&mRS(5,i)&" | 查看："&mRS(3,i)&" | 评论："&mRS(4,i)&""
			If Cid(mRs(6,i))>0 Then mmp = mmp & " | <img src=""images/brow/icon"&mRs(6,i)&".gif"" align=""absmiddle"">"
			mmp = mmp & " ] </td></tr>"
			mmp = mmp & " <tr class=""a4""><td height=""50"" valign=""top""> "& Cutstr(UBB_Code(mRS(7,i)),200)&" </td>"
			mmp = mmp & "</tr>"
		Next
		tmp=Replace(tmp,"{$showlives}",mmp)
	End if
	tmp = Replace(tmp,"{$TotalPage}",IsPage)
	tmp = Replace(tmp,"{$allpage}",PageNum)	
	Echo tmp
team.footer
%>