deletestudent.asp

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

<!--#include file="inc\adovbs.inc"-->
<!--#include file="inc\conn.inc"-->
<%
dim sno,cno
sno=request.QueryString("sno")
dim cmd
set cmd=Server.CreateObject("adodb.command")
cmd.activeconnection=conn
str="delete from xs where xh='"&sno&"'"
response.Write str
cmd.commandtype=adCmdText
cmd.commandtext=str
cmd.execute
set cmd=nothing
conn.close
set conn=nothing
'response.redirect("showStudent.asp")
%>