📄 default_temp.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<!--#include file="head.asp"-->
<%
function cutstr(tempstr,tempwid) '声明标题字数变量
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<script language="JavaScript">
function submitForm(obj)
{
var Title=obj.Title.value;
var Sort=obj.Sort.value;
obj.action="list.asp?sort="+Sort+"&title="+Title;
return true;
}
</script>
<script language="JavaScript" src="vivi.js" type="text/JavaScript"></script>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="10" colspan="2" align="left"></td>
</tr>
<tr>
<td width="235" align="left" valign="top"><table width="225" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="145" height="28" bgcolor="#d4d0c8" class="title">焦点话题</td>
</tr>
<tr>
<td height="28" align="center" bgcolor="#F4EFE5"><!--焦点推荐图片开始-->
<SPAN ID=span_ad_100><script src="include/jingcai_dd.js"></script></SPAN>
<SCRIPT>ad_100.innerHTML=span_ad_100.innerHTML;span_ad_100.innerHTML="";</SCRIPT>
<!--焦点推荐图片结束--></td>
</tr>
</table>
<table width="225" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#C0BBAF" height="1"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" height="1"></td>
</tr>
</table>
<table width="225" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4EFE5">
<tr>
<td height="137" align="center"><img src="ad/3420739.jpg" width="200" height="120" class="picborder" /></td>
</tr>
</table></td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="350" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ccccd4">
<tr>
<td height="28" align="left" class="title">今日精辟 </td>
<td align="right"><a href="rss2feed.asp" target="_blank"><img src="image/icon-rss.gif" alt="RSS格式输出" width="26" height="14" border="0" align="absmiddle" /></a> <a target="_blank" href="jsfeed.asp"><img src="image/icon-js.gif" alt="JS格式输出" width="26" height="14" border="0" align="absmiddle"></a> <a href="newzhai.asp" target="_blank">更多>>></a> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" bgcolor="#f2f3f7"><!--最新网摘JS开始-->
<SPAN ID=span_newwz class=spanclass><script src="include/newwz.js"></script></SPAN>
<SCRIPT>newwz.innerHTML=span_newwz.innerHTML;span_newwz.innerHTML="";</SCRIPT><!--最新网摘JS结束--></td>
</tr>
</table></td>
<td width="10"></td>
<td width="305" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#becde6">
<tr>
<td height="28" align="left" class="title">48小时精彩收藏 </td>
<td align="right"><a target="_blank" href="jsfeed.asp?p=Reads"><img src="image/icon-js.gif" alt="JS格式输出" width="26" height="14" border="0" align="absmiddle" /></a> <a target="_blank" href="rss2feed.asp?p=Reads"> <img src="image/icon-rss.gif" alt="RSS格式输出" width="26" height="14" border="0" align="absmiddle" /></a> 更多>>> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" bgcolor="#e6f2f9" class="list" background="image/bgline.gif"><%
row=0
set rszhai=conn.execute("select top 8 ID,IIf(Len(Title)<15,Title,Left(Title,15)+'..') as Title,UserID,PostTime,FromURL,HtmUrl,filepath,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
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("[<a href='list.asp?sort="&rszhai("Sort")&"' target=_blank>"&rszhai("SortName")&"</a>] <a href="&linkadd&" target='_blank' >"&HTMLEncode(rszhai("Title"))&"</a><br>")
rszhai.movenext
row=row+1
if row=8 then
Exit do
end if
loop
rszhai.close
%></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" bgcolor="#E3E6EE">
<%
pageno=request("pageno")
if pageno="" then pageno=1
set rs=server.createobject("adodb.recordset")
sql="select * from zhai where img<>'' order by id desc"
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=1
rs.absolutepage=pageno
zjls=rs.pagesize
if zjls mod 4 =0 then
hs=zjls/4
else
hs=round(zjls/4+0.6)
end if
for i=1 to hs
if rs.eof then exit for
if isgd=1 then
linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
else
linkadd="goto.asp?id="&rs("id")
end if
%>
<tr>
<td height="10" colspan="4" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="173" align="center" valign="middle"><a target="_blank" href="<%=linkadd%>"><img border="1" src="<%=rs("img")%>" width="135" height="120" class="picborder" /></a><br />
<a href="<%=linkadd%>" target="_blank" title="<%=rs("title")%>" class="pic"><%=cutstr(rs("title"),10)%></a></td>
<%rs.movenext
if rs.eof then exit for
if isgd=1 then
linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
else
linkadd="goto.asp?id="&rs("id")
end if
%>
<td valign="middle" align="center"><a target="_blank" href="<%=linkadd%>"><img border="1" src="<%=rs("img")%>" width="135" height="120" class="picborder" /></a><br />
<a href="<%=linkadd%>" target="_blank" title="<%=rs("title")%>" class="pic"><%=cutstr(rs("title"),10)%></a></td>
<%rs.movenext
if rs.eof then exit for
if isgd=1 then
linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
else
linkadd="goto.asp?id="&rs("id")
end if
%>
<td valign="middle" align="center"><a target="_blank" href="<%=linkadd%>"><img border="1" src="<%=rs("img")%>" width="135" height="120" class="picborder" /></a><br />
<a href="<%=linkadd%>" target="_blank" title="<%=rs("title")%>" class="pic"><%=cutstr(rs("title"),10)%></a></td>
<%rs.movenext
if rs.eof then exit for
if isgd=1 then
linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
else
linkadd="goto.asp?id="&rs("id")
end if
%>
<td valign="middle" align="center"><a target="_blank" href="<%=linkadd%>"><img src="<%=rs("img")%>" width="135" height="120" class="picborder" /></a><br />
<a href="<%=linkadd%>" target="_blank" title="<%=rs("title")%>" class="pic"><%=cutstr(rs("title"),10)%></a></td>
<%rs.movenext
if rs.eof then exit for
%>
</tr>
<%next%>
<%else%>
暂无内容
<%end if%>
</table> </td>
</tr>
</table>
<table width="900" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10" colspan="7"></td>
</tr>
<tr>
<td width="225" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="left" bgcolor="#B3BDC4" class="title">VIP用户推荐贴</td>
</tr>
<tr>
<td align="left" bgcolor="#C4CAD0"> <font color="#0F6893">VIP用户：<a href="userzhai.asp?zhaiuser=<%=hzyh%>"><%=hzyh%></a> <a href="userzhai.asp?zhaiuser=<%=hzyh0%>"><%=hzyh0%></a> <a href="userzhai.asp?zhaiuser=<%=hzyh1%>"><%=hzyh1%></a></font></b></td>
</tr>
<tr>
<td align="left" bgcolor="#E3E8EA"><%
sql="select top 7 ID,UserID,IIf(Len(Title)<17,Title,Left(Title,17)+'..') as Title,FromURL,hot,filepath,htmurl,a.Sort,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,format$(PostTime,'yyyy-mm-dd') as PostTime,Reads,Rank from zhai a,sort b where a.Sort=b.SortID and isvip=1 order by ID desc"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1
row=1
do while not rs.eof and row<13
if isgd=1 then
linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
else
linkadd="goto.asp?id="&rs("id")
end if
a=split(rs("PostTime"),"-")
Response.Write("·<a href="&linkadd&" target='_blank' title='"&cutStr(rs("TITLE"),80)&"'>"&HTMLEncode(rs("Title"))&"</a><br>")
rs.MoveNext
row=row+1
loop
response.write "<font color='red'>想把贴子放到这里请联系我：QQ:82861375</font>"
%></td>
</tr>
</table></td>
<td width="10"></td>
<td valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0">
<%
set rs=conn.execute("select webname,weburl from myuser where userid='"&hzyh&"'")
if not rs.eof then
webname=rs("webname")
weburl=rs("weburl")
end if
rs.close
%>
<tr>
<td height="28" align="left" bgcolor="#B3BDC4" class="title"><a href="userzhai.asp?zhaiuser=<%=hzyh%>"><font color="#800000"><%=webname%></font></a> 推荐的好贴</td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#E3E8EA" class="list"><%
sql="select top 8 ID,UserID,IIf(Len(Title)<15,Title,Left(Title,15)+'..') as Title,FromURL,hot,filepath,htmurl,a.Sort,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,format$(PostTime,'yyyy-mm-dd') as PostTime,Reads,Rank from zhai a,sort b where a.Sort=b.SortID and UserID='"&hzyh&"' order by PostTime desc"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1
row=1
do while not rs.eof and row<9
if isgd=1 then
linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
else
linkadd="goto.asp?id="&rs("id")
end if
a=split(rs("PostTime"),"-")
Response.Write("·<a href="&linkadd&" target='_blank' title='"&cutStr(rs("title"),80)&"'>"&HTMLEncode(rs("Title"))&"</a><br>")
rs.MoveNext
row=row+1
loop
response.write " <a href='"&weburl&"'>更多好贴请上"&webname&">>></a>"
%></td>
</tr>
</table></td>
<td width="10"></td>
<td valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0" id="table115">
<%
set rs=conn.execute("select webname,weburl from myuser where userid='"&hzyh0&"'")
if not rs.eof then
webname=rs("webname")
weburl=rs("weburl")
end if
rs.close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -