reg.asp

来自「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 240 行
ASP
240 行
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/email.asp"-->
<!--#include file="inc/chkinput.asp"-->
<!--#include file="inc/NC_MD5Cls.Asp"-->
<%
Dim NC_Encode
Dim NewCloud_Ads
Dim Rs
Dim SQL
Dim ErrMsg
Dim Sucmsg
Dim FoundErr
Dim loginum
Dim NowStats
Dim HtmlTitle
Dim Style_CSS
Dim HtmlTempStr
Dim TempTopStr
Dim TempFootStr
UserReg

Public Sub UserReg()
	FoundErr = False
	Set NC_Encode = New MD5Encode
	Newasp.LoadTemplates ("softinfo")
	Set NewCloud_Ads = New Adcolumn_Cls
	Set Rs = Server.CreateObject("adodb.recordset")
	NowStats = "会员注册"
	HtmlTitle = "会员注册"
	TempTopStr = Newasp.mainhtml(0) & Newasp.mainhtml(1) & Newasp.mainhtml(2) & Newasp.mainhtml(3)
	TempFootStr = Newasp.mainhtml(4)
	Style_CSS = Replace(Replace(Newasp.Style_CSS, "{$SetupDir}", Newasp.SetupDir), "{$PicUrl}", Newasp.TempDir)
	HtmlTempStr = TempTopStr
	HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", Newasp.SortingMenu)
	HtmlTempStr = Replace(HtmlTempStr, "{$Width}", Newasp.mainset(0))
	HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
	If CInt(Newasp.Setting(5)) = 0 Then
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(9))
	Else
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(10))
	End If
	HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
	HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", NewCloud_Ads.RunScriptAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", NewCloud_Ads.BannerAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", NewCloud_Ads.AdsColumn(7, 2))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", NewCloud_Ads.AdsColumn(7, 3))
	Response.Write HtmlTempStr
	TempFootStr = Replace(TempFootStr, "{$FootMeun}", Newasp.mainset(11))
	TempFootStr = Replace(TempFootStr, "{$Width}", Newasp.mainset(0))
	TempFootStr = Replace(TempFootStr, "{$Adcolumn(4)}", NewCloud_Ads.ScriptFloatAds(7))
	TempFootStr = Replace(TempFootStr, "{$Adcolumn(5)}", NewCloud_Ads.ScriptFixedAds(7))
	Response.Write "<TABLE width="""
	Response.Write Newasp.mainset(0)
	Response.Write """ class=TableBorder cellSpacing=0 cellPadding=0 align=center border=0>" & vbCrLf
	Response.Write " <TR>" & vbCrLf
	Response.Write " <TD vAlign=top class=Border2>" & vbCrLf
	If CInt(Newasp.Setting(31)) = 0 Then
		Response.Write "<script>alert('"& Newasp.mainset(35) &"');javascript:history.back(1)</script>"
		Response.End
	End If
	Select Case Request("action")
		Case "save"
			Call regsave
		Case Else
			Call main
	End Select
	If FoundErr = True Then
		Response.Write "<script>alert('" & ErrMsg & "');javascript:history.back(1)</script>"
		Response.End
	End If
	Response.Write "<BR style=""OVERFLOW: hidden; LINE-HEIGHT: 3px"">" & vbCrLf
	Response.Write "</TD></TR></TABLE>" & vbCrLf
	Response.Write TempFootStr
	Set NC_Encode = Nothing
End Sub


Private Sub main()
	Response.Write "<script language=""JavaScript"">" & vbCrLf
	Response.Write "<!--" & vbCrLf
	Response.Write "function CheckForm()" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.username.value.length == 0)" & vbCrLf
	Response.Write " {" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入用户名."");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.username.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.username.value.indexOf(""<"")!=-1 || document.myform.username.value.indexOf("">"")!=-1 || document.myform.username.value.indexOf(""$"")!=-1)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""用户名中包含非法字符 (<,>,$) "");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.username.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.username.value.indexOf(""'"")!=-1 || document.myform.username.value.indexOf(""%"")!=-1 || document.myform.username.value.indexOf(""&"")!=-1)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""用户名中包含非法字符 (',%,&) "");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.username.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.password1.value.length == 0) " & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入密码！"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.password1.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.password2.value.length == 0) " & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入密码确认！"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.password2.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.truename.value.length == 0) " & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入你的真实姓名！"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.truename.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.usertel.value.length == 0) " & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入你的联系电话！"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.usertel.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.address.value.length == 0) " & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入你的联系地址！"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.address.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.question.value.length == 0) " & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入你的密码提示问题！"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.question.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.answer.value.length == 0) " & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入你的密码提示答案！"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.answer.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & "if (document.myform.postcode.value.length == 0) " & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入你的邮政编码！"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.postcode.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return false;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return true;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "//-->"
	Response.Write "</script>" & vbCrLf
	Response.Write " <BR style=""OVERFLOW: hidden; LINE-HEIGHT: 5px"">" & vbCrLf
	Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0>" & vbCrLf
	Response.Write " <TR>" & vbCrLf
	Response.Write " <TD>" & vbCrLf
	Response.Write " <TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0>" & vbCrLf
	Response.Write " <TR>" & vbCrLf
	Response.Write " <TD width=150 bgColor=#AEC0EC><IMG height=18 src="""" width=5><STRONG><SPAN class=clear>新用户注册</SPAN></STRONG></TD>" & vbCrLf
	Response.Write " <TD width=1 rowSpan=2><IMG height=1 src="""" width=1></TD>" & vbCrLf
	Response.Write " <TD bgColor=#e6e8ed><IMG height=15 src="""" width=8>　<font color=""#FF0000"">请认真填写以下注册信息！</font></TD></TR>" & vbCrLf
	Response.Write " <TR>" & vbCrLf
	Response.Write " <TD bgColor=#416194><IMG height=1 src="""" width=1></TD>" & vbCrLf
	Response.Write " <TD bgColor=#b7c1ce><IMG height=1 src="""" width=1></TD></TR></TABLE></TD></TR></TABLE>" & vbCrLf
	Response.Write " <BR style=""OVERFLOW: hidden; LINE-HEIGHT: 5px"">" & vbCrLf
	Response.Write "<table width=""96%"" border=""0"" cellspacing=""1"" align=center bgColor=#e6e6e6 cellpadding=""5"">" & vbCrLf
	Response.Write "<form method=""post"" name=myform action=""reg.asp?action=save"" onSubmit=""return CheckForm();"">" & vbCrLf
	Response.Write " <tr bgColor=#f6f6f6> " & vbCrLf
	Response.Write " <td width=""30%""><div align=""right"">用户名：</div></td>" & vbCrLf
	Response.Write " <td width=""70%""><input name=""username"" type=""text"" id=""username"" size=""20"">" & vbCrLf
	Response.Write " <font color=""#FF0000"">*</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr bgColor=#fefdf5>" & vbCrLf
	Response.Write " <td><div align=""right"">真实姓名：</div></td>" & vbCrLf
	Response.Write " <td><input name=""truename"" type=""text"" id=""truename"" size=""20"">" & vbCrLf
	Response.Write " <font color=""#FF0000"">*</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr bgColor=#f6f6f6> " & vbCrLf
	Response.Write " <td><div align=""right"">密　码：</div></td>" & vbCrLf
	Response.Write " <td><input name=""password1"" type=""password"" id=""password1"">" & vbCrLf
	Response.Write " <font color=""#FF0000"">*</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr bgColor=#fefdf5> " & vbCrLf
	Response.Write " <td><div align=""right"">确认密码：</div></td>" & vbCrLf
	Response.Write " <td><input name=""password2"" type=""password"" id=""password2"">" & vbCrLf
	Response.Write " <font color=""#FF0000"">*</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr bgColor=#f6f6f6> " & vbCrLf
	Response.Write " <td><div align=""right"">电子邮箱：</div></td>" & vbCrLf
	Response.Write " <td><input name=""usermail"" type=""text"" id=""usermail"">" & vbCrLf
	Response.Write " <font color=""#FF0000"">注意</font>：请填写你常用的邮箱</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr bgColor=#fefdf5> " & vbCrLf
	Response.Write " <td><div align=""right"">密码提示问题：</div></td>" & vbCrLf
	Response.Write " <td><input name=""question"" type=""text"" id=""question"" size=""30"" maxlength=""30"">" & vbCrLf
	Response.Write " 如：<font color=""#FF0000"">你最喜欢的宠物</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr bgColor=#f6f6f6> " & vbCrLf
	Response.Write " <td><div align=""right"">密码提示答案：</div></td>" & vbCrLf
	Response.Write " <td><input name=""answer"" type=""text"" id=""answer"" size=""30"" maxlength=""30"">" & vbCrLf
	Response.Write " 如：<font color=""#FF0000"">小狗</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr bgColor=#fefdf5> " & vbCrLf
	Response.Write " <td><div align=""right"">联系电话：</div></td>" & vbCrLf
	Response.Write " <td><input name=""usertel"" type=""text"" id=""usertel"">" & vbCrLf
	Response.Write " <font color=""#FF0000"">*</font> 010-88888888</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr bgColor=#f6f6f6> " & vbCrLf
	Response.Write " <td><div align=""right"">你的ＱＱ：</div></td>" & vbCrLf
	Response.Write " <td><input name=""oicq"" type=""text"" id=""oicq"" onkeyup=if(isNaN(this.value))this.value='' maxlength=""20""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr bgColor=#fefdf5> " & vbCrLf
	Response.Write " <td><div align=""right"">邮政编码：</div></td>" & vbCrLf
	Response.Write " <td><input name=""postcode"" type=""text"" id=""postcode"" maxlength=""20"">" & vbCrLf
	Response.Write " <font color=""#FF0000"">*</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr bgColor=#f6f6f6> " & vbCrLf
	Response.Write " <td><div align=""right"">联系地址：</div></td>" & vbCrLf
	Response.Write " <td><input name=""address"" type=""text"" id=""address"" size=""45"" maxlength=""50"">" & vbCrLf
	Response.Write " <font color=""#FF0000"">*</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr bgColor=#fefdf5> " & vbCrLf
	Response.Write " <td>&nbsp;</td>" & vbCrLf
	Response.Write " <td>&nbsp;&nbsp;" & vbCrLf
	Response.Write " <input name=""Submit"" type=""submit"" class=""button"" value=""　立即注册"">" & vbCrLf
	Response.Write " <input name=""Submit2"" type=""reset"" class=""button"" value=""　重　置"">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr></form>" & vbCrLf
	Response.Write "</table>" & vbCrLf
End Sub


Private Sub checkreg()
	If Newasp.checkpost = False Then
		ErrMsg = ErrMsg + "您提交的数据不合法，请不要从外部提交注册。\n"
		FoundErr = True
	End If
	If InStr(Request("username"), "=") > 0 Or InStr(Request("username"), "%") > 0 Or InStr(Request("username"), Chr(32)) > 0 Or InStr(Request("username"), "?") > 0 Or InStr(Request("username"), "&") > 0 Or InStr(Request("username"), ";") > 0 Or InStr(Request("username"), ",") > 0 Or InStr(Request("username"), "'") > 0 Or InStr(Request("username"), ",") > 0 Or InStr(Request("username"), Chr(34)) > 0 Or InStr(Request("username"), Chr(9)) > 0 Or InStr(Request("username"), "
reg.asp - 源码说明

本页面展示了「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态ASP；　无限制添加下载服务器」中的 reg.asp 源码文件，采用 ASP 编程语言编写，共 240 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与HTML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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