dealstudentregister.asp

使用asp+sqlserver2000编写的学生管理系统

<%
  dim sno,sname,ssex,smajor,smemo,sgrade,sdate
  sno=request.Form("xh" )
  sname=request.Form("xm" )
  ssex=request.Form("xb" )
  smajor=request.Form("zy" )
  sdate=request.Form("cssj" )
  sgrade=request.Form("zxf" )
  smemo=request.Form("bz")
  dim conn,cmd
  set conn= Server.CreateObject("adodb.connection")
  conn.connectionstring="provider=sqloledb;server=(local);database=xscj;uid=sa;pwd=;"
  conn.open
  set cmd= Server.CreateObject("adodb.command")
  cmd.commandtype=1
  cmd.commandtext="insert into xs(xh,xm,xb,cssj,zy,zxf,bz) values('"&sno&"','"&sname&"',"&ssex&",'"&sdate&"','"&smajor&"',"&sgrade&",'"&smemo&"')"
  response.Write(cmd.commandtext)
 cmd.activeconnection=conn
 cmd.execute
 response.Redirect("search.asp")  
 %>