register.asp

苹果风格的论坛 asp编写

<!--#INCLUDE FILE="inc/db_inc.asp"-->
<!--#INCLUDE FILE="inc/md5_inc.asp"-->
<!--#INCLUDE FILE="inc/char_inc.asp"-->
<!--#INCLUDE FILE="header.asp"-->
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'	Snowman Forum v2.0
'
'	Copyright(C) Snowman, All rights reserved.
'
'	http://www.xinboard.net
'
'	Access版本免费, 欲使用SQL Server商业版本请购买使用权
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

dim StrSql, rs, StrHtml, error

StrHtml = loadtemplate("htmltop")
StrHtml = Replace(StrHtml, "{pagetitle}", loadtemplate("registertitle"))
StrHtml = Replace(StrHtml, "{style_path}", loadtemplate("path"))
StrHtml = Replace(StrHtml, "{forumtitle}", boardtitle)
response.write StrHtml
StrHtml = loadtemplate("pagetitle")
StrHtml = Replace(StrHtml, "{title_img}", "<img src=""style/" & loadtemplate("path") & "/image/title.gif"">")

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
StrHtml = loadtemplate("pagepath")
StrHtml = Replace(StrHtml, "{path_text}", "<img src=""style/" & loadtemplate("path") & "/image/home.gif""><a href=index.asp>" & boardtitle & "</a> &raquo; " & loadtemplate("registertitle"))
response.write StrHtml

step = ChkSql(request("step"))
select case step
	case "3"
		error = ""
		if regtime > 0 then
			StrSql = "select lastreg from sf_counter"
			Set rs2 = Conn.Execute(StrSql)
			StrHtml = loadtemplate("err_regtime")
			StrHtml = Replace(StrHtml, "{regtime}", regtime)
			if rs2("lastreg") > dateadd("s", -1 * regtime, now()) then error = error & "<br><li>" & StrHtml
		end if
		if len(request("username")) <2 or (not IsValidSqlValue(request("username"))) then error = error & "<br><li>" & loadtemplate("err_username")
		if request("password") = "" or len(request("password")) < 6 or request("password2") = "" or request("password") <> request("password2") then error = error & "<br><li>" & loadtemplate("err_password")
		if not IsValidEmail(request("email")) then error = error & "<br><li>" & loadtemplate("err_email")
		if request("question") = "" or len(request("question")) < 6 then error = error & "<br><li>" & loadtemplate("err_question")
		if request("result") = "" or len(request("result")) < 8 then error = error & "<br><li>" & loadtemplate("err_result")
		if error <> "" then
			StrHtml = loadtemplate("error")
			StrHtml = Replace(StrHtml, "{error_text}", error)
			response.write StrHtml
			response.end
		end if
		error = ""
		StrSql = "select userid from sf_user where email = '" & ChkSql(request("email")) & "'"
		Set rs2 = Conn.Execute(StrSql)
		if not (rs2.bof or rs2.eof) then
			StrHtml = loadtemplate("error")
			StrHtml = Replace(StrHtml, "{error_text}", loadtemplate("err_email"))
			response.write StrHtml
			response.end
		end if
		StrSql = "select userid from sf_user where username = '" & ChkSql(request("username")) & "'"
		Set rs2 = Conn.Execute(StrSql)
		if not (rs2.bof or rs2.eof) then
			StrHtml = loadtemplate("error")
			StrHtml = Replace(StrHtml, "{error_text}", loadtemplate("err_chkusername"))
			response.write StrHtml
			response.end
		end if
		sex = request("sex")
		if sex <> "1" and sex <> "2" then sex = "0"
		StrSql = "insert into sf_user(username, password, email, question, result, usergroup, homepage, icq, qq, msn, [like], sex, country, signature, showemail,invisible, usertitle, joindate, lastvisit, lastactivity, lastposttime, lastpostid, lastposttitle, posts, pmpopup, avatar, defineavatar, avatarwidth, avatarheight, birthday, ipaddress, lastforum, forbidpost, rating) values("
		StrSql = StrSql & "'" & ChkSql(request("username")) & "', "
		StrSql = StrSql & "'" & md5(ChkSql(request("password"))) & "', "
		StrSql = StrSql & "'" & ChkSql(request("email")) & "', "
		StrSql = StrSql & "'" & ChkSql(server.htmlencode(request("question"))) & "', "
		StrSql = StrSql & "'" & md5(ChkSql(request("result"))) & "', "
		StrSql = StrSql & "0, '', '', '', '', '', " & sex & ", '', '', 1, 0, '', '" & now() & "', '" & now() & "', '" & now() & "', '" & now() &"', 0, '', 0, 1, '1.gif', '', 0, 0, '1900-01-01', '" & cstr(request.ServerVariables("REMOTE_ADDR")) & "', 0, 0, 0)"
		Conn.Execute(StrSql)
		StrSql = "select top 1 userid from sf_user order by userid DESC"
		Set rs2 = Conn.Execute(StrSql)
		if not (rs2.bof or rs2.eof) then
			StrSql = "update sf_counter set usernum = usernum + 1, lastuser = '" & ChkSql(request("username")) & "', lastuserid = " & rs2("userid") & ", lastreg = '" & now() & "'"
			Conn.Execute(StrSql)
		end if
		StrHtml = loadtemplate("hint")
		StrHtml = Replace(StrHtml, "{hint_text}", loadtemplate("hint_registered"))
		StrHtml = Replace(StrHtml, "{pro_name}", "login.asp")
		response.write StrHtml
	case "2"
		response.write loadtemplate("registerstep2")
		response.write sfcopyright
	case else
		StrHtml = loadtemplate("registerstep1")
		StrHtml = Replace(StrHtml, "{reg_hint}", server.htmlencode(reghint))
		response.write StrHtml
		response.write sfcopyright
end select

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