rigpost.asp

本系统分两个子功能： 一：学生事务 统计学生的入学

<%
dim conn,connstr
connstr="Driver={sql server};UID=sa;PWD=sa;database=zikao;server=BILLGATES"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=Server.CreateObject("ADODB.Recordset")
set rs1=Server.CreateObject("ADODB.Recordset")
set rs2=Server.CreateObject("ADODB.Recordset")
sql1="select * from department where departmentno='"&request("Department")&"'"
rs1.open sql1,conn
no=request.Form("Sno")
name1=request.Form("Sname")
sex=request("Sex")
age=request("Age")
department=rs1(1)
rs1.close
set rs1=nothing
special=request("Profecial")
home=request.Form("Home")
nation=request.Form("Nation")
idcard=request.Form("IDcard")
email=request.Form("Emial")
telno=request.Form("Telno")
address=request.Form("Address")
free=request.Form("Free")
sql="insert into register values( '"&no&"','"&name1&"','"&sex&"','"&age&"','"&department&"','"&special&"','"&home&"','"&nation&"','"&idcard&"','"&email&"','"&telno&"','"&address&"','"&free&"')"
rs.open sql,conn,1,2,1
response.Write ("输入成功")
sql2="insert into stulog values( '"&no&"','"&no&"')"
rs2.open sql2,conn
%>