📄 topzhai.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<!--#include file="head.asp"-->
<!--#include file = "So_page.asp"--><head>
<LINK href="love.files/style.css"
type=text/css rel=stylesheet>
</HEAD>
<BODY>
<TABLE class=tableborder cellSpacing=0 cellPadding=0 width=778 align=center
border=0>
<TBODY>
<TR>
<TD align=middle>
</TD></TR></TBODY></TABLE>
<TABLE class=tableborder cellSpacing=0 cellPadding=0 width=778 align=center
border=0>
<TBODY>
<TR vAlign=top>
<TD class=tableleft></TD>
</TR></TBODY></TABLE>
<table class=tableborder cellspacing=0 cellpadding=0 width=778 align=center
border=0>
<tbody>
<tr valign=top>
<td class=tableleft><script language="JavaScript">
function submitForm(obj)
{
var Title=obj.Title.value;
var Sort=obj.Sort.value;
obj.action="newzhai.asp?sort="+Sort+"&title="+Title;
return true;
}
</script>
<table width="758" border="0" align="center" cellpadding="3" cellspacing="0" id="table2">
<tr>
<td width="259" valign="bottom"> </td>
<td width="676"> </td>
</tr>
<tr>
<td width="259" valign="top" class="title2" style="color: #CCCCCC" > 站内搜索</td>
<td width="676" height="30" class="title2" style="border-bottom: 2px solid #EE8220">
精华贴TOP 50
<a target="_blank" href="jsfeed.asp?p=Reads">
<img src="images/icon-js.gif" alt="JS格式输出" width="26" height="14" border="0"></a>
<a target="_blank" href="rss2feed.asp?p=Reads">
<img src="images/icon-rss.gif" alt="RSS格式输出" width="26" height="14" border="0"></a> <span class="grayscript">排序：<a href="topzhai.asp?pxzd=<%=server.urlencode("PostTime")%>">时间</a> -- <a href="topzhai.asp?pxzd=<%=server.urlencode("Rank")%>">等级</a> -- <a href="topzhai.asp?pxzd=<%=server.urlencode("reads")%>">点击</a></span></td>
</tr>
<tr>
<td width="259" valign="top">
<div align="center" style="color: #CCCCCC">
<table border="0" width="95%" cellspacing="0" cellpadding="4" id="table3">
<tr>
<td class="lefttd"><form name="form1" method="post" action="" onSubmit="return submitForm(this)" style="margin:0">
<input name="Title" type="text" id="Title" size="28" maxlength="60">
<select name="Sort" id="Sort">
<%
set rs=conn.execute("select sortid,SortName from sort order by sortid asc")
do while not rs.eof
%>
<option value=<%=rs("sortid")%> <%if cint(sortid)=cint(rs("sortid")) then response.write " selected"%>><%=rs("SortName")%></option>
<%
rs.movenext
loop
rs.close
%>
</select>
<input name="submit" type="image" id="submit" src="images/mini_query.gif" alt="提交检索" width="45" height="15" border="0">
热门关键字</form>
<%
set rs=conn.execute("select top 20 id,sort,XSort from XSort where sort='"&sort&"' order by hits desc")
i=1
do while not rs.eof and i<=20
%>
<A class=link2 href="tag.asp?xsort=<%=rs(2)%>"><%=rs(2)%></A>
<%
i=i+1
rs.movenext
loop
rs.close%>
<a style="padding:0px; text-decoration:underline" target="_blank" href="tagmore.asp">更多>></a> </td>
</tr>
</table>
<div align="center">
<table border="0" width="95%" cellspacing="0" cellpadding="4" id="table13">
<tr>
<td class="lefttd" align="right">
<div align="center">
<table width="100%" border="0" cellspacing="3" id="table14">
<tr>
<td class="title2" >·48小时精彩好贴</td>
</tr>
<%
row=0
set rszhai=conn.execute("select top 18 ID,IIf(Len(Title)<15,Title,Left(Title,15)+'..') as Title,UserID,PostTime,HtmUrl,filepath,FromURL,a.Sort,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,c.ZhaiID,c.Visits from zhai a,sort b,(select ZhaiID,count(*) as Visits from visit where int(now-VisitTime)<=2 group by ZhaiID order by count(*) desc) c where a.Sort=b.SortID and ID=c.ZhaiID and isPub=true order by Visits desc")
do while not rszhai.Eof
Response.Write("<tr>")
if isgd=1 then
linkadd="article/"&rszhai("filepath")&"/"&rszhai("HtmUrl")
else
linkadd="goto.asp?id="&rszhai("id")
end if
a=split(rszhai("PostTime"),"-")
Response.Write("<td class='middletxt'>·<a href="&linkadd&" target='_blank' >"&HTMLEncode(rszhai("Title"))&"</a></td>")
rszhai.movenext
row=row+1
Response.Write("</tr>")
if row=18 then
Exit do
end if
loop
rszhai.close
%>
<tr>
<td></td>
</tr>
</table>
</div> </td>
</tr>
</table>
<div align="center">
<table border="0" width="95%" cellspacing="0" cellpadding="4" id="table29">
<tr>
<td class="lefttd" align="right">
<table width="100%" border="0" cellspacing="3" id="table30">
<%
row=0
set rszhai=conn.execute("select top 18 ID,IIf(Len(Title)<50,Title,Left(Title,50)+'') as Title,UserID,HtmUrl,filepath,PostTime,FromURL,a.Sort,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,c.ZhaiID,c.Visits from zhai a,sort b,(select ZhaiID,count(*) as Visits from visit where int(now-VisitTime)<=2 group by ZhaiID order by count(*) desc) c where a.Sort=b.SortID and ID=c.ZhaiID and isPub=true and userid='"&userid&"' order by Visits desc")
do while not rszhai.Eof
Response.Write("<tr>")
if isgd=1 then
linkadd="article/"&rszhai("filepath")&"/"&rszhai("HtmUrl")
else
linkadd="goto.asp?id="&rszhai("id")
end if
a=split(rszhai("PostTime"),"-")
Response.Write("<td class='middletxt'><font color='#FF0000'>"&hz&"</font>·<a href="&linkadd&" target='_blank' title='"&HTMLEncode(rszhai("Title"))&"'>"&HTMLEncode(rszhai("Title"))&"</a></td>")
rszhai.movenext
row=row+1
Response.Write("</tr>")
if row=18 then
Exit do
end if
loop
rszhai.close
%>
<%
row=0
set rszhai=conn.execute("select top 18 ID,IIf(Len(Title)<50,Title,Left(Title,50)+'') as Title,UserID,HtmUrl,filepath,PostTime,FromURL,a.Sort,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,c.ZhaiID,c.Visits from zhai a,sort b,(select ZhaiID,count(*) as Visits from visit where int(now-VisitTime)<=2 group by ZhaiID order by count(*) desc) c where a.Sort=b.SortID and ID=c.ZhaiID and isPub=true and userid='"&userid1&"' order by Visits desc")
do while not rszhai.Eof
Response.Write("<tr>")
if isgd=1 then
linkadd="article/"&rszhai("filepath")&"/"&rszhai("HtmUrl")
else
linkadd="goto.asp?id="&rszhai("id")
end if
a=split(rszhai("PostTime"),"-")
Response.Write("<td class='middletxt'><font color='#0000FF'>"&hz1&"</font>·<a href="&linkadd&" target='_blank' title='"&HTMLEncode(rszhai("Title"))&"'>"&HTMLEncode(rszhai("Title"))&"</a></td>")
rszhai.movenext
row=row+1
Response.Write("</tr>")
if row=18 then
Exit do
end if
loop
rszhai.close
%>
<tr>
<td></td>
</tr>
</table> </td>
</tr>
</table>
</div>
<p> </div>
</div> </td>
<td valign="top" width="676">
<table border="0" width="100%" cellspacing="0" cellpadding="2" id="table15">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="3" id="table31">
<%
pxzd=HTMLEncode(request.querystring("pxzd"))
if pxzd="" then pxzd="reads"
row=0
set rszhai=conn.execute("select top 50 ID,IIf(Len(Title)<26,Title,Left(Title,26)+'..') as Title,UserID,PostTime,FromURL,HtmUrl,filepath,hot,reads,a.Sort,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro from zhai a,sort b where a.Sort=b.SortID and isPub=true order by "&pxzd&" desc")
do while not rszhai.Eof
Response.Write("<tr>")
if isgd=1 then
linkadd="article/"&rszhai("filepath")&"/"&rszhai("HtmUrl")
else
linkadd="goto.asp?id="&rszhai("id")
end if
if rszhai("hot")=1 then
hot="<font color='red'>[荐]</font>"
else
hot=""
end if
a=split(rszhai("PostTime"),"-")
Response.Write("<td valign='top'>"&hot&"·<a href="&linkadd&" target='_blank' title='"&HTMLEncode(rszhai("Title"))&"'>"&HTMLEncode(rszhai("Title"))&"</a> <span class='grayscript'> (<a href='userzhai.asp?zhaiuser="&rszhai("userid")&"'>"&rszhai("userid")&"</a> 收藏) <font color=#800000>["&a(1)&"."&trim(left(a(2),2))&"]</font> <font color=#800000>("&rszhai("reads")&")</font></span></td>")
rszhai.MoveNext
row=row+1
Response.Write("</tr>")
if row=50 then
Exit do
end if
loop
rszhai.close
%>
<tr>
<td style="font-size: 14px; line-height: 22px"></td>
</tr>
</table> </td>
<td width="149" valign="top">
<%
sql="select top 8 ID,IIf(Len(Title)<8,Title,Left(Title,7)+'..') as Title,UserID,htmurl,filepath,FromURL,img,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro from zhai a,sort b where a.Sort=b.SortID and img<>'' and isPub=true order by "&pxzd&" desc"
set rszhai=server.createobject("ADODB.recordset")
rszhai.open sql,conn,1
i=1
do while not rszhai.eof and i<=8
if isgd=1 then
linkadd="article/"&rszhai("filepath")&"/"&rszhai("HtmUrl")
else
linkadd="goto.asp?id="&rszhai("id")
end if
%>
<div align="center">
<table border="1" width="105" cellspacing="0" cellpadding="2" height="80" id="table28" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
<tr>
<td>
<a title="<%=HTMLEncode(rszhai("Title"))%>" target="_blank" href="<%=linkadd%>">
<img src="<%=rszhai("img")%>" border="0" width="100" height="80"></a></td>
</tr>
</table>
<font size="2">
<%=HTMLEncode(rszhai("Title"))%><p>
</font></div>
<%
i=i+1
rszhai.movenext
loop
rszhai.close
%> </td>
</tr>
</table> </td>
</tr>
</table> </td>
</tr>
</tbody>
</table>
<!--#include file="bottom.asp"-->
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -