dealsturegister.asp

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

<!--#include file="inc/conn.inc" -->
<!--#include file="inc/adovbs.inc" -->
<% 
dim xh,xm,xb,sscj,zy,zxf,bz
dim cmd
set cmd= Server.CreateObject("adodb.command")
xh=request.Form("xh")
xm=request.Form("xm")
xb=cint(request.Form("xb"))
cssj=request.Form("cssj")
zy=request.Form("zy")
zxf=cint(request.Form("zxf"))
bz=request.Form("bz")
cmd.commandtype=adCmdText
cmd.commandtext="insert into xs(xh,xm,xb,cssj,zy,zxf,bz) values('"&xh&"','"&xm&"',"&xb&",'"&cssj&"',"&"'"&zy&"',"&zxf&",'"&bz&"')"
response.Write cmd.commandtext
cmd.activeconnection=conn
cmd.execute
response.Redirect("showStudent.asp")
 %>