updateinfo.asp

来自「书店的管理系统。不错的一个源程序。提供给大家。」· ASP 代码 · 共 119 行

ASP
119 行
字号 
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY  style="FONT-SIZE: 9pt">

<%
log_name=Session("log_name")
name=Request.form("name")
gender=Request.form("gender")
e_mail=Request.form("e_mail")
passwrd=Request.form("passwrd")
passque=Request.form("passque")
passans=Request.form("passans")
comaddr=Request.form("comaddr")
zipcode=Request.form("zipcode")
detaddr=Request.form("detaddr")
othercom=Request.form("othercom")
tel=Request.form("tel")

set con=server.createobject("ADODB.Connection")
con.open Application("str_con")

set res=server.createobject("ADODB.Recordset")
set res.ActiveConnection = con

res.source="select name,gender,e_mail,passwrd,passque,passans,comaddr,zipcode,detaddr,othercom,tel from User_login where log_name='"&log_name&"'"
res.cursorlocation=3
res.LockType=2
res.open ,,adOpenDaynamic

if res.recordcount<1 then
	Response.Write "没有查找到您的个人信息！"
else
	res("name").value=name
	res("gender").value=gender
	res("e_mail").value=e_mail
	res("passwrd").value=passwrd
	res("passque").value=passque
	res("passans").value=passans
	res("comaddr").value=comaddr
	res("zipcode").value=zipcode
	res("detaddr").value=detaddr
	res("othercom").value=othercom
	res("tel").value=tel

	res.Update

	if con.errors.count>0 then
		response.write "系统发生错误："&con.errors(0).description
	else
%>

<p>您的个人信息已经修改成功！您的个人信息是：</p>

<p>&nbsp;</p>

<table width="75%" border="0" align="center"  style="FONT-SIZE: 9pt">
  <tr>
    <td width="40%">用户名：</td>
    <td width="60%"><%response.write log_name%></td>
  </tr>
  <tr>
    <td width="40%">密码：</td>
    <td width="60%"><%response.write passwrd%></td>
  </tr>
  <tr>
    <td width="40%">密码提示问题：</td>
    <td width="60%"><%response.write passque%></td>
  </tr>
  <tr>
    <td width="40%">密码提示问题答案：</td>
    <td width="60%"><%response.write passans%></td>
  </tr>
  <tr>
    <td width="40%">真实姓名：</td>
    <td width="60%"><%response.write name%></td>
  </tr>
  <tr>
    <td width="40%">性 别：</td>
    <td width="60%"><%response.write gender%></td>
  </tr>
  <tr>
    <td width="40%">通讯地址：</td>
    <td width="60%"><%response.write comaddr%></td>
  </tr>
  <tr>
    <td width="40%">邮政编码：</td>
    <td width="60%"><%response.write zipcode%></td>
  </tr>
  <tr>
    <td width="40%">联系电话：</td>
    <td width="60%"><%response.write tel%></td>
  </tr>
  <tr>
    <td width="40%">E-MAIL：</td>
    <td width="60%"><%response.write e_mail%></td>
  </tr>
  <tr>
    <td width="40%">详细住址：</td>
    <td width="60%"><%response.write detaddr%></td>
  </tr>
  <tr>
    <td width="40%">其他联系方式：</td>
    <td width="60%"><%response.write othercom%></td>
  </tr>
</table><p>&nbsp;</p>
<%
	end if
end if

res.close
con.close()
%>

</BODY>
</HTML>

updateinfo.asp - 源码说明

本页面展示了「书店的管理系统。不错的一个源程序。提供给大家。」中的 updateinfo.asp 源码文件，采用 ASP 编程语言编写，共 119 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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