modifynew.asp.txt

来自「ASP 网页数据库短训教程源码」· 文本 代码 · 共 35 行

<%
  dim sql
  dim rs
  borndate=request("text2")
  if isdate(borndate)=0 then 
%>	
<script language="vbscript">
    alert ("生日输入错误，将返回前页！")
    history.back
</script>
<%	
    response.end
  end if
  name1=request("text1")
  sex=request("sel1")
  phone=request("text3")
  policy=request("text4")
  address=request("text5")
  company=request("text6")
  email=request("text7")
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.MapPath("classmate.mdb")
  Conn.Open
  set rs=server.createobject("adodb.recordset")
  sql="update classmate set 性别='"& sex &"',出生日期 ='"&borndate&_
      "',电话='"&phone&"',手机='"& policy&"',住址='"& address &_
      "',单位 ='"&company&"',Email='"& email&"' where 姓名='" & name1 & "'"
  rs.Open sql,conn,1,2
%>	
<script language="vbscript">
  alert ("信息修改成功!!!!")
  window.location.href = "modifydisplay.asp"
</script>