📄 ycms@pl.asp

📁 安全性好,适用于展示和进行资源下载的个人和大型网站使用!

💻 ASP

字号:

<!--#include file="inc/conn.asp"-->
<%
call checkadmin("admin")
If Request.QueryString("action")="del" Then
conn.execute("delete * from [YCMS_pl]")
	   	call addlog("绠＄悊鍛榌"&supername&"]鎴愬姛鍒犻櫎浜嗗叏閮ㄨ瘎璁猴紒")
End If
Select Case Request.QueryString("action")
Case "news"
sql="select * from [YCMS_pl] where pltab='YCMS_news' order by id desc"
Case "art"
sql="select * from [YCMS_pl] where pltab='YCMS_art' order by id desc"
Case "pic"
sql="select * from [YCMS_pl] where pltab='YCMS_pic' order by id desc"
Case "down"
sql="select * from [YCMS_pl] where pltab='YCMS_down' order by id desc"
Case "dj"
sql="select * from [YCMS_pl] where pltab='YCMS_dj' order by id desc"
Case "other"
sql="select * from [YCMS_pl] where pltab='YCMS_other' order by id desc"
Case Else
sql="select * from [YCMS_pl] order by id desc"
End Select 
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<html>
<head>
<script type='text/javascript' language='javascript' src='inc/js.js'></script>
<meta http-equiv="content-type" content="text/html;charset=utf-8">
<link rel="STYLESHEET" type="text/css" href="inc/css.css">
</head>
<body>
<table width="100%"  border="0" cellpadding="0" cellspacing="0" rules=none class=3d><tr class="bg"  height="22"><td>&nbsp;<img src=img/admin.gif border=0 width=15 height=15 align=absMiddle>&nbsp;<a href="?action=all">鍏ㄩ儴璇勮

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -