postmodify_1.asp

《asp网页设计》作者沈才梁源代码,共十章

<!--#Include File=conn.asp -->
<%
ID=request.form("ID") 
Name=request("Name")
Sex=request("Sex")
Tel=request("Tel")
Birthday=Cdate(request("Birthday"))
Address=request("Address")
Email=request("Email")
If trim(Name)="" then 
  response.write "姓名不能为空，请重新输入！"
  response.end
end If  
SqlStr="Select * from UserList Where Id=" & Id '先查询到指定ID的记录
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open SqlStr,Conn,0,2
If Rs.bof And Rs.Eof then
  Response.write "该记录已经被删除！"
Response.end
Else
Rs("姓名")=Name
Rs("性别")=Sex 
Rs("电话")=Tel
Rs("出生日期")=Birthday
Rs("地址")=Address
Rs("Email")=Email
Rs.Update
End If
Rs.Close
Set Rs=Nothing
response.redirect "show.asp"
'修改完毕，返回show.asp页面
%>