tagmore.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" 
type=text/css rel=stylesheet>
<table border="0" width="900" cellspacing="0" cellpadding="4">
  <tr>
    <td height="10"></td>
  </tr>  <tr>
    <td height="28" align="left" bgcolor="#B3BDC4" class="title">热门关键字</td>
  </tr>
  <tr>
    <td height="100" align="left" valign="top" bgcolor="#E3E8EA" class="list"><%
          		set rs=conn.execute("select top 100 id,sort,XSort from XSort order by hits desc")
          		do while not rs.eof 
          		%>
        <a class="link2" href="tag.asp?xsort=<%=rs(2)%>"><%=rs(2)%></a>&nbsp;
        <%
          		rs.movenext
          		loop
          		rs.close%></td>
  </tr>
</table>
<!--#include file="bottom.asp"-->