updateinfo.asp

来自「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 226 行
ASP
226 行
<!--#include file="conn.asp"-->
<!--#include file="inc/const.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 NowStats
Dim HtmlTitle
Dim Style_CSS
Dim HtmlTempStr
Dim TempTopStr
Dim TempFootStr
UpdateInfo

Public Sub UpdateInfo()
	Response.Expires = 0
	Response.ExpiresAbsolute = Now() - 1
	Response.cachecontrol = "no-cache"
	Founderr = False
	Set NC_Encode = New MD5Encode
	Newasp.LoadTemplates ("")
	Set NewCloud_Ads = New Adcolumn_Cls
	Set Rs = CreateObject("adodb.recordset")
	If Newasp.memberName = Empty Then
		Response.Write "<script>alert('" & Newasp.mainset(39) & "');location.replace('login.asp')</script>"
		Response.End
	End If
	If CInt(Newasp.Setting(42)) = 0 Then
		Response.Write "<script>alert('" & Newasp.mainset(38) & "');javascript:history.back(1)</script>"
		Response.End
	End If
	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 "<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.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) & Chr(9) & "return true;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "//-->"
	Response.Write "</script>" & vbCrLf
	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 bgcolor=""#FFFFFF""><IMG src=images/change_information.jpg height=80 width=580 border=0></TD>" & vbCrLf
	Response.Write " <TR vAlign=top>" & vbCrLf
	Response.Write " <TD class=Border2> <BR style=""OVERFLOW: hidden; LINE-HEIGHT: 5px"">" & vbCrLf
	Select Case Request("action")
		Case "save"
			Call modify
		Case Else
			Call main
	End Select
	If Founderr = True Then
		Response.Write "<script>alert('" & ErrMsg & "');javascript:history.back(1)</script>"
	End If
	Response.Write " </TD></TR></TABLE>" & vbCrLf
	Response.Write TempFootStr
	Set NC_Encode = Nothing
End Sub


Private Sub main()
	Rs.Open "Select * from [NC_User] where username='" & Newasp.memberName & "' and userid=" & Newasp.memberid & "", conn, 1, 1
	If Rs.bof And Rs.EOF Then
		Response.Write "Sorry！没有找到此用户信息信息。"
	Else
		Response.Write " <TABLE align=center cellSpacing=0 cellPadding=5 width=""90%"" border=0>" & vbCrLf
		Response.Write " <TR bgColor=#F6F6F6>" & vbCrLf
		Response.Write " <TD height=24><IMG border=0 src=""images/sword_org.gif"" align=absMiddle> 修改用户资料　<a href=updatepass.asp>修改用户密码</a>　<a href=logout.asp>退 出</a></TD></TR>" & vbCrLf
		Response.Write " <TR>" & vbCrLf
		Response.Write " <TD height=1 bgColor=#E6E6E6></TD>" & vbCrLf
		Response.Write " </TR></TABLE>" & vbCrLf
		Response.Write " <BR style=""OVERFLOW: hidden; LINE-HEIGHT: 5px"">" & vbCrLf
		Response.Write "<table width=""90%"" border=""0"" cellspacing=""1"" align=center bgColor=#e6e6e6 cellpadding=""5"">" & vbCrLf
		Response.Write "<form method=""post"" name=myform action=""updateinfo.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%"">&nbsp; <STRONG> <FONT color=#cc0000>"
		Response.Write Newasp.memberName
		Response.Write "</FONT> </STRONG>" & vbCrLf
		Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;您的点数:<STRONG><FONT color=#cc0000>"
		Response.Write Rs("money")
		Response.Write "</FONT></STRONG>" & vbCrLf
		Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;您今日下载了 <STRONG><FONT color=#cc0000>"
		Response.Write Rs("DayDownNum")
		Response.Write "</FONT></STRONG> 个软件" & vbCrLf
		Response.Write " <INPUT type=hidden name=username value="""
		Response.Write Newasp.memberName
		Response.Write """><INPUT type=hidden name=userid value="""
		Response.Write Newasp.memberid
		Response.Write """></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"" value="""
		Response.Write Rs("truename")
		Response.Write """>" & 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"" value="""
		Response.Write Rs("usermail")
		Response.Write """>" & 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"" value="""
		Response.Write Rs("question")
		Response.Write """ 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"" value="""
		Response.Write Rs("usertel")
		Response.Write """>" & vbCrLf
		Response.Write " <font color=""#FF0000"">*</font> +86-27-85188888</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='' value="""
		Response.Write Rs("oicq")
		Response.Write """ 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"" value="""
		Response.Write Rs("postcode")
		Response.Write """>" & 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"" value="""
		Response.Write Rs("address")
		Response.Write """>" & 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
		Response.Write "<BR style=""OVERFLOW: hidden; LINE-HEIGHT: 5px"">" & vbCrLf
	End If
	Rs.Close
End Sub


Private Sub chkmodify()
	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"), "
updateinfo.asp - 源码说明

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

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