deletestudentbysno.asp

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

<% 
dim conn,cmd
dim xh
xh=request.QueryString("sno")
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="delete from xs where xh='"&xh&"'"
'response.Write cmd.commandtext
cmd.activeconnection=conn
cmd.execute
conn.close
set conn=nothing
response.Redirect "search.asp"
 %>