showforum.asp

一个叫做雪人的论坛源码

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'	Snowman Forum v2.0
'
'	Copyright(C) Snowman, All rights reserved.
'
'	http://www.xinboard.net
'
'	Access版本免费, 欲使用SQL Server商业版本请购买使用权
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

showdays = request.cookies("sf")("showdays")
showorder = request.cookies("sf")("showorder")
if request("updateviewselect") = "true" then
	response.cookies("sf")("showdays") = request("showdays")
	showdays = request.form("showdays")
	response.cookies("sf")("showorder") = request("order")
	showorder = request.form("order")
end if
%>
<!--#INCLUDE FILE="inc/db_inc.asp"-->
<!--#INCLUDE FILE="inc/char_inc.asp"-->
<!--#INCLUDE FILE="header.asp"-->
<%
dim StrSql, rs, rs2, toptext, StrHtml, StrHtml2, StrHtml3, err

''''''''''''''''''''''''
' check 'forumid'
''''''''''''''''
forumid = ChkSql(request("forumid"))
err = false
if not IsNumeric(forumid) then
	error = error & "<br><li>" & loadtemplate("err_forumnotexist")
else
	StrSql = "select sf_forum.forumid, sf_forum.title, sf_forum.allowposting, sf_forum.caneditpost, sf_forum.canpostpoll, sf_forum.allowbbcode, sf_forum.allowimages, sf_forum.allowuploadfile, sf_forum.canreply, sf_forum.daysprune, sf_forum.onlyuser, sf_forum.onlymember, sf_forum.memberlist, sf_forum.cateid, sf_cate.catetitle from sf_forum left join sf_cate on sf_forum.cateid = sf_cate.cateid where forumid = " & forumid
	Set rs2 = Conn.Execute(StrSql)
	if rs2.bof or rs2.eof then
		error = error & "<br><li>" & loadtemplate("err_forumnotexist")
	else
		forumtitle = rs2("title")
		cateid = rs2("cateid")
		catetitle = rs2("catetitle")
		allowpost = rs2("allowposting")
		daysprune = rs2("daysprune")
		onlyuser = rs2("onlyuser")
		onlymember = rs2("onlymember")
		memberlist = rs2("memberlist")
		Strforuminfo = loadtemplate("foruminfo")
		
		if rs2("allowposting") = 1 then
			Strforuminfo = Replace(Strforuminfo, "{allowpost}", "Yes")
		else
			Strforuminfo = Replace(Strforuminfo, "{allowpost}", "No")
		end if
		if rs2("canreply") = 1 then
			Strforuminfo = Replace(Strforuminfo, "{allowreply}", "Yes")
		else
			Strforuminfo = Replace(Strforuminfo, "{allowreply}", "No")
		end if
		if rs2("caneditpost") = 1 then
			Strforuminfo = Replace(Strforuminfo, "{allowedit}", "Yes")
		else
			Strforuminfo = Replace(Strforuminfo, "{allowedit}", "No")
		end if
		if rs2("canpostpoll") = 1 then
			Strforuminfo = Replace(Strforuminfo, "{allowvote}", "Yes")
		else
			Strforuminfo = Replace(Strforuminfo, "{allowvote}", "No")
		end if
		if rs2("allowbbcode") = 1 then
			Strforuminfo = Replace(Strforuminfo, "{allowxbcode}", "Yes")
		else
			Strforuminfo = Replace(Strforuminfo, "{allowxbcode}", "No")
		end if
		if rs2("allowimages") = 1 then
			Strforuminfo = Replace(Strforuminfo, "{allowimages}", "Yes")
		else
			Strforuminfo = Replace(Strforuminfo, "{allowimages}", "No")
		end if
		if rs2("allowuploadfile") = 1 then
			Strforuminfo = Replace(Strforuminfo, "{allowupload}", "Yes")
		else
			Strforuminfo = Replace(Strforuminfo, "{allowupload}", "No")
		end if

		if request.cookies("sf")("username") = "" or request.cookies("sf")("password") = "" then
			if onlyuser = 1 then error = error & "<br><li>" & loadtemplate("err_unregistered")
		else
			StrSql = "select password, userid from sf_user where username = '" & ChkSql(request.cookies("sf")("username")) & "'"
			Set rs2 = Conn.Execute(StrSql)
			err = false
			if rs2.bof or rs2.eof then
				err = true
			else
				if request.cookies("sf")("password") <> rs2("password") then
					err = true
				else
					userid = rs2("userid")
					StrSql = "update sf_user set lastforum = " & forumid & ", lastactivity = '" & now() & "' where userid = " & userid
					Conn.Execute(StrSql)
				end if
			end if
			if err then error = error & "<br><li>" & loadtemplate("err_chkpassword")
		end if
		if onlymember = 1 then
			if not IsMember(forumid, memberlist) then error = error & "<br><li>" & loadtemplate("err_member")
			StrSql = "select password, userid from sf_user where username = '" & ChkSql(request.cookies("sf")("username")) & "'"
			Set rs2 = Conn.Execute(StrSql)
			if rs2.bof or rs2.eof then
				error = error & "<br><li>" & loadtemplate("err_chkpassword")
			else
				if request.cookies("sf")("password") <> rs2("password") then error = error & loadtemplate("err_chkpassword")
			end if
		end if
	end if
end if

if request.cookies("sf")("username") = "" then
	toptext = loadtemplate("toptextguest")
else
	toptext = loadtemplate("toptextuser")
end if
toptext = toptext & loadtemplate("toptext")


StrHtml = loadtemplate("htmltop")
StrHtml = Replace(StrHtml, "{pagetitle}", forumtitle)
StrHtml = Replace(StrHtml, "{style_path}", loadtemplate("path"))
StrHtml = Replace(StrHtml, "{forumtitle}", boardtitle)
response.write StrHtml
''''''''''''''''''''''''''
'display pm window
''''''''''''''''''
response.write pmpopwin
StrHtml = loadtemplate("pagetitle")
StrHtml = Replace(StrHtml, "{title_img}", "<img src=""style/" & loadtemplate("path") & "/image/title.gif"">")
StrHtml = Replace(StrHtml, "{top_text}", toptext)
StrHtml = Replace(StrHtml, "{username}", request.cookies("sf")("username"))
response.write StrHtml

if error <> "" then
	StrHtml = loadtemplate("error")
	StrHtml = Replace(StrHtml, "{error_text}", error)
	response.write StrHtml
	response.end
end if

''''''''''''''''''''''''
'display path
'''''''''''''
StrHtml = loadtemplate("pagepath")
StrHtml = Replace(StrHtml, "{path_text}", "<img src=""style/" & loadtemplate("path") & "/image/home.gif""><a href=index.asp>" & boardtitle & "</a> &raquo; <a href=""showcate.asp?cateid=" & cateid & """>" & catetitle & "</a> &raquo; " & forumtitle)
response.write StrHtml


Set rs2 = server.CreateObject("ADODB.RecordSet")
StrSql = "select userid, username from sf_moderator where forumid = " & forumid
rs2.Open StrSql, Conn, 1, 1
StrHtml2 = ""
if not (rs2.bof or rs2.eof) then
	modercount = rs2.RecordCount
	for i = 1 to modercount
		StrHtml2 = StrHtml2 & "<a href=""showuser.asp?userid=" & rs2("userid") & """>" & rs2("username") & "</a>&nbsp; "
		rs2.MoveNext
	next
else
	StrHtml2 = loadtemplate("hint_nomoder")
end if
rs2.close

StrHtml = loadtemplate("forumtop")
if allowpost <> 0 then
	StrHtml = Replace(StrHtml, "{btn_text}", "<a href=""newthread.asp?forumid=" & forumid & """><img src=""style/" & loadtemplate("path") & "/image/newthread.gif""  border=""0"" alt=""" & loadtemplate("newthreadtitle") & """></a>" & "&nbsp; " & "<a href=""newvote.asp?forumid=" & forumid & """><img src=""style/" & loadtemplate("path") & "/image/newvote.gif""  border=""0"" alt=""" & loadtemplate("newvotetitle") & """></a>")
else
	StrHtml = Replace(StrHtml, "{btn_text}", "")
end if
StrHtml = Replace(StrHtml, "{moder_list}", StrHtml2)
response.write StrHtml

''''''''''''''''''''''''''
'announcement
'''''''''''''
StrHtml = loadtemplate("forumann")
StrSql = "select top 1 * from sf_announcement where startdate < #" & now() & "# and enddate > #" & now() & "# and (forumid = " & forumid & " or forumid = -1) order by announcementid DESC"
Set rs2 = Conn.Execute(StrSql)
if not (rs2.bof or rs2.eof) then
	'do until rs2.eof
		StrHtml2 = StrHtml
		StrHtml2 = Replace(StrHtml2, "{ann_title}", loadtemplate("hint_threadanntext") & "<a href=""showannouncement.asp"">" & rs2("title") & "</a>")
		StrHtml2 = Replace(StrHtml2, "{newwin}", "<a href=""showannouncement.asp"" target=_blank><img src=""style/" & loadtemplate("path") & "/image/newwin.gif"" border=""0""></a>")
		StrHtml2 = Replace(StrHtml2, "{ann_user}", "<a href=""showuser.asp?userid=" & rs2("userid") & """>" & rs2("username") & "</a>")
		StrHtml2 = Replace(StrHtml2, "{ann_icon}", "<img src=""style/" & loadtemplate("path") & "/threadicon/ann.gif"">")
		response.write StrHtml2
		'rs2.MoveNext
	'loop
end if

' get 'page'
page = request("page")
if page = "" then
	page = 1
else
	if not IsNumeric(page) then
		page = 1
	else
		page = clng(page)
	end if
end if


'''''''''''''''''''''''
'get showdays
'''''''''''''
rs2.Close
showdays = ChkSql(showdays)
showorder = ChkSql(showorder)
if showdays = "" then
	showdays = defshowdays
	if daysprune <> 0 then showdays = daysprune
else
	if not IsNumeric(showdays) then
		showdays = defshowdays
		if daysprune <> 0 then showdays = daysprune
	end if
end if
if showorder = "" then
	showorder = 0
else
	if not IsNumeric(showorder) then
		showorder = 0
	else
		showorder = clng(showorder)
	end if