testpost.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")
sno=request.Form("sno")
cno=request("Dcno")
cname=request("Dcname")
stime=request("stime")
sql="insert into grade(coursename,courseno,coursegrade,coursetime,sno) values( '"&cname&"','"&cno&"','"&"0','"&stime&"','"&sno&"')"
rs.open sql,conn,1,2,1
response.Write"输入成功"
'response.Write cno
'response.Write cname

%>