web.asp

本程序采用花香内核

<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/inc.asp"-->
<%
start="酷站推荐"
dim founderr
founderr=false
if request.querystring("cscat_id")<>"" then
  if not isInteger(request.querystring("cscat_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request.querystring("action")="" then
call head()
call menu()
dim totalcs,Currentpage,totalpages,i
sql="select * from coolsites where passed=0 order by cs_id DESC"
if request.querystring("cscat_id")<>"" then
sql="select * from coolsites where cscat_id="&request.querystring("cscat_id")&" and passed=0 order by cs_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class="table-hx66s"><TBODY><TR><TD height="10">&nbsp; 
酷站分类→ 
<%
sql="select * from cscat"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
if request("cscat_id")=cstr(rs2("cscat_id")) then
response.write "<font color=""#FF0000"">·"&rs2("cscat_name")&"</a></font>&nbsp;"
else
response.write "<a href='?cscat_id="&rs2("cscat_id")&"'>·"&rs2("cscat_name")&"</a>&nbsp;"
end if
rs2.movenext
loop
if rs2.eof and rs2.bof then
response.write "当前没有分类！"
end if
%>
</TD></TR></TBODY></TABLE>
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class="table-hx66s">
  <TBODY>
  <TR vAlign=top align=left>
  <TD width=192>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 点 击 排 行</td>
   </tr>
</table>
<TABLE align=center border=0 class="table-right" width="100%">
<%sql="SELECT top "&topcoolsitenum&" * FROM coolsites where passed=0 ORDER by cs_count DESC"
set rs1=server.createobject("adodb.recordset")
rs1.open sql,conn,1,1
do while not rs1.eof
%>
<tr><td style="PADDING-RIGHT: 9px; PADDING-LEFT: 8px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px" align=middle><SCRIPT type=text/javascript>hx66img("<%=rs1("cs_pic")%>","web.asp?action=go&cs_id=<%=rs1("cs_id")%>","网站名称：<%=rs1("cs_name")%>&#13&#10网站地址：<%=rs1("cs_url")%>&#13&#10点击次数：<%=rs1("cs_count")%>次",true,false);</SCRIPT></td></tr>
<%rs1.movenext
loop
if rs1.eof and rs1.bof then%>当前还没有酷站<%end if%></table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 站 长 推 荐</td>
   </tr>
</table>
<TABLE align=center border=0 class="table-right" width="100%">
<%sql="SELECT top "&bestcoolsite&" * FROM coolsites where isbest = 1 ORDER by cs_date DESC"
set rs1=server.createobject("adodb.recordset")
rs1.open sql,conn,1,1
do while not rs1.eof
%><tr><td style="PADDING-RIGHT: 9px; PADDING-LEFT: 8px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px" align=middle><SCRIPT type=text/javascript>hx66img("<%=rs1("cs_pic")%>","web.asp?action=go&cs_id=<%=rs1("cs_id")%>","网站名称：<%=rs1("cs_name")%>&#13&#10网站地址：<%=rs1("cs_url")%>&#13&#10点击次数：<%=rs1("cs_count")%>次",true,false);</SCRIPT></td></tr>
              <%rs1.movenext
loop
if rs1.eof and rs1.bof then%>当前还没有酷站<%end if%></table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 本 站 声 明</td>
   </tr>
</table>
<div style="LINE-HEIGHT: 180%" class="table-right" width="100%">&nbsp;&nbsp;&nbsp;&nbsp;本站的部分酷站来自网上收集，其版权归作者本人所有，如果有任何侵犯您权益的地方，请联系我们，我们将马上进行整理，谢谢。</div>
</td>
<TD>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 当前共有<span><%=totalcs%></span>个酷站</td>
   </tr>
</table>
<table width="99%" border="1" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" style="border-collapse: collapse" class="table-left" align="right" frame=lhs>
<%
if not rs.eof then
rs.movefirst
rs.pagesize=coolsitesperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   totalcs=rs.recordcount
   if currentpage<>1 then
       if (currentpage-1)*coolsitesperpage<totalcs then
	       rs.move(currentpage-1)*coolsitesperpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totalcs mod coolsitesperpage)=0 then
      totalpages=totalcs\coolsitesperpage
   else
      totalpages=totalcs\coolsitesperpage+1
   end if
i=0
do while not rs.eof and i<coolsitesperpage
%><tr bgcolor="#ffffff"><td height="10"></td></tr><tr bgcolor="#FFFFFF"><td>
      <table width="100%" border="0" cellspacing="0" cellpadding="10" align="center">
        <tr> 
<TD width="37%" style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px" align=middle><SCRIPT type=text/javascript>hx66img("<%=rs("cs_pic")%>","web.asp?action=go&cs_id=<%=rs("cs_id")%>","网站名称：<%=rs("cs_name")%>&#13&#10网站地址：<%=rs("cs_url")%>&#13&#10点击次数：<%=rs("cs_count")%>次");</SCRIPT></TD>
          <td width="63%">
<table width="100%" border="0" cellspacing="5" cellpadding="2">
<tr><td width="100"><strong><font color="FFA300">网站名称：</font></strong></td>
<td bgcolor="F3F3F3" width="260"><%=rs("cs_name")%></td></tr>
<tr><td><strong><font color="FFA300">网站地址：</font></strong></td>
<td bgcolor="F3F3F3"><a href="?action=go&cs_id=<%=rs("cs_id")%>" target="_blank"><%=rs("cs_url")%></a></td></tr>
<tr><td><strong><font color="FFA300">加入时间：</font></strong></td>
<td bgcolor="F3F3F3"><%=rs("cs_date")%></td></tr>
<tr><td><strong><font color="FFA300">点击次数：</font></strong></td>
<td bgcolor="F3F3F3"><%=rs("cs_count")%></td></tr>
<tr><td><strong><font color="FFA300">简单描述：</font></strong></td>
<td bgcolor="F3F3F3"><%=rs("cs_desc")%></td></tr>
</table></td></tr>
</table>
</td>
</tr>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
        <tr> 
          <td bgcolor="#FFFFFF" colspan="2" height="22" align="center">当前没有酷站！</td>
        </tr>
<%end if
end if
if not request("type")=1 then%>
<tr bgcolor="#ffffff"><td height="10"></td></tr><tr bgcolor="#ffffff"><td height="30">
<form name="form1" method="post" action="web.asp?cscat_id=<%=request.querystring("cscat_id")%>">
<TABLE align=center border=0>
<TBODY>
<TR> 
<TD align=middle width="200" height=25><IMG height=14 src="img/so.gif" width=14 align=absMiddle> 共[<font color="#FF6666"><%=totalcs%></font>]个作品　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="200" align=middle><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=web.asp?page=1&cscat_id="&request.querystring("cscat_id")&">首页</a> "
response.write "<a href=web.asp?page="&CurrentPage-1&"&cscat_id="&request.querystring("cscat_id")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=web.asp?page="&CurrentPage+1&"&cscat_id="&request.querystring("cscat_id")
response.write ">下一页</a> <a href=web.asp?page="&totalpages&"&cscat_id="&request.querystring("cscat_id")&">尾页</a>"
end if
%>
 <IMG height=11 src="img/rt.gif" width=11 align=absMiddle></TD>
<TD align=middle width="150">
<select name="page">
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>頁</option> 
<%else%>
<option value=<%=i%>>第<%=i%>頁</option> 
<%end if
next%>
</select> <input type="submit" name="Submit2" value="轉向" onmouseover="this.className='boton'" onmouseout="this.className='botoff'"></TD>
</TR>
</FORM>
</table>     
      <%end if%>
<tr align="center"><td height="10" colspan="3"></td></tr></table><br>
</TD>
        </tr>
      </table>
<%
rs1.close
set rs1=nothing
rs.close
set rs=nothing
call footer()
end if
if request.querystring("action")="go" then
dim csid
csid=cint(request.querystring("cs_id"))
sql="select cs_count,cs_url from coolsites where cs_id="&csid
set rs=conn.execute(sql)
dim csurl
csurl=rs("cs_url")
sql="UPDATE coolsites SET cs_count = cs_count + 1 where cs_id="&csid
conn.execute(sql)
rs.close
set rs=nothing
response.redirect csurl
end if
%>