addnew.asp

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

<%
  name1=request("text1")
  sex=request("sel1")
  borndate=request("text2")
  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
    ' 建立Recordset对象并以追加记录方式打开数据表classmate
  set rs=server.createobject("adodb.recordset")
  set rs1=server.createobject("adodb.recordset")
  sql="select * from classmate where 姓名='"& name1 &"'"
  rs.Open sql,conn,1,1
  if rs.EOF or rs.bof then
    rs1.Open "classmate",conn,1,2
    rs1.addnew array("姓名","性别","出生日期","电话","手机","住址","单位","email"),_
             array(name1,sex,borndate,phone,policy,address,company,email)
%>	
<script language="vbscript">
    alert ("同学信息添加成功!!!!")
    window.location.href = "index.asp"
</script>
<%
    rs1.close
    set rs1=nothing
  else
%>	
<script language="vbscript">
    alert ("此同学早已添加！")
    history.back
</script>
<%	
  end if
  rs.Close
  set rs=nothing
%>