📄 modify.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="top.asp" -->
<html>
<head>
</head>
<body>
<%
'取得记录标识
cl=Request.Form("hclass")
no=Request.Form("hno")
'判断用户是否具有添加数据的权限
if Session("level") < 3 then
Response.write"您没有操作权限或连接已经超时，请重新登录！"
Response.end
end if
if Request.Form("up")="确定" then
on error resume Next
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="Select * From t_student Where d_class='"&cl&"' and d_no='"&no&"'"
rs.Open sql,conn,1,3
if not rs.eof then
rs("d_class")=Trim(request.form("Class"))
rs("d_no")=Trim(request.form("No"))
rs("d_name")=Trim(request.form("Username"))
rs("d_sex")=Trim(request.form("sex"))
rs("d_age")=Trim(request.form("age"))
rs("d_phone")=Trim(request.form("phone"))
rs("d_address")=Trim(request.form("address"))
rs("d_dw")=Trim(request.form("dw"))
rs("d_email")=Trim(request.form("email"))
rs("d_memo")=Trim(request.form("memo"))
rs.update
'判断执行是否成功
if conn.Errors.Count > 0 then
Response.Write"<p>该用户已存在，请查核后修改！</p>"
else
Response.write"<p>数据修改成功！</p>"
end if
Response.end
end if
end if
Set conn=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -