classstudentdelok.asp
来自「这是一个基于sql和asp的网页设计」· ASP 代码 · 共 59 行
ASP
59 行
<!--#include file="connectionstring.asp"-->
<%
IdClass=request.cookies("IdClass")
if IdClass=" " then
response.write "非法操作!"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<body background="Back1.jpg">
<%
name=request("name")
id=request("id")
idc=left(id,8)
if idc<>IdClass then
response.write "输入学号错误,请重新输入!"
response.end
end if
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open strConn
sql1 = "select * from stu where id='"&id&"'and name='"&name&"'"
set rs1=conn.Execute (sql1)
if rs1.eof then
response.write "输入学号或姓名错误,请确定删除名单!"
response.end
end if
name1=rs1("name")
sql = "delete stu where id='"&id&"'"
conn.Execute (sql)
sql1="delete sels where ids='"&id&"'"
conn.Execute (sql1)
%>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><b><font color="#0000FF" size="6">已经成功删除</font></b></p>
<p align="center"></font><font color="#FF0000"><input type="button" value="删除下一个" onClick="history.back()" name="dd"></p>
</font>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?