newannouncement.asp

很好的一个论坛原代码

<!--#INCLUDE FILE="inc/db_inc.asp"-->
<!--#INCLUDE FILE="inc/md5_inc.asp"-->
<!--#INCLUDE FILE="inc/char_inc.asp"-->
<!--#INCLUDE FILE="inc/xbcode_inc.asp"-->
<!--#INCLUDE FILE="header.asp"-->
<%
dim ip, strip, killip
dim StrSql, toptext, rs, rs2, StrHtml, StrHtml2, error, sex, avatar, err, userid, threadid, threadtitle, postid, posttitle

StrHtml = loadtemplate("htmltop")
StrHtml = Replace(StrHtml, "{pagetitle}", loadtemplate("newannouncementtitle"))
StrHtml = Replace(StrHtml, "{forumtitle}", boardtitle)
response.write StrHtml
' 短消息提示
response.write pmpopwin
StrHtml = loadtemplate("pagetitle")
if request.cookies("sf")("username") = "" then
	toptext = loadtemplate("toptextguest")
else
	toptext = loadtemplate("toptextuser")
end if
toptext = toptext & loadtemplate("toptext")
StrHtml = Replace(StrHtml, "{top_text}", toptext)
StrHtml = Replace(StrHtml, "{username}", request.cookies("sf")("username"))
response.write StrHtml

' 论坛关闭
StrSql = "select * from sf_setup"
Set rs2 = Conn.Execute(StrSql)
if rs2("forumclose") = 1 then
StrHtml = loadtemplate("error")
StrHtml = Replace(StrHtml, "{error_text}", rs2("forumclosehint"))
response.write StrHtml
response.end
end if	

' 禁止IP访问
if rs2("killip") = 1 then
	userip = cstr(request.ServerVariables("REMOTE_ADDR"))
	killiplist = rs2("killiplist")
	if killiplist <> "" and userip <> "" then
		killip = split(killiplist, "|")
		struserip = split(userip, ".")
		i = 0
		do until i > ubound(killip)
			strkillip = split(killip(i), ".")
			bolkill = true
			if (struserip(0) <> strkillip(0)) and (strkillip(0) <> "*") then bolkill = false
			if (struserip(1) <> strkillip(1)) and (strkillip(1) <> "*") then bolkill = false
			if (struserip(2) <> strkillip(2)) and (strkillip(2) <> "*") then bolkill = false
			if (struserip(3) <> strkillip(3)) and (strkillip(3) <> "*") then bolkill = false
			if bolkill then
				StrHtml = loadtemplate("error")
				StrHtml = Replace(StrHtml, "{error_text}", rs2("killiphint"))
				response.write StrHtml
				Response.End
			end if
			i = i + 1
		loop
	end if
end if

StrHtml = loadtemplate("pagepath")
StrHtml = Replace(StrHtml, "{path_text}", "<a href=""index.asp"">" & boardtitle & "</a> &raquo; " & loadtemplate("newannouncementtitle"))
response.write StrHtml

error = ""
' 如果未注册或未登录...
if request.cookies("sf")("username") = "" or request.cookies("sf")("password") = "" then
	StrHtml = loadtemplate("error")
	StrHtml = Replace(StrHtml, "{error_text}", loadtemplate("err_unregistered"))
	response.write StrHtml
	response.end		
end if

' 检测密码...
error = ""
userinfo = 0
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 = loadtemplate("err_chkpassword")
else
	if request.cookies("sf")("password") <> rs2("password") then
		error = loadtemplate("err_chkpassword")
	else
		userid = rs2("userid")
		StrSql = "select * from sf_moderator where userid = " & rs2("userid") & " and isadmin = 1"
		Set rs2 = Conn.Execute(StrSql)
		'如果是管理员userinfo=3
		if rs2.bof or rs2.eof then
			error = loadtemplate("err_purview")
		else
			userinfo = 3
		end if
	end if
end if
if error <> "" or userinfo <> 3 then
	StrHtml = loadtemplate("error")
	StrHtml = Replace(StrHtml, "{error_text}", error)
	response.write StrHtml
	response.end
