📄 js_hot_index.asp

📁 网吧影印系统！很详细！可直接使用！请大家指点！
💻 ASP
字号:
<!--#include file=security.asp-->
<%
if session("flag")>1 then
response.write "<br><p align=center>您没有操作的权限</p>"
response.end
end if
%>
<%
filename="../js/index_hot.js"
if request("body")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write request("body")
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
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">

<%if mskrindex="ok" then%>
<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>
<%else%>
<div align="center">
  <table border="0" cellspacing="1" style="border-collapse: collapse" width="96%" bgcolor="#888888" height="100%">
    <form name="frmAnnounce" method="post" action="js_hot_index.asp">
      <tr>
        <td width="100%" bgcolor="#FFFFFF" height="100%">
        <textarea style="width:100%; height:100%;" rows="19" name="body" cols="102"><!--#include file="articleconn.asp"-->
<%
                         Set rst= Server.CreateObject("ADODB.Recordset")
                          rst.open "select articleid,title,hits from learning order by hits desc",conn,1,1
                          %>
        <%
                      i=0
                      do while not rst.eof
                      i=i+1
                      %>
document.write("<tr><td align=Center><b Style='Color:#FF6900'><%=i%></td>");
document.write("<td width=70%><a href=vod/html/<%=rst("articleid")%>.html class=mName><%=left(rst("title"),10)%></td>");
document.write("<td width=20% Align=Center><%=rst("hits")%></td></tr>");
<% 
                        if i>=20 then exit do
                        rst.movenext
                        loop
                        rst.close
                        set rst=nothing
                        %>

</textarea></td>
      </tr>
      <tr>
        <td width="100%" bgcolor="#F0F0F0">
        <p align="center">
        <input name="change" class="buttonface" value="生成(JS)" type="submit">
        </td>
      </tr>
    </form>
  </table>
  <%end if
 %>
</div>

</body>

</html>
⌨️ 快捷键说明

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