tag.asp

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

<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<!--#include file="head.asp"-->
<!--#include file = "So_page.asp"-->
<%
 dim sort
 xsort=Request.QueryString("xsort")
%>
<script language="JavaScript">
function submitForm(obj)
{
	var Title=obj.Title.value;
	var Sort=obj.Sort.value;	
	obj.action="list.asp?sort="+Sort+"&title="+escape(Title);
	return true;
}
</script>
<link href="css/css.css" rel="stylesheet" type="text/css" />
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10" colspan="3"></td>
    </tr>
  <tr>
    <td width="200" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="28" align="left" bgcolor="#B3BDC4" class="title">热门标签</td>
        <td bgcolor="#B3BDC4" align="right"><a target="_blank" href="tagmore.asp"><font class="redfont">更多&gt;&gt;</font></a> </td>
      </tr>
      <tr>
        <td colspan="2" align="left" bgcolor="#E3E8EA" class="list"><%
          		set rs=conn.execute("select top 10 id,sort,XSort from XSort order by hits desc")
          		i=1
          		do while i<=50 and not rs.eof 
          		%>
                      ·<A class=link2 href="tag.asp?xsort=<%=rs(2)%>"><%=rs(2)%></A><br />
                      <%
          		i=i+1
          		rs.movenext
          		loop
          		rs.close%>              </td>
      </tr>
    </table><table width="100%" border="0" cellpadding="0" cellspacing="0" id="table14">
                <tr>
                  <td height="10"></td>
                </tr>
                <tr>
                  <td height="28" align="left" bgcolor="#B3BDC4" class="title">48小时精彩好贴</td>
                </tr>
				 <tr>
                  <td align="left" bgcolor="#E3E8EA" class="list"><%
		row=0
		set rszhai=conn.execute("select top 8 ID,IIf(Len(Title)<15,Title,Left(Title,15)+'..') as Title,UserID,HtmUrl,PostTime,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	
			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="&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>
      <table width="100%" border="0" cellpadding="0" cellspacing="0" id="table14">
        <tr>
          <td height="10"></td>
        </tr>
        <tr>
          <td height="28" align="left" bgcolor="#B3BDC4" class="title">本周精彩好贴</td>
        </tr>
        <tr>
          <td align="left" bgcolor="#E3E8EA" class="list"><%
		row=0
		set rszhai=conn.execute("select top 8 ID,IIf(Len(Title)<15,Title,Left(Title,15)+'..') as Title,HtmUrl,UserID,PostTime,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)<=7 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="&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>
    <td width="10"></td>
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="28" align="left" bgcolor="#C1B5BF" class="title">标签为 <font class="blue"><%=xsort%></font> 的相关信息</td>
        <td align="right" bgcolor="#C1B5BF"><a href="jsfeed.asp?t=<%=xsort%>" target="_blank"><img src="image/icon-js.gif" alt="JS格式输出" width="26" height="14" border="0" align="absmiddle" /></a> <a href="rss2feed.asp?t=<%=xsort%>" target="_blank"><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">
                    <%
		pageno=cint(request.querystring("pageno"))
		if pageno=0 then pageno=1

		sql="select ID,IIf(Len(Title)<46,Title,Left(Title,46)+'...') as Title,UserID,HtmUrl,filepath,FromURL,PostTime,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro from zhai a,sort b where a.Sort=b.SortID and a.XSort like '%"&xsort&"%' and isPub=true order by ID desc"

		set rs=server.createobject("ADODB.recordset")
		rs.open sql,conn,1
		
		if not rs.bof and not rs.eof then   '  当有数据的时候
			rs.pagesize=30
			rs.absolutepage=pageno
			for i=1 to rs.pagesize
			if rs.eof then exit for
			
		    if i mod 2 =1 then
		    	bg="#FFFFFF"
		    else
		    	bg="#F1EFF1"
		    end if
		
				Response.Write("<tr>")
				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("<td align=left bgcolor="&BG&" height=25>·<a href="&linkadd&" target='_blank'>"&HTMLEncode(rs("Title"))&"</a>  <span class='grayscript'><font color=#C0C0C0>["&a(1)&"."&trim(left(a(2),2))&"]</font></span> -<a href="&rs("FromURL")&" target='_blank' title='直达网址'><span class='grayscript'><font color=#008000>GO>></font></span></a></td>")
				rs.MoveNext
				row=row+1
				Response.Write("</tr>")
				
			next
			Response.Write "<tr>"
			response.write "<td class='mt'><br>"
				tj="xsort="&xsort
				page "tag.asp",tj,pageno,rs.pagecount,rs.pagesize,rs.recordcount
			response.write "</td>"
			Response.Write "</tr>"
		else
		    response.write "暂无数据"
		end if
		
		%>
                    <tr align="right">
                      <td></td>
                    </tr>
                </table></td>
  </tr>
</table>
<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>
<!--#include file="bottom.asp"-->