📄 flymore.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="chkstr.inc"-->
<!--#include file="const.asp"-->
<%sss=request("sss")
ttt=request("ttt") %>
<HTML><HEAD><TITLE><%=fly_user%> - <%=sss%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style TYPE="text/css">
<!--
A:link{text-decoration:none}
A:visited{text-decoration:none}
A:hover {color: #ff00ff;text-decoration:underline}
-->
</style>
<style type="text/css">
<!--
body {font-size:9pt}
td {font-size:9pt}
-->
</style>
</head>
<body bgcolor="#666666" text="#000000" leftmargin="0" topmargin="0" background="images/home_00.gif">
<!--#include file="main.htm"-->
<table width="762" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td class="p1" align="center" height="8">
<table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#C0C0C0">
<tr>
<td width="275" class="p1" > 您的位置>><a href="default.asp"><%=fly_user%></a>>><%=sss%></td>
<td width="347" class="p1"> </td>
<td width="128" class="aq">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=762 bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111" height="108" align="center">
<TBODY>
<TR>
<TD bgColor=#FFFFFF height=108 vAlign=top width=166>
<TABLE cellPadding=0 cellSpacing=0
style="border-collapse:collapse; border-right-style:solid; border-right-color:#000000; border-left-color:#000000; border-top-color:#000000; border-bottom-color:#000000" width=158 bordercolor="#111111" border="1" >
<tr>
<td align="center"><%Select Case sss
Case "小说"%>
<IMG width="100" height="125" src="images/1-1.gif">
<%Case "诗歌"%><IMG width="100" height="125" src="images/3-3.gif">
<%Case "散文"%><IMG width="100" height="125" src="images/1-2.gif">
<%Case "随笔"%><IMG width="100" height="125" src="images/4-4.gif">
<%End Select%></td>
</tr>
</table>
<TABLE cellPadding=0 cellSpacing=0
style="border-collapse:collapse; border-right-style:solid; border-right-color:#000000; border-left-color:#000000; border-top-color:#000000; border-bottom-color:#000000" width=158 bordercolor="#111111" border="1" height="177">
<TBODY>
<tr>
<td align="center" class="aq" background="images/home_03.gif" height="28"> <table border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="aq"><font color="#FFFFFF">□ 栏 目 导 读</font></td>
</tr>
</table></td>
</tr>
<TR>
<TD class=unnamed1 height=153 vAlign=top width="180" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="91%" id="AutoNumber2">
<tr>
<td width="100%" class="p1"> <script language="javascript" src="tjnew.asp?n=<%=ttt%>"></script></td>
</tr>
</table>
</TD>
</TR></TBODY></TABLE>
<TABLE border=1 cellPadding=0 cellSpacing=0 width=158 bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111" height="89">
<TBODY>
<TR>
<TD class="aq" width="156" align="center" background="images/home_03.gif" height="28">
<table border="0" cellspacing="0" cellpadding="0" width="80%">
<tr>
<td align="center" class="aq"><font color="#FFFFFF">□ 文 章 搜 索</font></td>
</tr>
</table>
</TD>
</TR>
<tr>
<TD bgColor=#FFFFFF height=60 width="156">
<table width="98%" border="0"><FORM action=search.asp method=post name=searchtitle searchtitle
target=_blank>
<tr>
<td align="center" class="p1">
<INPUT name=ttt onFocus="this.value=''" size=12 style="font-family: 宋体; font-size: 9pt; background-color: #FFFFFF; color: #000064; border: 1 solid #000000" value="请输入关键字">
<br>
<SELECT class=unnamed5 name=sss size=1 style="font-family: 宋体; font-size: 9pt; background-color: #FFFFFF; color: #000064; border: 1 solid #000000">
<OPTION
selected value="按新闻内容">按文章标题</OPTION>
<OPTION value="按作者姓名"> 按文章作者</OPTION>
<OPTION value="按新闻内容">按文章内容</OPTION>
</SELECT>
<BR>
<INPUT class=unnamed5 name=Submit style="BACKGROUND-COLOR: #C0C0C0; COLOR: #000000; FONT-SIZE: 9pt" type=submit value="搜 索">
<INPUT class=unnamed5 name=Submit2 style="BACKGROUND-COLOR: #C0C0C0; COLOR: #000000; FONT-SIZE: 9pt" type=reset value="取 消">
</td>
</tr></FORM>
</table>
<br>
<br>
</TD>
</tr>
</TBODY></TABLE>
</TD>
<TD align=right bgColor=#ffffff height=108 vAlign=top width=697>
<div align="center">
<center>
<TABLE border=1 cellPadding=0 cellSpacing=0 width="100%" bordercolor="#000000" style="border-collapse: collapse" height="100%">
<TBODY>
<TR>
<TD height=128 vAlign=top width="690">
<div align="center">
<center>
<table width="568" border="0" cellspacing="0" bordercolor="#000000" style="border-collapse: collapse" cellpadding="0" bgcolor="#a4ce97">
<tr bgcolor="#FFFFFF">
<td width="568" valign="top" bordercolorlight="#808080" height="319" bgcolor="#FFFFFF">
<br>
<TABLE class="p1" cellSpacing=0 cellPadding=2 width="95%"
align=center border=0>
<TBODY>
<TR >
<TD width=240 height=24>
<P><B>文章名称</B></P></TD>
<TD align=middle width=79>
<DIV align=center><B>作者</B></DIV></TD>
<TD align=middle width=60>
<DIV align=center><B>推荐</B></DIV></TD>
<TD align=middle width=67>
<DIV align=center><B>日期</B></DIV></TD>
<TD align=middle width=32>
<P align=center><B>阅读</B></P></TD>
<TD align=middle width=32>
<P align=center><B>评论</B></P></TD>
</TR>
<TR>
<TD background=images/line.gif colSpan=6
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 shenghe='已审' and (typeid like '%"&checkStr(ttt)&"%') order by dateandtime Desc"
rs.open sql,conn,1,1%>
<%
if mmm<>0 then
for iisf=1 to mmm *15
if rs.eof then exit for
rs.movenext
next
end if
do while not rs.eof
if i mod 2=1 then
response.write ""
else
response.write ""
end if%>
<TR>
<TD width=240><A
href="openarticle.asp?id=<%=rs("newsid")%>"
target=_blank><%=rs("title")%></A></TD>
<TD align=middle width=79><A
href=userinfo.asp?username=<%=rs("zznews")%>
target=_blank><%=rs("zznews")%></A></TD>
<TD align=middle width=60>
<DIV align=center><font color="#397904"><%=rs("tjnews")%></font></DIV>
</TD>
<TD align=middle width=67><%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%></TD>
<TD align=middle width=32><%=rs("hits")%></TD>
<TD align=middle width=32>
<P align=center><%=rs("reviewcount")%></P></TD>
</TR>
<TR>
<TD background=images/line.gif colSpan=6
height=1></TD>
</TR>
<% i=i+1
rs.movenext
if i=15 then exit do
loop
%>
</TBODY></TABLE>
<TABLE cellSpacing=2 cellPadding=2 width="95%" class="p1"
border=0 bgcolor="#C0C0C0" align="center">
<TBODY>
<TR>
<TD>
第 <%=mmm+1%> 页
<!--上页-->
<%if mmm<>0 then%>
<%="<a href=flymore.asp?mmm=" & mmm-1 & "&sss=" & sss & "&ttt=" & ttt & ">上页</a>"%>
<%end if%>
<!--下页-->
<%if not rs.eof then%>
<%="<a href=flymore.asp?mmm=" & mmm+1 & "&sss=" & sss & "&ttt=" & ttt & ">下页</a>"%>
<%end if%>
15篇每页</TD>
</TR>
</TBODY>
</TABLE>
</td>
</tr> <%
rs.close
set rs=nothing
conn.close
set conn=nothing %>
</table>
<br>
</center>
</div>
</TD></TR></TBODY></TABLE>
</center>
</div>
</TD></TR></TBODY></TABLE>
<!--#include file="mai.htm"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -