dodelviewwebsite.asp
来自「asp图书馆管理系统的一个源代码」· ASP 代码 · 共 43 行
ASP
43 行
<!--#include file="globe/DataConnect.asp"-->
<%
Dim ID,sql,SubName,Num,SubNum
ID=trim(request.querystring("ID"))
SubNum=trim(request.querystring("SubNum"))
SubName=trim(request.querystring("SubName"))
Num=trim(request.querystring("Num"))
sql = "Delete From Website Where ID="&ID&" "
Cnn.Execute sql
Set sql = Nothing
%>
<!--#include file="globe/DataClose.asp"-->
<html>
<head>
<title>DoDelViewWebsite</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" TYPE="text/css" HREF="globe/style.css">
</head>
<body bgcolor="#ccddff">
<%'error handler
Dim error
error=request.querystring("error")
if error<>"" then
response.write error&"<br>"
end if
%>
<div id='layer1' style='position:absolute;width:550px;top:100px;left:31px'>
<TABLE bgColor=#ffffff border=1 borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0>
<TBODY>
<TR><TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=25 width=550>
<P align="center">删除完成,请点击<A href='list.asp?SubName=<%=SubName%>&Num=<%=Num%>&SubNum=<%=SubNum%>'>
<返回></P>
</TD></tr>
</tbody></table></div>
<%Set SubName = Nothing:Set Num = Nothing:Set SubNum = Nothing%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?