end if
%>
<!--#INCLUDE FILE="inc/btn.js"-->
<%
step = ChkSql(request("step"))
select case step
	case "2"
		error = ""
		if request("subject") = "" then
			error = error & "<br><li>" & loadtemplate("err_postsubject")
		else
			if strLength(request("subject")) > 100 then error = error & "<br><li>" & loadtemplate("err_postsubject")
		end if
		StrHtml = loadtemplate("err_posttext")
		StrHtml = Replace(StrHtml, "{textmaxlength}", postmaxlength)
		if request("text") = "" then
			error = error & "<br><li>" & StrHtml
		else
			if strLength(request("text")) > postmaxlength then error = error & "<br><li>" & StrHtml
		end if
		if (request("sy") = "") or (request("sm") = "") or (request("sd") = "") or (request("ey") = "") or (request("em") = "") or (request("ed") = "") then
		error = error & "<br><li>" & loadtemplate("err_announcementdate")
		else
			if (not IsNumeric(request("sy"))) or (not IsNumeric(request("sm"))) or (not IsNumeric(request("sd"))) or (not IsNumeric(request("ey"))) or (not IsNumeric(request("em"))) or (not IsNumeric(request("ed"))) then error = error  & "<br><li>" & loadtemplate("err_announcementdate")
		end if
		if error <> "" then
			StrHtml = loadtemplate("error")
			StrHtml = Replace(StrHtml, "{error_text}", error)
			response.write StrHtml
			response.end
		end if
		' 保存
		forumid = request("forumid")
		startdate = request("sy") & "-" & request("sm") & "-" & request("sd")
		enddate = request("ey") & "-" & request("em") & "-" & request("ed")
		StrSql = "insert into sf_announcement(username, userid, title, forumid, startdate, enddate, pagetext) values("
		StrSql = StrSql & "'" & ChkSql(request.cookies("sf")("username")) & "', " & userid & ", '" & ChkSql(request("subject")) & "', " & forumid & ", '" & startdate & "', '" & enddate & "', '"& ChkSql(request("text")) & "')"
		Conn.Execute(StrSql)
		StrHtml = loadtemplate("hint")
		StrHtml = Replace(StrHtml, "{hint_text}", loadtemplate("hint_announcement"))
		StrHtml = Replace(StrHtml, "{pro_name}", "showannouncement.asp")
		response.write StrHtml
	case else

		StrHtml = loadtemplate("newannouncement")
		StrHtml2 = ""
		StrHtml2 = StrHtml2 & "<img onClick=btn_b() src=""image/postbtn/b.gif"" alt=""Bold"" align=""absbottom"">" & chr(10)
		StrHtml2 = StrHtml2 & "<img onClick=btn_u() src=""image/postbtn/u.gif"" alt=""Underline"" align=""absbottom"">" & chr(10)
		StrHtml2 = StrHtml2 & "<img onClick=btn_i() src=""image/postbtn/i.gif"" alt=""Italic"" align=""absbottom"">" & chr(10)
		StrHtml2 = StrHtml2 & "<img onClick=btn_url() src=""image/postbtn/url.gif"" alt=""Url"" align=""absbottom"">" & chr(10)
		StrHtml2 = StrHtml2 & "<img onClick=btn_code() src=""image/postbtn/code.gif"" alt=""Code"" align=""absbottom"">" & chr(10)
		StrHtml2 = StrHtml2 & "<img onClick=btn_img() src=""image/postbtn/img.gif"" alt=""Image"" align=""absbottom"">" & chr(10)
		StrHtml2 = StrHtml2 & "<img onClick=btn_swf() src=""image/postbtn/swf.gif"" alt=""Flash"" align=""absbottom"">" & chr(10)
		StrHtml2 = StrHtml2 & "<img onClick=btn_mp() src=""image/postbtn/mp.gif"" alt=""WindowsMediaPlayer"" align=""absbottom"">" & chr(10)
		StrHtml2 = StrHtml2 & "<img onClick=btn_rm() src=""image/postbtn/rm.gif"" alt=""RealPlayer"" align=""absbottom"">" & chr(10)
		StrHtml2 = StrHtml2 & "<img onClick=btn_q() src=""image/postbtn/quote.gif""  alt=""Quote"" align=""absbottom"">" & chr(10)
		StrHtml2 = StrHtml2 & "<select onchange=""if(this.options[this.selectedIndex].value!=''){showcolor(this.options[this.selectedIndex].value);this.options[0].selected=true;}else {this.selectedIndex=0;}"" name=color>" & chr(10)
		StrHtml2 = StrHtml2 & "<option style=""background-color:#000000;color:#000000"" value=""#000000"">#000000</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option style=""background-color:#FF0000;color:#FF0000"" value=""#FF0000"">#FF0000</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option style=""background-color:#0000FF;color:#0000FF"" value=""#0000FF"">#0000FF</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option style=""background-color:#336699;color:#336699"" value=""#336699"">#336699</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option style=""background-color:#339900;color:#339900"" value=""#339900"">#339900</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option style=""background-color:#CC6600;color:#CC6600"" value=""#CC6600"">#339900</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option style=""background-color:#663399;color:#663399"" value=""#663399"">#663399</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option style=""background-color:#3399CC;color:#3399CC"" value=""#3399CC"">#3399CC</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option style=""background-color:#66CC00;color:#66CC00"" value=""#66CC00"">#66CC00</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option style=""background-color:#FF6699;color:#FF6699"" value=""#FF6699"">#FF6699</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option style=""background-color:#CC66CC;color:#CC66CC"" value=""#CC66CC"">#CC66CC</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option style=""background-color:#FF9900;color:#FF9900"" value=""#FF9900"">#FF9900</option>" & chr(10)
		StrHtml2 = StrHtml2 & "</select>" & chr(10)
		StrHtml2 = StrHtml2 & "<select onchange=""if(this.options[this.selectedIndex].value!=''){showsize(this.options[this.selectedIndex].value);this.options[0].selected=true;}else {this.selectedIndex=0;}"" name=size>" & chr(10)
		StrHtml2 = StrHtml2 & "<option value=1>&nbsp; 1 &nbsp;</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option value=2 selected>&nbsp; 2 &nbsp;</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option value=3>&nbsp; 3 &nbsp;</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option value=4>&nbsp; 4 &nbsp;</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option value=5>&nbsp; 5 &nbsp;</option>" & chr(10)
		StrHtml2 = StrHtml2 & "<option value=6>&nbsp; 6 &nbsp;</option>" & chr(10)
		StrHtml2 = StrHtml2 & "</select>" & chr(10)
		StrHtml = Replace(StrHtml, "{post_btn}", StrHtml2)
		StrHtml2 = ""
		for i = 1 to 36
			if i =19 then StrHtml2 = StrHtml2 & "<br>"
			StrHtml2 = StrHtml2 & "&nbsp;<img src=""image/emot/" & i & ".gif"" alt = ""[em"& i& "]"" style=""CURSOR: hand"" onClick=""insertstr('[em" & i &"]')"">&nbsp;"
		next
		StrHtml = Replace(StrHtml, "{emot_icon}", StrHtml2)
		StrHtml2 = "<select name=""forumid"" onChange=goforum(this.options[this.selectedIndex].value)>" & chr(10)
		StrHtml2 = StrHtml2 & "<option value=""-1"">&raquo;"& boardtitle &"</option>" & chr(10)
		StrSql = "select * from sf_forum"
		Set rs2 = Conn.Execute(StrSql)
		if not (rs2.bof or rs2.eof) then
			do until rs2.eof
				StrHtml2 = StrHtml2 & "<option value=""" & rs2("forumid") & """>&nbsp; &nbsp;" & rs2("title") & "</option>" & chr(10)
				rs2.MoveNext
			loop
		end if
		StrHtml2 = StrHtml2 & "</select>" & chr(10)
		StrHtml = Replace(StrHtml, "{forum_select}", StrHtml2)

		response.write StrHtml

		response.write sfcopyright
end select

response.write loadtemplate("htmlbottom")
Conn.Close
Set Conn = nothing
Set rs = nothing
Set rs2 = nothing
set ip = nothing
set strip = nothing
set killip = nothing
%>