📄 site_delcomfirm.asp

📁 7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

💻 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"-->
<%
Server.ScriptTimeout=999
dim id
id=request("id")
if IsEmpty(id) then
response.redirect "error.asp"
end if 	
dim strtmp
  if purview="system" then
  strtmp=" true "
  else 
  strtmp=" adminid='" & request.querystring("main") &"'"
  end if 	
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="select sitename,siteurl from sites Where CStr(id)='" & id & "'" &" and " & strtmp
objgbrs.open sql,conn,1,1
%>
<card title="删除确认"><p align="left">
本操作将删除 <u><%=objgbrs("sitename")%></u> , 
<br/>即 <%=objgbrs("siteurl")%>
<br/>站点删除无法恢复！确定要删除吗？<br/><a href="site_manage.asp?desc=<%=request.querystring("desc")%>">不,取消操作</a><br/><br/><a href="site_delete.asp?id=<%=id%>&amp;desc=<%=request.querystring("desc")%>">是,确定删除</a><br/>
<br/><anchor>[返回上页]<prev/></anchor>
<br/><a href="site_manage.asp">[管理中心]</a>
<br/><a href="loginexit.asp">[安全退出]</a>
<br/><a href="/">[<%=mywapname%>]</a>
</p>
</card>
</wml>
<%
objgbrs.close
set objgbrs=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -