newzhai.asp

这是一个非常好的留言版程序

<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<!--#include file="head.asp"-->
<!--#include file = "So_page.asp"-->
<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>

<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10"></td>
    <td width="10" rowspan="2"></td>
    <td></td>
  </tr>
  <tr>
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="61%" height="28" align="left" bgcolor="#D8C4B6" class="title">您现在的位置：<a href="default.asp" target="_blank">首页</a> &gt; 更多更新<font style="font-size:12px;">(最新收藏TOP 50)</font></td>
        <td width="39%" align="right" bgcolor="#D8C4B6">排序方式：<a href="newzhai.asp?pxzd=<%=server.urlencode("PostTime")%>">时间</a> -- <a href="newzhai.asp?pxzd=<%=server.urlencode("Rank")%>">等级</a> -- <a href="newzhai.asp?pxzd=<%=server.urlencode("reads")%>">点击</a>&nbsp;<a target="_blank" href="jsfeed.asp"><img src="images/icon-js.gif" alt="JS格式输出" width="26" height="14" border="0" align="absmiddle"></a> <a target="_blank" href="rss2feed.asp"> <img src="images/icon-rss.gif" alt="RSS格式输出" width="26" height="14" border="0" align="absmiddle"></a></td>
      </tr>
      <tr>
        <td height="5" colspan="2" bgcolor="#FBF3EC"></td>
        </tr>
    </table>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FBF3EC">
                    <%
      	pxzd=HTMLEncode(request.querystring("pxzd"))
		if pxzd="" then pxzd="posttime"
		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' align=left class='list' height=28>"&hot&"·<a href="&linkadd&" target='_blank' title='"&HTMLEncode(rszhai("Title"))&"'><font color=#333366 class='big14px'>"&HTMLEncode(rszhai("Title"))&"</font></a>&nbsp;<span class='ray'>(<a href='userzhai.asp?zhaiuser="&rszhai("userid")&"'>"&rszhai("userid")&"</a>&nbsp;收藏)&nbsp;["&a(1)&"."&trim(left(a(2),2))&"]&nbsp;("&rszhai("reads")&")</span></td>")
				rszhai.MoveNext
				row=row+1
			Response.Write("</tr>")
			if row=50 then
				Exit do
			end if
		loop
		rszhai.close
	   %>
                    <tr>
                      <td></td>
                    </tr>
        </table></td>
    <td width="200" align="center" valign="top" bgcolor="#F4EFE5"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="28" align="left" bgcolor="#D4D0C8" class="title">图片信息</td>
      </tr>
      <tr>
        <td></td>
      </tr>
    </table>
      <%
							sql="select top 15 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												
							%>
      <table border="0" cellspacing="0" cellpadding="0" id="table28" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
        <tr>
          <td height="10"></td>
        </tr>
        <tr>
          <td><a title="<%=HTMLEncode(rszhai("Title"))%>" target="_blank" href="<%=linkadd%>"> <img src="<%=rszhai("img")%>" border="0" width="140" height="100" class="picborder" /></a></td>
        </tr>
        <tr>
          <td height="25"><%=HTMLEncode(rszhai("Title"))%></td>
        </tr>
      </table>
      <%
							i=i+1
							rszhai.movenext
							loop
							rszhai.close
							%></td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10" bgcolor="#FFFFFF"></td>
  </tr>
  <tr>
    <td height="28" bgcolor="#CCCCD4" class="big14px">免责声明：本站资源均来自网络，版权归原作者所有，如有侵犯您的版权请通知,我们立即删除。。。</td>
  </tr>
</table>
<!--#include file="bottom.asp"-->