📄 site_delete.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %><% Response.ContentType="text/vnd.wap.wml; charset=utf-8" %><?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#INCLUDE FILE="../data/conn.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<!--#include file="loginoff.asp"-->
<%
dim id
id=request.querystring("id")
if IsEmpty(id) then
response.redirect "error.asp"
end if
dim delsiteid,strtmp
if purview="system" then
strtmp=" true "
else
strtmp=" adminid='" & request.querystring("main") &"'"
end if
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="select * from sites Where CStr(id)='" & id & "'" & " and " & strtmp
objgbrs.open sql,conn,1,1
delsiteid=objgbrs("siteid")
objgbrs.close
set objgbrs=nothing
sql="delete from reg where siteid='" & delsiteid &"'"
conn.Execute(sql)
sql="delete from sites where siteid='" & delsiteid &"'" &" and " & strtmp
conn.Execute(sql)
conn.close
set conn=nothing
%>
<card id='card1' title='删除成功' ontimer='site_manage.asp?desc=<%=request.querystring("desc")%>'><timer value='10'/>
<p>删除成功！正在返回...
<br/><a href='site_manage.asp?desc=<%=request.querystring("desc")%>'>[管理中心]</a>
</p>
</card>
</wml>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -