📄 ok.asp
字号:
<!--#include file="const.asp"-->
<!--#include file="articleconn.asp"-->
<html>
<%username=request.querystring("username")
page=request.querystring("page")
Set rs = Server.CreateObject("ADODB.Recordset")
username=session("UserName")
passwd=session("Passwd")
sql="select * from admin where username='"&UserName&"'and passwd='"&Passwd&"'"
rs.open sql,conn,3,3
if rs.eof then
key=rs("oskey")
response.redirect "login.asp"
response.end
end if
%>
<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>
<body bgcolor="#C0C0C0" text="#000000">
<TABLE cellSpacing=0 cellPadding=0 width="90%" align=center
>
<TBODY>
<tr align="left">
<td colSpan=4 height="25" ><font color="#FF0000">以下是您已经审核通过的文章，不允许修改删除，如果您一定要修改，请联系:
<a href="mailto:styling@21cn.com">styling@21cn.com</a></font></td>
</tr>
<TR class=lanmu>
<TD width=40% height=24>
<P><B>作 品 标 题</B></P>
</TD>
<TD align=middle width=15%>
<DIV align=center><B>所在栏目</B></DIV>
</TD>
<TD align=middle width=30%>
<DIV align=center><B>日期</B></DIV>
</TD>
<TD align=middle width=15%>
<P align=center><B>阅读</B></P>
</TD></TR>
<TR>
<TD background=images/line.gif colSpan=4
height=1></TD>
</TR>
<%
mmm=request("mmm")
if mmm="" then mmm=0
ttt=request("ttt")
set rs=server.createobject("adodb.recordset")
sql ="select * from article where zznews='"&session("username")&"' order by dateandtime Desc"
rs.open sql,conn,1,1%>
<% i=0 %>
<%
if mmm<>0 then
for iisf=1 to mmm *10
if rs.eof then exit for
rs.movenext
next
end if
do while not rs.eof %>
<TR>
<TD width=40%><a href=go.asp?id=<%=rs("newsid")%> ) target="_blank"><%=rs("title")%></a></TD>
<TD align=middle width=15%><%=rs("typename")%> </TD>
<TD align=middle width=30%><%=rs("dateandtime")%></TD>
<TD align=middle width=15%><%=rs("hits")%></TD>
</TR>
<TR>
<TD background=images/line.gif colSpan=4
height=1></TD>
</TR>
<% i=i+1
rs.movenext
if i=10 then exit do
loop
%>
</TBODY></TABLE>
<TABLE cellSpacing=2 cellPadding=2 width="90%"
border=0 align=center>
<TBODY>
<TR>
<TD>第 <%=mmm+1%> 页
<%if mmm<>0 then%>
<%="<a href=userlogin.asp?mmm=" & mmm-1 & ">上页</a>"%>
<%end if%>
<%if not rs.eof then%>
<%="<a href=userlogin.asp?mmm=" & mmm+1 & ">下页</a>"%>
<%end if%>
</TD>
</TR></TBODY></TABLE>
<% rs.close
set rs=nothing
conn.close
set conn=nothing%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -