dealstudentedit.asp

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

<% 
dim conn,cmd
dim xh,xm,xb,cssj,zy,zxf,bz
xh=request.Form("xh")
xm=request.Form("xm")
xb=request.Form("xb")
zy=request.Form("zy")
cssj=request.Form("cssj")
zxf=request.Form("zxf")
bz=request.Form("bz")
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="update xs set xm='"&xm&"',xb="&xb&",cssj='"&cssj&"',zy='"&zy&"',zxf="&zxf&",bz='"&bz&"' where xh='"&xh&"'"
response.Write cmd.commandtext
cmd.activeconnection=conn
cmd.execute
response.Redirect "search.asp"
conn.close
set conn=nothing
 %>