📄 update.asp
字号:
<!-- #Include File=Conn.asp -->
<!--#include file="passcheck.asp" -->
<%
dim username,password,password2,company,address,tel,fax,code,email
Username = Trim(Request("Username"))
Password = Trim(Request("Password"))
Password2 = Trim(Request("Password2"))
Company = Trim(Request("Company"))
Address = Trim(Request("Address"))
Tel = Trim(Request("Tel"))
Fax = Trim(Request("Fax"))
Code = Trim(Request("Code"))
Email = Trim(Request("Email"))
for i=1 to len(password)
pass=mid(password,i,1)
if pass="'" or pass="%" or pass="<" or pass=">" or upass="&" or pass="|" then
response.write "<script language=JavaScript>" & "alert('您的密码含有非法字符,请重新输入!');" & "history.back()" & "</script>"
response.end
end if
next
If Password = "" Or Company = "" Or Address = "" Or Tel = "" Or Fax = "" Or Code = "" Or Email = "" Then
response.write "<script language=JavaScript>" & chr(13) & "alert('请检查您填写的内容是否完整!');" & "history.back()" & "</script>"
Response.End
ElseIf Instr(Email, "@") = 0 Or Right(Email, 1) = "@" Or Left(Email, 1) = "@" Then
response.write "<script language=JavaScript>" & chr(13) & "alert('请检查您的邮件地址是否正确!');" & "history.back()" & "</script>"
Response.End
ElseIf Password <> Password2 Then
response.write "<script language=JavaScript>" & chr(13) & "alert('两次输入的密码不一致!');" & "history.back()" & "</script>"
Response.End
End If
sql = "Update info set 密码='"&Password&"', 公司名称='"&Company&"', 公司地址='"&Address&"', 电话='"&Tel&"', 传真='"&Fax&"', 邮编='"&Code&"', 电子邮件='"&Email&"' Where 用户名='"&Username&"'"
set rs = conn.Execute(sql)
Conn.Close
Set Conn=Nothing
Response.Write "修改成功!"
Response.Write "按"
Response.Write "<a href='login.asp'>"
Response.Write "这里"
Response.Write "</a>"
Response.Write "重新登陆。"
'====================================================
'迅捷会员注册管理系统 v2.0
'程序制做:迅捷主机网.http://www.soonhost.com
'迅捷主机网 ------ 首选域名、虚拟主机、企业邮局提供商
'网址:http://www.soonhost.com
'EMAIL:sell@china.com
'msn:soonhost@hotmail.com
'oicq: 123150745
'本站还提供大量脚本下载,负责安装;脚本定制价格低廉.
'程序为免费程序,您可以使用本程序,但必须
'保留迅捷主机网(http://www.soonhost.com)的链接!
'================================================%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -