site_cool.asp

使用Asp+Access+FSO+Jmail+Servu开发

<!--#include file="top.asp"-->
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="190" valign="top" bgcolor="#f5f5f8"><!--#include file="user_panel.asp"--></td>
    <td width="1" background="images/bg_vline.gif"></td>
    <td width="579" valign="top"><table align="center" background="images/line01.gif" border="0" cellpadding="0" cellspacing="0" height="24" width="100%">
      <tr>
        <td height="21">&nbsp;<img height="12" src="images/arrow.gif" width="12"> 当前位置：<a href="index.asp" title="首页"><%=site%></a> -&gt; 酷站推荐 </td>
      </tr>
    </table>
		<%
		   set rstj1=Server.CreateObject("ADODB.Recordset")
		   sqltj1="select * from [user] where isgood=1 and state=1 order by votenum desc"
		   rstj1.open sqltj1,conn,1,1
		   total=rstj1.recordcount
		   set rstj2=Server.CreateObject("adodb.recordset")
		   sqltj2="select * from [siteclass] where id="&rstj1("sitetype")
		   rstj2.open sqltj2,conn,1,1
if rstj1.eof and rstj1.bof then
response.write "<br><br><center>今日暂无★站推荐！</center>"
else
if not isempty(request("page")) then                                                                                             
pagecount=cint(request("page"))                                                                                             
else                                                                                             
pagecount=1                                                                                          
end if                                                                                                                                                                                  
rstj1.pagesize=10                                                                                          
rstj1.AbsolutePage=pagecount 
do while not rstj1.eof
%>
      <table align="center" border="0" bordercolor="#000000" cellpadding="0" cellspacing="0" width="100%">
        <tr>
          <td width="5%" background="images/bar_bg2.gif"><img src="images/bar_star.gif" width="27" height="25" border="0"></td>
          <td background="images/bar_bg2.gif" width="92%" class="shadow">&nbsp;</td>
          <td width="3%"><img src="images/bar_right.gif" width="20" height="25" border="0"></td>
        </tr>
      </table>
      <table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="cccccc">
        <tbody>
          <tr>
            <td width="23%" rowspan="4" bgcolor="f0f0f0"><%
	  if rstj1("siteimg")<>"http://" then
	  	response.write "<a href=view.asp?username="&rstj1("username")&" target=_blank><img src="&rstj1("siteimg")&" width=120 height=90 border=0 alt="&rstj1("sitename")&"></a>"
	  else
	  	response.write "<a href=view.asp?username="&rstj1("username")&" target=_blank><img src=images/sitepic.gif width=120 height=90 border=0 alt="&rstj1("sitename")&"></a>"
	  end if
	  %></td>
            <td width="77%" bgcolor="f8f8f8">网站名称：<a href=view.asp?username=<%=rstj1("username")%> title="<%=rstj1("sitename")%>" target="_blank"><%=rstj1("sitename")%></a></td>
          </tr>
          <tr>
            <td bgcolor="ffffff">网站类型：<%
			set rs5=server.createobject("ADODB.Recordset")
sql5="select * from siteclass where id="&rstj1("sitetype")
rs5.open sql5,conn,1,1
Response.Write rs5("sitetype")
%></td>
          </tr>
          <tr>
            <td bgcolor="f8f8f8">网站简介：<%=rstj1("intro")%></td>
          </tr>
          <tr>
            <td bgcolor="ffffff">星级：<img src="<%=rstj1("star")%>" border="0"> <img src="images/vote.gif" width="20" height="19"><a href=javascript:void(0) onclick=javascript:open_win('dovote.asp?user=<%=rstj1("username")%>','',300,100,'no');>投一票</a>(共<%=rstj1("votenum")%>票)<iframe name="vote" width="0" height="0"></iframe></td>
          </tr>
        </tbody>
      </table>
    <%
	Response.Write "<br>"
rstj1.movenext
i=i+1                                                                     
if i>=rstj1.pagesize then exit do                                                           
loop
%> 
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="?page=<%=request("gopage")%>" method="post">
	          <tr align="center" valign="bottom" bgcolor="#ffffff">
          <td height="1" align="center" valign="bottom" bgcolor="#cccccc"></td>
        </tr>
        <tr bgcolor="#ffffff"> 
          <td height="25" align="center" class="td"><div align="center"> 共 <b><%=rstj1.recordcount%></b> 用户 页次: <b><font color=red><%=pagecount%></font>/<%=rstj1.pagecount%></b>, 
          当前从第 <%
if pagecount<=1 then
response.write "<font color=red>1</font>"
else
response.write "<font color=red>" & pagecount*rstj1.pagesize-rstj1.pagesize+1 & "</font>"
end if
%> 位开始。 <% if pagecount=1 and rstj1.pagecount<>pagecount and rstj1.pagecount<>0 then%> 
          <a href="?page=<%=cstr(pagecount+1)%>">下一页</a> 
          <% end if %> <% if rstj1.pagecount>1 and rstj1.pagecount=pagecount then %> 
          <a href="?page=<%=cstr(pagecount-1)%>"> 上一页</a> 
          <%end if%> <% if pagecount<>1 and rstj1.pagecount<>pagecount then%> <a href="?page=<%=cstr(pagecount-1)%>"> 
          上一页</a> <a href="?page=<%=cstr(pagecount+1)%>"> 
          下一页</a> <% end if%>&nbsp; 直接到第
          <select name="gopage">
            <%for i=1 to rstj1.pagecount%> 
            <option value="<%=i%>"><%=i%></option>
            <%next%> 
          </select>
          页 
          <input name="go" type="submit" class="button" value="Go">
        </div> </td>
        </tr>

        <tr> </tr></form>
      </table>
<%
rstj1.close
set rstj1=nothing
end if
%></td>
  </tr>
</table>
<!--#include file="copyright.asp"-->