register.asp

一个不错的ASP论坛源码

		if strPicture = "1" then
			strsql = strsql & ", '" & ChkString(Request.Form("Photo_URL"),"") & "'"  
		else
			strsql = strsql & ", ''"  
		end if
		if strFavLinks = "1" then
			strsql = strsql & ", '" & ChkString(Request.Form("LINK1"),"") & "'"
			strSql = strSql & ", '" & ChkString(Request.Form("LINK2"),"") & "'"
		else
			strsql = strsql & ", ''"
			strSql = strSql & ", ''"  
		end if
		if strAge = "1" then
			strSql = strsql & ", '" & ChkString(Request.Form("Age"),"") & "'" 
		else
			strSql = strsql & ", ''" 
		end if
		if strMarStatus = "1" then
			strSql = strSql & ", '" & ChkString(Request.Form("MarStatus"),"") & "'"
		else
			strSql = strSql & ", ''"  
		end if
		if strSex = "1" then
			strSql = strsql & ", '" & ChkString(Request.Form("Sex"),"") & "'"
		else
			strSql = strSql & ", ''"  
		end if
		if strOccupation = "1" then
			strSql = strSql & ", '" & ChkString(Request.Form("Occupation"),"") & "'"
		else
			strSql = strSql & ", ''"  
		end if
		if strBio = "1" then
			strSql = strSql & ", '" & ChkString(Request.Form("Bio"),"message") & "'"
		else
			strSql = strSql & ", ''"  
		end if
		if strHobbies = "1" then
			strSql = strSql & ", '" & ChkString(Request.Form("Hobbies"),"message") & "'" 
		else
			strSql = strSql & ", ''" 
		end if
		if strLNews = "1" then
			strsql = strsql & ", '" & ChkString(Request.Form("LNews"),"message") & "'"
		else
			strSql = strSql & ", ''"  
		end if
		if strQuote = "1" then
			strSql = strSql & ", '" & ChkString(Request.Form("Quote"),"message") & "'"
		else 
			strSql = strSql & ", ''" 
		end if
'########################### PM NEW MEMBER #####################
			strSql = strsql & ", '1'" 
'########################### PM NEW MEMBER #####################
		strSql = strSql & ")"

		my_Conn.Execute (strSql)
		
		docount
		
		regHomepage = ""
		
'########################### PM NEW MEMBER #####################
if intNewMemPM = "1" then
	Dim objDict
	Set objDict = Server.CreateObject("Scripting.Dictionary")
	set objRec = my_Conn.execute("SELECT * FROM " & strTablePrefix & "MODS WHERE M_NAME = 'NewMemPM'")

	while not objRec.EOF 
	  objDict.Add objRec.Fields.Item("m_code").Value, objRec.Fields.Item("m_value").Value
	  objRec.moveNext
	wend 

	Admin = GetMemberID(objDict.Item("Admin"))
	Subject = objDict.Item("Subject")
	Message = objDict.Item("Message")

	strSql = "INSERT INTO " & strTablePrefix & "PM "
	strSql = strSql & "(M_SUBJECT"
	strSql = strSql & ", M_FROM"
	strSql = strSql & ", M_TO"
	strSql = strSql & ", M_SENT"
	strSql = strSql & ", M_MESSAGE"
	strSql = strSql & ", M_PMCOUNT"
	strSql = strSql & ", M_READ"
	strSql = strSql & ", M_MAIL"
	strSql = strSql & ", M_OUTBOX"
	strSql = strSql & ") "
	strSql = strSql & " VALUES ("
	strSql = strSql & "'" & Subject & "'"
	strSql = strSql & ", " & "'" & Admin & "'"
	strSql = strSql & ", " & "'" & GetMemberID( Request.Form("Name")) & "'"
	strSql = strSql & ", " & "'" & DateToStr(strForumTimeAdjust) & "'"
	strSql = strSql & ", " & "'" & Message & "'"
	strSql = strSql & ", " & "'1'"
	strSql = strSql & ", " & "'0'"
	strSql = strSql & ", " & "'0'"
	strSql = strSql & ", " & 1 & ")"
	
	my_Conn.Execute (strSql)
end if
'########################### PM NEW MEMBER #####################

'Rem User Field Code #######################################
			if (strUseExtendedProfile) then
				if (intUserFields > 0) then
					memID = getMemberID(Request.Form("Name"))
					UserstrSql = "SELECT * " 
					UserstrSql = UserstrSql & " FROM " & strTablePrefix & "USERFIELDS "
					set rsIDs = my_Conn.Execute(UserstrSql)
					do until rsIDs.EOF
						sInputName = rsIDs("USR_SHORTNAME")
							UpdSql = "INSERT INTO " & strMemberTablePrefix & "MEMBERFIELDS "
							UpdSql = UpdSql & "VALUES ( '" & memID & "','" & rsIDs("USR_FIELD_ID") & "','"
							UpdSql = UpdSql & Request.Form(sInputName) & "')"
							my_Conn.Execute(UpdSQL)
							UpdSQL = ""
						rsIDs.MoveNext
					loop
					rsIDs.Close
				end if
			end if
'Rem User Field Code #######################################

		if lcase(strEmail) = "1" then
			'## Emails Message to the Author of this Reply.  
			'## This needs to be Edited to use your own email component
			'## if you don't have one, try the w3Jmail component from www.dimac.net it's free!
			strRecipientsName = Request.Form("Name")
			strRecipients = Request.Form("Email")
			strFrom = strSender
			strFromName = strForumTitle
			strsubject = strForumTitle & "注册通知"
			strMessage = "Hello " & Request.Form("name") & vbCrLf & vbCrLf
			strMessage = strMessage & "这是一封来自 " & strForumTitle & " 的注册通知，恭喜你注册成功，现在你可以在 " & strForumURL & "发表新文章或回复文章并且可以使用我们所提供的资源" & vbCrLf & vbCrLf
			if strAuthType="db" then
				strMessage = strMessage & "你的密码是：" & Request.Form("Password") & vbCrLf & vbCrLf
			end if
			strMessage = strMessage & "你可以经由点击""资料""来修改你的资料" & vbCrLf & vbCrLf
			strMessage = strMessage & "赶快加入论坛吧！"
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
		end if
	else
		if (InStr(Request.ServerVariables("HTTP_REFERER"), "policy.asp") <> 0) or (Err_Msg <> "") then 
%>

	<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你输入的资料有问题或没有填写完整</font></p>

	<table align=center border=0>
	  <tr>
	    <td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
		<ul>
		<% =Err_Msg %>
		</ul>
	    </font></td>
	  </tr>
	</table>

	<p align=center><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>><a href="JavaScript:history.go(-1)">请返回重新输入</a></font></p>

<!--#INCLUDE FILE="inc_footer.asp" -->
<%		Response.End %>

<%			call ShowForm %>
<%'			On Error Resume next %>
<%			my_Conn.Close %>
<%			set my_Conn = nothing %>
<%			Response.End %>
<%		else %>
	<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">发现错误</font></p>
    <p align=center><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>>You must first read the disclaimer/privacy statement by clicking on &quot;<a href="policy.asp">register</a>&quot; link in the main forum window.</p>
    <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)">返回修正问题。</a></font></p>
    <!--#INCLUDE FILE="inc_footer.asp" -->
<%			Response.End %>
<%		end if %>
<%	end if %>
	<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你的注册已经完成！</font></p>
	<p align=center><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>>你现在可以发表文章<% if strAuthType="db" then %>使用你的新用户名和密码<% end if %>。</font></p>
<%
	if strAuthType = "db" then

		select case ChkUser2(Request.Form("Name"), Request.Form("Password"))
			case 1, 2, 3, 4
				Call DoCookies("false")
				strLoginStatus = 1
			case else
				strLoginStatus = 0
		end select
	end if
%>
<%	If strAutoLogon = 1 then
  		Response.Redirect "default.asp"
	Else %>
		<meta http-equiv="Refresh" content="0; URL=<% =Request.Form("refer")%>">
<%	End if %>
    <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =Request.Form("refer")%>">返回论坛</font></a></p>
<% end if %>
<%' On Error Resume next %>
<!--#INCLUDE FILE="inc_footer.asp" -->
<% 
sub DoCount

	'## Forum_SQL - Updates the Totals table by adding 1 to U_COUNT
	strSql = "UPDATE " & strTablePrefix & "TOTALS "
	strSql = strSql & " SET " & strTablePrefix & "TOTALS.U_COUNT = " & strTablePrefix & "TOTALS.U_COUNT + 1"

	my_Conn.Execute (strSql)

end sub
%>
<% sub ShowForm() %>
<form action="register.asp?mode=DoIt" method="post" id=form1 name=form1>
<input name="Refer" type="hidden" value="<% =Request.Form("Refer") %>">
<table width="400" border=0 align=center>
  <tr>
    <td><!--#INCLUDE FILE="inc_profile.asp" --></td>
  </tr>
</table>
</form>
<% end sub %>