📄 adminping.asp

📁 这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的.. 如果你们可以.改良 ..改良...弄好它..就好啦!

💻 ASP

字号:

<%
  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>2 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if

%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="inc/admin.css">
</head>
<!--#include file="conn.asp"-->
<body>
<table align="center" width="97%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr><td colspan="8" class=lanyuss>评论管理</td></tr>
<% 
set rs = server.createobject("adodb.recordset")
sql="select * from article order by articleid desc" 
rs.open sql,conn,1,1
if not rs.eof then
title=rs("title")
end if 
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from sheet order by ID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then

	response.write "<tr><td colspan='5'>还没有任何评论</td></tr>"
	else
Page=Int(Abs(Request("page")))
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then page=1
rs.pagesize = 18 '每页显示记录数
total = rs.RecordCount
mp = rs.pagesize
rs.absolutepage = page
i=0:k=0
do while not rs.eof and mp>0:k=k+1
%>
<tr class=lanyuds><td><%=(page-1)*18+i+1%></td><td><%=rs("name")%></td><td><%=rs("note")%></td><td><%=rs("time")%></td><td><%=rs("shouji")%></td><td><a href='dellping.asp?id="&rs("id")&"&amp;zuti="&rs("zuti")&"'>删除</a></td><td><a href='viweart.asp?id=<%=rs("zuti")%>'>所在文章</a></td></tr> 
<%
i=i+1
mp=mp-1
rs.movenext
loop
%>
<tr><td align="center" colspan="8" class=lanyuqs>
<%
if page>rs.pagecount then Response.redirect("adminping.asp?page="&rs.pagecount)
if page>1 then
response.Write("<a href='adminping.asp?page=1'>&#x9996;&#x9875;</a>")
response.Write(" <a href='adminping.asp?page="&page-1&"'>&#x4E0A;&#x4E00;&#x9875;</a> ")
end if


if page<rs.pagecount then
response.Write("<a href='adminping.asp?page="&page+1&"'>&#x4E0B;&#x4E00;&#x9875;</a>")
response.Write(" <a href='adminping.asp?page="&rs.pagecount&"'>&#x5C3E;&#x9875;</a>")
end if
response.Write(" &#x5171;"&total&"编评论 ")
end if

rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</td></tr>
</table>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -