📄 register.asp

📁 一个不错的ASP论坛源码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
'########## Snitz Forums 2000 Version 3.1 SR4 ####################
'#                                                               #
'#  汉化修改: 资源搜罗站                                         #
'#  电子邮件: cgier@21cn.com                                     #
'#  主页地址: http://www.sdsea.com                               #
'#            http://www.99ss.net                                #
'#            http://www.cdown.net                               #
'#	     http://www.wzdown.com                               #
'#	     http://www.13888.net                                #
'#  论坛地址:http://ubb.yesky.net                                #
'#  最后修改日期: 2001/03/12    中文版本：Version 3.1 SR4        #
'#################################################################
'# 原始来源                                                      #
'# Snitz Forums 2000 Version 3.1 SR4                             #
'# Copyright 2000 http://forum.snitz.com - All Rights Reserved   #
'#################################################################
'#【版权声明】                                                   #
'#                                                               #
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,#
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。          #
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓#
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！  #
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作#
'# 如有任何问题请到我们的论坛告诉我们                            #
'#################################################################
%>
<!--#INCLUDE FILE="config.asp" --> 
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<table width="100%" border=0>
  <tr>
    <td>
    <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><img src="<%=strImageURL %>icon_folder_open.gif" border="0">&nbsp;<a href="default.asp">返回论坛首页</a>&nbsp;<img src="<%=strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;<a href="policy.asp">服务条款和声明</a>&nbsp;<img src="<%=strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;<% =strForumTitle %>会员注册</font>
    </td>
  </tr>
</table>
<%
if Request.QueryString("mode") <> "DoIt" then
	if strAuthType = "nt" and ChkAccountReg = "1" then
%>
<p align="center"><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>><b>这个帐号不　要注册</b></font></p>
<table align="center">
  <tr>
    <td>
    <ul>
      <li>此NT使用者帐号已经注册</li>
    </ul>
    </td>
  </tr>
</table>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
		Response.End 
	end if			

	call ShowForm

else
	Err_Msg = ""

	If strAutoLogon <> 1 then	
		if Request.Form("Name") = "" then 
			Err_Msg = Err_Msg & "<li>你必须输入姓名</li>"
		end if
	end if

	'## Forum_SQL
	strSql = "SELECT M_NAME FROM " & strMemberTablePrefix & "MEMBERS "
	strSql = strSql & " WHERE M_NAME = '" & Trim(Request.Form("Name")) &"'"

	set rs = my_Conn.Execute (strSql)

	if rs.BOF and rs.EOF then 
		'## Do Nothing
	else 
		Err_Msg = Err_Msg & "<li>这个用户名已有人使用，请选择其他名称</li>"
	end if
	rs.close
	set rs = nothing

	if (Instr(Request.Form("Name"), ">") > 0 ) or (Instr(Request.Form("Name"), "<") > 0) then
		Err_Msg = Err_Msg & "<li> &gt; 和 &lt; 不能出现在用户名里，请重新输入</li>"
	end if

	'## NT authentication no additional password needed
	if strAuthType = "db" then
		if Request.Form("Password") = "" then 
			Err_Msg = Err_Msg &  "<li>你必须输入密码</li>"
		end if
		if Len(Request.Form("Password")) > 25 then 
			Err_Msg = Err_Msg & "<li>密码不能超过25个字符</li>" 
		end if
		if Request.Form("Password") <> Request.Form("Password2") then 
			Err_Msg = Err_Msg & "<li>两次输入的密码不同</li>"
		end if
	end if

	If strAutoLogon <> 1 then
		if Request.Form("Email") = "" then 
			Err_Msg = Err_Msg & "<li>必须填写邮件地址</li>"
		end if
		if EmailField(Request.Form("Email")) = 0 then 
			Err_Msg = Err_Msg & "<li>必须填写正确的邮件地址</li>"
		end if
	end if

	if (lcase(left(Request.Form("Homepage"), 7)) <> "http://") and (lcase(left(Request.Form("Homepage"), 8)) <> "https://") and (Request.Form("Homepage") <> "") then
		Err_Msg = Err_Msg & "<li>你必须在网址前加上 <b>http://</b> or <b>https://</b></li>"
	end if
	if strAuthType = "nt" and ChkAccountReg = "true" then
		Err_Msg = Err_Msg & "<li>NT用户帐号已经注册</li>"
	end if

	if strUniqueEmail = "1" then

		'## Forum_SQL
		strSql = "SELECT M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS "
		strSql = strSql & " WHERE M_EMAIL = '" & Trim(Request.Form("Email")) &"'"

		set rs = my_Conn.Execute (strSql)

		if rs.BOF and rs.EOF then 
			'## Do Nothing
		else 
			Err_Msg = Err_Msg & "<li>此邮件地址已经有人使用，请重新输入</li>"
		end if
		rs.close
		set rs = nothing
	end if
	if Len(Request.Form("Sig")) > 255 then
		Err_Msg = Err_Msg & "<li>个人签名不能超过255个字符 "
		Err_Msg = Err_Msg & "现在共有 <b>" & Len(Request.Form("Sig")) & "</b> 个字符</li>"
	end if
	if Err_Msg = "" then
		if Request.Form("Homepage") <> "" and lcase(Request.Form("Homepage")) <> "http://" and lcase(Request.Form("Homepage")) <> "https://" and lcase(Request.Form("Homepage")) <> "file:///" then
			regHomepage = Request.Form("Homepage")
		else
			regHomepage = " "
		end if

		'## Forum_SQL
		strSql = "INSERT INTO " & strMemberTablePrefix & "MEMBERS "
		strSql = strSql & "(M_NAME"
		if strAuthType = "nt" then
			strSql = strSql & ", M_USERNAME"
		end if

		strSql = strSql & ", M_PASSWORD"
		strSql = strSql & ", M_EMAIL"
' ############# Hide Email Mod #############
		strSql = strSql & ", M_HIDE_EMAIL"
' ##########################################
		strSql = strSql & ", M_DATE"
		strSql = strSql & ", M_COUNTRY"
		strSql = strSql & ", M_SIG"
		strSql = strSql & ", M_YAHOO"
		strSql = strSql & ", M_ICQ"
		strSql = strSql & ", M_AIM"
		strSql = strSql & ", M_POSTS"
		strSql = strSql & ", M_HOMEPAGE"
		strSql = strSql & ", M_LASTHEREDATE"
		strSql = strSql & ", M_STATUS"
		strSql = strSql & ", M_FIRSTNAME" 
		strSql = strSql & ", M_LASTNAME"
		strsql = strsql & ", M_CITY"
		strsql = strsql & ", M_STATE"
		strsql = strsql & ", M_PHOTO_URL"
		strsql = strsql & ", M_LINK1" 
		strSql = strSql & ", M_LINK2"
		strSql = strsql & ", M_AGE"
		strSql = strSql & ", M_MARSTATUS"
		strSql = strsql & ", M_SEX"
		strSql = strSql & ", M_OCCUPATION" 
		strSql = strSql & ", M_BIO" 
		strSql = strSql & ", M_HOBBIES"
		strsql = strsql & ", M_LNEWS" 
		strSql = strSql & ", M_QUOTE"  
'########################### PM NEW MEMBER #####################
		strSql = strSql & ", M_PMEMAIL"
'########################### PM NEW MEMBER #####################
		strSql = strSql & ") "
		strSql = strSql & " VALUES ("
		If strAutoLogon = "1" then
			strSql = strSql & "'" & Session(strCookieURL & "strNTUserFullName") & "'"
		Else
			strSql = strSql & "'" & ChkString(Request.Form("Name"),"name") & "'"
		end if
		if strAuthType = "nt" then
			strSql = strSql & ", " & "'" & strDBNTUserName & "'"
		end if
		strSql = strSql & ", " & "'" & ChkString(Request.Form("Password"),"password") & "'"
		strSql = strSql & ", " & "'" & ChkString(Request.Form("Email"),"email") & "'"
' ################################ Hide Email Mod ##################################
		strSql = strSql & ", " & "'" & ChkString(Request.Form("HideMail"),"") & "'"
' ##################################################################################		
		strSql = strSql & ", " & "'" & DateToStr(strForumTimeAdjust) & "'"
		strSql = strSql & ", " & "'" & ChkString(Request.Form("Country"),"name") & "'"
		strSql = strSql & ", " & "'" & ChkString(Request.Form("Sig"),"message") & "'"
		strSql = strSql & ", " & "'" & ChkString(Request.Form("YAHOO"),"name") & "'"
		strSql = strSql & ", " & "'" & ChkString(Request.Form("ICQ"),"number") & "'"
		strSql = strSql & ", " & "'" & ChkString(Request.Form("AIM"),"name") & "'"
		strSql = strSql & ", " & "0"
		strSql = strSql & ", " & "'" & ChkString(regHomepage,"url") & "'"
		strSql = strSql & ", " & "'" & DateToStr(strForumTimeAdjust) & "'"
		strSql = strSql & ", " & "1"
		if strfullName = "1" then
			strSql = strSql & ", '" & ChkString(Request.Form("FirstName"),"") & "'" 
			strSql = strSql & ", '" & ChkString(Request.Form("LastName"),"") & "'"  
		else
			strSql = strSql & ", ''" 
			strSql = strSql & ", ''"  
		end if
		if strCity = "1" then
			strsql = strsql & ", '" & ChkString(Request.Form("City"),"") & "'"    
		else
			strsql = strsql & ", ''"
		end if
		if strState = "1" then
			strsql = strsql & ", '" & ChkString(Request.Form("State"),"") & "'" 
		else
			strsql = strsql & ", ''" 
		end if
12 下一页
💿 文件大小 916 K
👤 上传用户 qingriwanxia
📂 所属分类书籍源码
🏷️ 相关标签

#ASP #论坛 #源码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -