savemodify.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 51 行

ASP
51 行
字号 
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!--#include file="newconn.asp"-->
<%
dim UserID
dim sex
dim useremail
dim userpassword
dim comefrom
dim homepage
UserID=request("UserID")
sex=request.form("sex")
useremail=replace(trim(request.form("email")),"<","&lt;")
userpassword=replace(trim(request.form("password")),"<","&lt;")
comefrom=replace(trim(request.form("comefrom")),"<","&lt;")
homepage=replace(trim(request.form("homepage")),"<","&lt;")

on error resume next

dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql="select * from user where UserID="&UserID
rs.open sql,conn,1,3

rs("sex")=sex
rs("useremail")=useremail
rs("UserPassword") = UserPassword
rs("comefrom")=comefrom
rs("homepage")=homepage
rs.Update
rs.close
conn.close

if err.number<>0 then 
   err.clear
   FoundError=true
   ErrMsg="数据库操作失败，请以后再试"&err.Description 
   response.write ErrMsg
else
   response.write "<html><head>"
   response.write "<link rel=stylesheet type=text/css href=forum.css>"
   response.write "</head><body>"
   response.write "<p align=center><br>修改成功！请记住你的密码。<br></p>"
   response.write "</body></html>"

end if

%>

savemodify.asp - 源码说明

本页面展示了「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」中的 savemodify.asp 源码文件，采用 ASP 编程语言编写，共 51 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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