?? more.asp
字號(hào):
<%@ 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 "沒(méi)有文章"
else
select case fenlei
case 1
aa="人生感悟"
case 2
aa="情感天地"
case 3
aa="故事天空"
case 4
aa="生活體驗(yàn)"
case 5
aa="消費(fèi)心得"
case 6
aa="道聽途說(shuō)"
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">本站導(dǎo)航</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="../sh/search.asp" class="black">二手市場(chǎng)</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">我愛(ài)生活</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">調(diào)查生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../club/Default.asp" class="black">生活社區(qū)</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">【本站導(dǎo)航】</span><a href="../default.asp">本站首頁(yè)</a>
>> <span class="red">我愛(ài)生活</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">生活體驗(yàn)</a></td>
<td width="70">●<a href=default.asp?fenlei=5 class="white">消費(fèi)心得</a></td>
<td width="70">●<a href=default.asp?fenlei=6 class="white">道聽途說(shuō)</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">本欄計(jì)〖<%=rs.pagecount%>〗頁(yè)，當(dāng)前為第〖<%=page%>〗頁(yè)！</td>
<td height="30" width="176" align="right"><a href="fabiaowz.htm" target="_blank" class="black">我要發(fā)表文章</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">文章標(biāo)題</td>
<td width="102">作者</td>
<td width="96">發(fā)表日期</td>
<td width="61">瀏覽次數(shù)</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 "無(wú)題"
else
response.write rs.fields(1).value
end if
%>
</a></td>
<td width="102">
<%
if rs.fields(2).value="" then
response.write "無(wú)名氏"
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="首頁(yè)" class="botton" onclick="window.location.href='more.asp?fenlei=<%=fenlei%>&page=1'">
<input type="button" name="Botton" value="前一頁(yè)" 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="后一頁(yè)" class="botton" onclick="window.location.href='more.asp?fenlei=<%=fenlei%>&page=<%=(page+1)%>'">
<input type="button" name="Botton" value="末頁(yè)" 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>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -