📄 js_hot.asp

📁 网吧影印系统！很详细！可直接使用！请大家指点！
💻 ASP
字号:
<!--#include file=security.asp-->
<%
if session("flag")>1 then
response.write "<br><p align=center>您没有操作的权限</p>"
response.end
end if
%>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="images/forum_admin.css">
<title></title>
</head>

<body topmargin="1" leftmargin="1">
<%action=request("action")
if action<>"star" then%>
<div align="center">
  <table border="0" cellspacing="1" style="border-collapse: collapse"  bgcolor="#888888" >
    <form name="frmAnnounce" method="post" action="js_hot.asp?action=star">
      <tr><br><br><br><br><br>
        <td  bgcolor="#F0F0F0">
        <p align="center">
        <input name="change" class="buttonface" value="点击生成分类点击排行(JS)" type="submit">
        </td>
      </tr>
    </form>
  </table>
</div>
<%else%>
<div align="center">
  <table border="0" cellspacing="1" style="border-collapse: collapse"  bgcolor="#888888">
      <tr>
        <td  bgcolor="#FFFFFF" >
<!--#include file="articleconn.asp"-->
<%
      Set rs1= Server.CreateObject("ADODB.Recordset")
      rs1.open "select * from type",conn,1,1
      do while not rs1.eof
      Set rst= Server.CreateObject("ADODB.Recordset")
      rst.open "select articleid,title,hits from learning where typeid='"&rs1("type")&"' order by hits desc",conn,1,1
i=0
top="document.write('<tr><td ><table width=100% border=0 cellpadding=0 cellspacing=0>');"
do while not rst.eof
i=i+1
top=top&"document.write('<tr><td width=80% > &nbsp;<a href=../html/"&rst("articleid")&".html class=left>"&left(rst("title"),10)&"</td>');"
top=top&"document.write('<td width=20% Align=Center><font class=eng_S color=#3B591B1>"&rst("hits")&"</font></td></tr>');"
if i>=10 then exit do
                        rst.movenext
                        loop
top=top&"document.write('</table></td></tr>');"
filename="../js/hot_"&rs1("typeid")&".js"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write top
fout.close
set fout=nothing
set fso=nothing
                        rs1.movenext
                        loop
                        rst.close
                        set rst=nothing
                        rs1.close
                        set rs1=nothing
%>

</td>
      </tr>
  </table>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
  <tr>
    <td width="100%"><font color="#FF0000">·</font>成功生成所有分类点击排行JS(<b>hot_*.Js</b>),时间<%=Now()%>
  </tr>
</table>
</div>
<%end if%>


</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -