📄 delall.asp

📁 wapgo网址导航整站源码,WAP源码,更多登陆http://xywap.cn

💻 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="conn.asp"-->
<!--#include file="admin.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>
<% 
acc=request("acc")
    if acc="" then
%>
<card title='删除书签'>
<p>确定全部删除?<br/>
<a href="delall.asp?acc=1">是</a><br/>
<a href="user.asp">否</a>
</p>
</card>
</wml>
<%
else
  sql="delete from user"
  Application.lock
  conn.execute sql
  Application.Unlock
Response.write "<card id='card1' title='删除书签' ontimer='user.asp'><timer value='10'/><p>删除成功，正在返回..."
Response.Write "<br/><a href='user.asp'>访客资料</a><br/><a href='index.asp'>我的书签</a></p></card></wml>"
end if
  conn.close
  set conn=nothing%>
<%else%>
<%response.redirect"index.asp"%>
<% end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -