📄 shenhe.asp
字号:
<!--#include file="chkstr.inc"-->
<!--#include file="const.asp"-->
<!--#include file="articleconn.asp"-->
<%
IF not(Session("KEY")="super" or session("KEY")="check" ) THEN
response.redirect "error.asp?id=065"
response.end
END IF
%>
<html>
<head>
<title>风格写手----->审核文章</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
a:link { text-decoration: underline; color: #000000; font-family: 宋体 }
a:visited { text-decoration: underline; color: #000000; font-family: 宋体 }
a:hover { text-decoration: underline; color: #cc0000 }
body {font-family: "宋体"; font-size: 9pt;line-height: 12pt;}
table {font-family: "宋体"; font-size: 9pt;line-height: 12pt;}
-->
</style>
</head>
<%
const MaxPerPage=12
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim sql
dim rs
dim rstype
dim typesql
dim typeid1,typename1
if request("typename1")<>"" then
typename1=request("typename1")
else
typename1="校园文学"
end if
if request("typeid1")<>"" then
typeid1=request("typeid1")
else
typeid1=1
end if
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<body bgcolor="#C0C0C0" text="#000000">
<table border="0" cellspacing="0" style="border-collapse: collapse" align="center" width="90%">
<tr>
<td width="585" bordercolorlight="#666666" height="6" bordercolordark="#666666" colspan="5">
<b><font color="#FF0000">分 类 栏 目:</font></b>
<%
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open "select * from type",conn,1
if rst.EOF then
response.write "没有栏目：（"
else
%>
<%do while NOT rst.EOF%>
<a href="shenhe.asp?typename1=<%=rst("type")%>&mmm=0"> <%=rst("type")%></a>
<%
rst.MoveNext
loop
end if
%>
</td>
</tr>
<tr>
<td width="254" bordercolorlight="#666666" height="6" bordercolordark="#666666">
<p align="left"><b><font size="2"> </font> 作 品 标 题</b>
</td>
<td width="64" bordercolorlight="#808080" height="6">
<p align="center"><span lang="zh-cn"><b>作 者</b></span>
</td>
<td width="86" bordercolorlight="#808080" height="6">
<p align="center"><b>发表日期 </b>
</td>
<td width="90" bordercolorlight="#808080" height="6">
<p align="center"><b>审核</b>
</td>
<td width="91" bordercolorlight="#808080" height="6">
<p align="center"><b>操 作</b>
</td>
</tr>
<TR>
<TD background=images/line.gif colSpan=5
height=1></TD>
</TR>
<!--#include file="chkstr.inc"-->
<%
mmm=request("mmm")
if mmm="" then mmm=0
ttt=request("ttt")
set rs=server.createobject("adodb.recordset")
if request("typename1")="" then
sql ="select * from shenhe order by dateandtime desc"
else
sql ="select * from shenhe where type='"&typename1&"' order by dateandtime Desc"
end if
rs.open sql,conn,1,1%>
<% i=0 %>
<% total=rs.recordcount
if (total mod MaxPerPage)=0 then
currentpage= total \ MaxPerPage
else
currentpage= total \ MaxPerPage + 1
end if
if mmm<>0 then
for iisf=1 to mmm *12
if rs.eof then exit for
rs.movenext
next
end if
do while not rs.eof
if i mod 2=1 then
response.write "<tr background='img/line1.gif' align=center>"
else
response.write "<tr background='img/line1.gif' align=center>"
end if%>
<td width="254" align="center" height="24">
<p align="left"> <a href="shgo.asp?id=<%=rs("newsid")%>" ) target="_blank"><%=rs("title")%></a>
</p>
</td>
<td width="64" align="center" height="24"><a href="userinfo.asp?username=<%=rs("username")%>"><%=rs("username")%></a>
</td>
<td width="86" align="center" height="24">
<p> <%=rs("dateandtime")%>
</td>
<td width="90" align="center" height="24">
<% if rs("shenghe")="待审" then%>
<a href="editshenhe.asp?id=<%=rs("newsid")%>" >审核</a>
<%else%>
<%=rs("shenghe")%>
<%end if%>
</td>
<td width="89" align="center" height="24">
<p align="center"><a href="tuigao.asp?id=<%=rs("newsid")%>">退稿</a><font size="2"> </font><a href="deleshenhe.asp?id=<%=rs("newsid")%>">删除</a></p>
</td>
<TR>
<TD background=images/line.gif colSpan=5
height=1></TD>
</TR>
<% i=i+1
rs.movenext
if i=12 then exit do
loop
%>
</table>
<TABLE cellSpacing=2 cellPadding=2 width="90%"
border=0 align=center>
<TBODY>
<TR>
<TD>第 <%=mmm+1%> 页
<!--上页-->
<%=mmm+1%>/<%=currentpage%>页
<%if mmm<>0 then%>
<a href="shenhe.asp?typename1=<%=request("typename1")%>&mmm=<%=mmm-1%>">上页</a>
<%end if%>
<!--下页-->
<%if not rs.eof then%>
<a href="shenhe.asp?typename1=<%=request("typename1")%>&mmm=<%=mmm+1%>">下页</a>
<%rst.close%>
<%end if%>
共《<%=total%>》篇 </TD>
</TR></TBODY></TABLE>
<br>
</body>
</html>
<%set rst=nothing
conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -