📄 more.asp
字号:
<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<%
fenlei=request("fenlei")
page=request("page")
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString")
set rs=server.createobject("adodb.recordset")
sqltext="select id,biaoti,bm,convert(char(30),fbriqi,102) as riqi,cishu from loveshenghuo where fenlei='"& fenlei &"'order by fbriqi desc"
rs.open sqltext,conn,adOpenStatic
rs.pagesize=18
if rs.eof then
response.write "没有文章"
else
select case fenlei
case 1
aa="人生感悟"
case 2
aa="情感天地"
case 3
aa="故事天空"
case 4
aa="生活体验"
case 5
aa="消费心得"
case 6
aa="道听途说"
end select
%>
<html>
<head>
<title></title>
<style type="text/css">
<!--
.botton { font-size: 12px; color: #006600; background-color: #FFFFF4}
.red { color: #FF0000}
.green { color: #006600}
.white { color: #FFFFFF}
.black { color: #000000}
-->
</style>
<link rel="stylesheet" href="3508.css">
</head>
<body bgcolor="#FFFFF4">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
<tr>
<td width="192" height="39" align="center" valign="bottom"><img src="../images/newzhao1zhao.gif" width="140" height="50"></td>
<td colspan="2" align="right" height="39" valign="bottom">
<table width="480" border="1" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF" bgcolor="#CCCCFF" cellpadding="0" cellspacing="0" height="22">
<tr align="center">
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../html/navigator.asp" class="black">本站导航</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="../sh/search.asp" class="black">二手市场</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../chat/default.asp" class="black">供求信息</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../news/index.asp" class="black">精品生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="default.asp" class="black">我爱生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../xhtj/index.asp" class="black">笑话天地</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../diaocha1/diaocha1.asp" class="black">调查生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../club/Default.asp" class="black">生活社区</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="006600"></td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="18" bgcolor="#3399FF">
<tr>
<td width="320" valign="bottom"><span class="black">【本站导航】</span><a href="../default.asp">本站首页</a>
>> <span class="red">我爱生活</span></td>
<td width="70">●<a href=default.asp?fenlei=1 class="white">人生感悟</a> </td>
<td width="70">●<a href=default.asp?fenlei=2 class="white">情感天地</a></td>
<td width="70">●<a href=default.asp?fenlei=3 class="white">故事天空</a></td>
<td width="70">●<a href=default.asp?fenlei=4 class="white">生活体验</a></td>
<td width="70">●<a href=default.asp?fenlei=5 class="white">消费心得</a></td>
<td width="70">●<a href=default.asp?fenlei=6 class="white">道听途说</a></td>
</tr>
<tr>
<td colspan="7" bgcolor="006600"></td>
</tr>
</table>
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center">
<tr valign="bottom">
<td height="30" width="166"> <span class="red">〖<%=aa%>〗</span></td>
<td height="30" width="358">本栏计〖<%=rs.pagecount%>〗页，当前为第〖<%=page%>〗页！</td>
<td height="30" width="176" align="right"><a href="fabiaowz.htm" target="_blank" class="black">我要发表文章</a>
</td>
</tr>
<tr valign="bottom">
<td height="2" bgcolor="006600" colspan="3"></td>
</tr>
</table>
<br>
<table width="600" border="1" cellspacing="0" cellpadding="0" align="center" bordercolorlight="#FFFFFF" bordercolordark="#006666" bgcolor="#CCCCFF">
<tr>
<td width="343">文章标题</td>
<td width="102">作者</td>
<td width="96">发表日期</td>
<td width="61">浏览次数</td>
</tr>
</table>
<table width="600" border="1" cellspacing="0" cellpadding="0" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#FFCCFFv">
<%
' rs.pagesize=30
rs.AbsolutePage=page
for ipage=1 to rs.pagesize
%>
<tr>
<td width="343"><a href='wenzhangxs.asp?id=<%=rs.fields(0).value%>' target="_blank">
<%
if rs.fields(1).value="" then
response.write "无题"
else
response.write rs.fields(1).value
end if
%>
</a></td>
<td width="102">
<%
if rs.fields(2).value="" then
response.write "无名氏"
else
response.write rs.fields(2).value
end if
%> </td>
<td width="96"><%=rs.fields(3).value%></td>
<td width="61"><%=rs.fields(4).value%></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
<br>
<%if rs.pagecount>1 then%>
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
<td height="1" bgcolor="FF0000"></td>
</tr>
<tr align="center" valign="bottom">
<td height="47">
<%if page>1 then%>
<input type="button" name="Button" value="首页" class="botton" onclick="window.location.href='more.asp?fenlei=<%=fenlei%>&page=1'">
<input type="button" name="Botton" value="前一页" class="botton" onclick="window.location.href='more.asp?fenlei=<%=fenlei%>&page=<%=(page-1)%>'">
<%
end if
if cint(page)<rs.pagecount then
%>
<input type="button" name="Botton" value="后一页" class="botton" onclick="window.location.href='more.asp?fenlei=<%=fenlei%>&page=<%=(page+1)%>'">
<input type="button" name="Botton" value="末页" class="botton" onclick="window.location.href='more.asp?fenlei=<%=fenlei%>&page=<%=rs.pagecount%>'">
<%end if%>
</td>
</tr>
</table>
<%
end if
end if%>
<!-- #include file="../include/end.htm"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -