?? default.asp
字號:
<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<%
if request("fenlei")="" then
fenlei=1
else
fenlei=request("fenlei")
end if
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString")
select case fenlei
case 1
aa="人生感悟"
case 2
aa="情感天地"
case 3
aa="故事天空"
case 4
aa="生活體驗"
case 5
aa="消費心得"
case 6
aa="道聽途說"
case else
aa="人生感悟"
end select
%>
<html>
<head>
<title>我愛生活</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.red { color: #990066}
.green { color: #006600}
.white { color: #FFFFFF}
.black { color: #000000}
-->
</style>
<link rel="stylesheet" href="3508.css">
</head>
<body bgcolor="#FFFFF8">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
<tr>
<td width="192" height="39" align="center" valign="bottom" bgcolor="#CCFFCC"><img src="../images/newzhao1zhao.gif" width="140" height="50"></td>
<td colspan="2" align="right" height="39" valign="bottom" bgcolor="#319AFF">
<div align="right"></div>
<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="740" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="#CCCCFF">
<td width="615"> </td>
<td width="125"><a href="fabiaowz0.asp" target="_blank">我要發表文章</a></td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="139" valign="top"> <%
set rs=server.createobject("adodb.recordset")
sqlstr="select top 27 bm,sl=count(bm) from loveshenghuo where bm not like '' group by bm order by count(bm) desc"
rs.open sqlstr,conn
if rs.eof then
response.write "沒有文章"
response.end
else
%>
<table cellpadding="0" cellspacing="0" border="1" bordercolorlight="#FFFFFF" bordercolordark="#CC9933" width="135" align="center">
<tr bgcolor="#CCCCFF" align="center">
<td width="70" valign="middle">作者</td>
<td width="34">文章數量</td>
</tr>
<%
while not rs.eof
%>
<tr bgcolor="#CCFFCC">
<td width="70" align="center" class="red"><%=rs("bm")%></td>
<td width="34" align="center"><%=rs("sl")%></td>
</tr>
<%
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
</table>
</td>
<td width="601" valign="top" align="left">
<table width="83%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td colspan="2" nowrap >〖<%=aa%>〗 </td>
</tr>
<tr>
<td height="1" bgcolor="FF0000" colspan="2"></td>
</tr>
<tr>
<td colspan="2"> <%
set rs=server.createobject("adodb.recordset")
sqltext="select top 23 id, biaoti,bm,convert(char(30),fbriqi,102) as riqi,cishu from loveshenghuo where not biaoti like '' and fenlei='"& fenlei &"'order by fbriqi desc"
rs.open sqltext,conn,3
if not(rs.eof and rs.bof) then
rs.pagesize=23
rs.AbsolutePage=1
if rs.pagecount>1 then yjpage=true
%>
<table width="90%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#009999" align="center" vspace="16" >
<tr>
<td align="center" bgcolor="#FEDFA7" width="288" height="43">文章標題</td>
<td align="center" bgcolor="#FEDFA7" width="114" height="43">作者</td>
<td align="center" bgcolor="#FEDFA7" width="114" height="43">發表時間</td>
<td align="center" bgcolor="#FEDFA7" width="85" height="43"> 瀏覽次數</td>
</tr>
<%
i=1
while not rs.eof and i<=25
%>
<tr colspan="4">
<td width="288" nowrap height="20"> ◆<a href="wenzhangxs.asp?id=<%=rs("id")%>" target="_blank"><%=rs("biaoti")%></a></td>
<td width="60" nowrap height="20" align="center"> <%
if rs("bm")="" then
response.write "無名氏"
else
response.write rs("bm")
end if
%></td>
<td width="114" nowrap height="20" align="center"><%=rs("riqi")%></td>
<td width="30" nowrap height="20" align="center"><%=rs("cishu")%></td>
</tr>
<%
i=i+1
rs.movenext
wend
rs.close
set rs=nothing
if yjpage then
%>
<tr align="right">
<td colspan="4" height="15"><a href="more.asp?fenlei=<%=fenlei%>&page=1">更多>></a></td>
</tr>
<%
end if
%>
</table>
<%
else
response.write "此欄內容為空！"
end if
%> </td>
</tr>
</table>
</td>
</tr>
</table>
<%
set rs=server.createobject("adodb.recordset")
sqlstr="select top 10 id, biaoti as 標題,bm as 筆名,convert(char(30),fbriqi,102) as 發表日期 ,cishu as 閱讀次數 from loveshenghuo order by cishu desc"
rs.open sqlstr,conn
if rs.eof then
response.write "沒有文章"
response.end
else
%>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="middle">
<tr align="middle">
<td class="green" height="17"> </td>
</tr>
<tr align="center">
<td class="green">〖熱點文章〗</td>
</tr>
</table>
<table border=1 align=center cellpadding="0" cellspacing="0" width="600" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFCCFF">標題</td>
<td bgcolor="#FFCCFF">作者</td>
<td bgcolor="#FFCCFF">發表日期</td>
<td bgcolor="#FFCCFF">閱讀次數</td>
</tr>
<%
while not rs.eof
%>
<tr>
<td bgcolor="#FFFFCC"><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 bgcolor="#FFFFCC">
<%
if rs.fields(2).value="" then
response.write "無名氏"
else
response.write rs.fields(2).value
end if
%>
</td>
<td bgcolor="#FFFFCC"> <%=rs.fields(3).value%></td>
<td bgcolor="#FFFFCC"><%=rs.fields(4).value%></td>
</tr>
<%
rs.movenext
wend
end if
rs.close
set rs=nothing
set conn=nothing
%>
</table>
<!-- #include file="../include/end.htm" -->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -