📄 delwz.asp

📁 功能说明： 1
💻 ASP
字号:
<!--#include file="adyou.asp"-->
<%
if session("super")<>"super" then
 response.Write("<script>alert('您没权限访问本页');window.location.href='de.asp'</script>")
 response.End()
end if
%>
<%
id=request("id")
if id="" then
 response.Write("<script>alert('参数丢失');window.location.href='wz.asp'</script>")
Response.End
end if
del=request("del")
if del="yes" then
delete=request("id")
if delete<>"" and session("lastdeleted")<>delete then
adyou.execute "delete from XS20_WEB where id="&delete
  response.Write("<script>alert('删除成功');window.location.href='wz.asp'</script>")
session("lastdeleted")=delete
end if
end if
%>
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<LINK href="../images/yxwancss.css" type=text/css rel=StyleSheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY><br>
<form action="" method="get">
<%
set r=server.createobject("adodb.recordset")
r.open "select * from XS20_WEB where id="&id,adyou,1,3
if not r.eof then
%>
<big>
<table width="50%" border="1" align="center" cellpadding="4" cellspacing="0" bordercolor="#C0C0C0" style="border-collapse: collapse">
<tr bgcolor="#E8E8E8">
  <td height="30" colspan="2"><div align="center">删除网站</div></td>
  </tr>
<tr bgcolor="#FFFFFF">
<td width="23%">网站编号：</td><td width="77%"><%=r("id")%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>网站名称：</td><td><%=r("title")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>网站URL：</td><td><%=r("url")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>所属类别：</td>
<td><%
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select classname from XS20_CLASS where classid="&r("classid"),adyou,1,3
%><%=rs("classname")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>其他信息：</td>
<td><%=r("memo")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2">&nbsp;
  <div align="center">
  <input name="del" value="yes" type="hidden">
  <input name="id" value=<%=id%> type="hidden">
  <input type="submit" value="确定删除">
&nbsp;</div></td>
</tr>
</table>
<%
end if
%>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -