📄 edituserinfo.asp
字号:
<%@ LANGUAGE="VBScript" %><% Response.Buffer=true %>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ValidateUpdateForm
if document.UpdateForm.UpdateName.value="" then
msgbox "请输入用户名！"
elseif document.UpdateForm.UpdatePwd1.value="" then
msgbox "请输入口令！"
elseif document.UpdateForm.UpdatePwd1.value<>document.UpdateForm.UpdatePwd2.value then
msgbox "两次输入的口令不一致！"
elseif document.UpdateForm.UpdateIdentity.value="" then
msgbox "请输入身份证编号！"
elseif document.UpdateForm.UpdateEmail.value="" then
msgbox "请输入电子邮件地址！"
elseif document.UpdateForm.UpdatePhone.value="" then
msgbox "请输入联系电话！"
elseif document.UpdateForm.UpdateAddress.value="" then
msgbox "请输入联系地址！"
elseif document.UpdateForm.UpdatePostCode.value="" then
msgbox "请输入邮政编码！"
else
document.UpdateForm.submit
end if
End Sub
-->
</SCRIPT>
<%
dim UpdateName,UpdatePwd,UpdateIdentity,UpdateEmail
dim UpdateAddress,UpdatePostCode,UpdatePhone
if session("username")<>"" then
'建立数据库连接
Set cn=Server.CreateObject("ADODB.Connection")
cn.connectionstring="Provider=SQLOLEDB;UID=sa;pwd=123;" & _
"database=图书销售;Data Source=(local)"
cn.Open
querystr = "SELECT * FROM 注册用户 WHERE user_name = '" & session("username") & "'"
'创建Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = cn
rs.CursorType =1
rs.LockType = 3
'访问数据库获得客户注册数据
rs.open querystr
if request("UpdateName")="" then
UpdateName=rs.fields("user_name")
UpdatePwd=rs.fields("user_pwd")
UpdateIdentity=rs.fields("user_Identity")
UpdateEmail=rs.fields("user_email")
UpdatePhone=rs.fields("user_phone")
UpdateAddress=rs.fields("user_address")
UpdatePostCode=rs.fields("user_postcode")
else
UpdateName=request("UpdateName")
UpdatePwd=request("UpdatePwd1")
UpdateIdentity=request("UpdateIdentity")
UpdateEmail=request("UpdateEmail")
UpdatePhone=request("UpdatePhone")
UpdateAddress=request("UpdateAddress")
UpdatePostCode=request("UpdatePostCode")
end if
%>
<HTML>
<HEAD>
<TITLE>修改用户注册信息</TITLE>
</HEAD>
<BODY>
<H3 align="center">在线图书销售管理系统--修改用户注册信息</H3>
<HR>
<FORM action="EditUserInfo.asp" name="UpdateForm" METHOD="Post">
<TABLE ALIGN="CENTER" CELLPADDING="2">
<TR>
<TD ALIGN="RIGHT">用户名：</TD>
<TD><INPUT TYPE="text" NAME="UpdateName" MAXLENGTH="20"
value="<%=UpdateName%>"><FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">口 令：</TD>
<TD><INPUT TYPE="text" NAME="UpdatePwd1" MAXLENGTH="10"
value="<%=UpdatePwd%>"><FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD></TD>
<TD><INPUT TYPE="text" NAME="UpdatePwd2" MAXLENGTH="10"
value="<%=UpdatePwd%>"><FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">身份证号：</TD>
<TD><INPUT TYPE="text" NAME="UpdateIdentity" MAXLENGTH="10"
value="<%=UpdateIdentity%>"><FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">电子邮件：</TD>
<TD><INPUT TYPE="text" NAME="UpdateEmail" MAXLENGTH="10"
value="<%=UpdateEmail%>"><FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">联系电话：</TD>
<TD><INPUT TYPE="text" NAME="UpdatePhone" MAXLENGTH="10"
value="<%=UpdatePhone%>"><FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">联系地址：</TD>
<TD><INPUT TYPE="text" NAME="UpdateAddress" MAXLENGTH="10"
value="<%=UpdateAddress%>"><FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">邮政编码：</TD>
<TD><INPUT TYPE="text" NAME="UpdatePostCode" MAXLENGTH="10"
value="<%=UpdatePostCode%>"><FONT color="red">*</FONT>
</TD>
</TR>
<TR>
<TD COLSPAN="2" align="center"><INPUT TYPE="button" NAME="UpdateButton"
VALUE="保存修改的注册信息" onClick="ValidateUpdateForm">
</TD>
</TR>
</TABLE></FORM>
<%
if request("UpdateName")<>"" then '保存修改后的注册信息
querystr = "SELECT * FROM 注册用户 WHERE user_name = '" & request("UpdateName") & "'"
'创建Recordset对象
Set rstemp=Server.CreateObject("ADODB.Recordset")
Set rstemp.ActiveConnection = cn
rstemp.CursorType =1
rstemp.LockType = 3
'检查用户名是否重复
rstemp.open querystr
if not rstemp.eof then
if rstemp.fields("user_id")<>rs.fields("user_id") then
response.write "<div align=center><font color=red>用户名重复！</font></div>"
else
'保存修改后的用户注册信息
rs.fields("user_name")= request("UpdateName")
rs.fields("user_pwd")= request("UpdatePwd1")
rs.fields("user_Identity")=request("UpdateIdentity")
rs.fields("user_email")=request("UpdateEmail")
rs.fields("user_phone")=request("UpdatePhone")
rs.fields("user_address")=request("UpdateAddress")
rs.fields("user_postcode")=request("UpdatePostCode")
rs.update
session("username")=request("UpdateName") '保存当前用户修改后的用户名
response.write "<div align=center><font color=red>修改后的注册信息已被成功保存！</font></div>"
end if
else
'保存修改后的用户注册信息
rs.fields("user_name")= request("UpdateName")
rs.fields("user_pwd")= request("UpdatePwd1")
rs.fields("user_Identity")=request("UpdateIdentity")
rs.fields("user_email")=request("UpdateEmail")
rs.fields("user_phone")=request("UpdatePhone")
rs.fields("user_address")=request("UpdateAddress")
rs.fields("user_postcode")=request("UpdatePostCode")
rs.update
session("username")=request("UpdateName") '保存当前用户修改后的用户名
response.write "<div align=center><font color=red>修改后的注册信息已被成功保存！</font></div>"
end if
'释放ADO对象
rstemp.close
rs.close
cn.close
set rs=nothing
set cn=nothing
set rstemp=nothing
response.flush
end if
%>
<HR>
<DIV align="center"><A HREF="booksaling.htm">返回首页</A></DIV>
<% else %>
请登录后再访问该页面，到<A HREF="Default.asp" TARGET="_parent">客户登录</A>页面
<% end if %>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -