📄 sql_make_js.asp

📁 后台地址：login.asp 管理员帐户：admin 密码：admin 数据库 Data/#23mn.cn.asp (电视电台数据) Data/Data_Admin.asp (管理信
💻 ASP
字号:
<!--#include file="Sql_Conn_Open.asp" -->
<!--#include file="Sql_Check.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Js生成</title>
<link href="Images/Style.css" rel="stylesheet" type="text/css">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
</head>
<table width="98%" border="0" align="center" cellpAdding="0" cellspacing="0">
  <tr> 
    <td height="35" background="Images/Sql_top_bg.gif">　<a href="Sql_Make_Js.asp?Action=Mov">视频Js生成</a>　<a href="Sql_Make_Js.asp?Action=Img">图片Js生成</a>　<a href="Sql_Make_Js.asp?Action=Sex">两性Js生成</a></td>
  </tr>
</table>
<%if request("Make_Ok") ="Mov" then%>
<%
filename="../Js/Hot_Mov.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
'Make_Mov_JS="ok"
end if
%>
<br>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
  <tr>
    <td width="100%">　<font color="#FF0000">·</font>成功生成“视频”点击排行JS(<b>Hot_Mov.Js</b>),时间<%=Now()%>
  </tr>
</table>
<%elseif request("Action") = "Mov" then%>
<table width="100%" height="100" border="0" align="center" cellpAdding="0" cellspacing="0">
  <tr>
    <td valign="top">
    <table width="98%" border="0" align="center" cellpAdding="0" cellspacing="0">
        <tr height="10"> 
          <td height="5"></td>
        </tr>
      </table>
      <table width="98%" border="0" align="center" cellpAdding="0" cellspacing="1" class="table">
      <form method="Post" name="Form1" Action="Sql_Make_Js.asp">
    <tr > 
      <td align=center width="100%"> 
        <textarea rows="20" name="body" cols="80">
document.write("<TABLE cellSpacing=0 cellPadding=0 width=770 border=0>");
document.write("<tr>");
     <%
     set rs=server.CreateObject("adodb.Recordset")
     sql="Select top 20 * from Sql_Movie order by Mov_Click desc"
     rs.open sql,conn2,1,1
     if rs.eof then
     %>
     <%else 
     do while not rs.eof
     if i mod 5 =0 and i<>0 then
response.write "document.write(""<tr>"");"
response.write "document.write(""</tr>"");"
     end if
     %>
document.write("<TD width='20%' height=21>");
document.write("<table width='100%' border='0' cellpadding='0' cellspacing='1'>");
document.write("<tr>");
document.write("<TD height='21'>· <a href='http://www.23mn.com/Html/Movie/23mn_<%=rs("ID")%>.html' title='<%=rs("Mov_Title")%>' target=_blank><%if len(rs("Mov_Title")) > 8 then Response.write left(rs("Mov_Title"),8)&"" else Response.write rs("Mov_Title") end if%></A><span style='font-size: 9px'>(<%=rs("Mov_Click")%>)</span></TD>");
document.write("</tr>");
document.write("<tr>");
document.write("<TD width='100%' background='http://www.23mn.com/Images/Lm_Line.gif'></TD>");
document.write("</tr>");
document.write("</TABLE>");
document.write("</TD>");
     <%
     i=i+1
     if i>19 then exit do
     rs.movenext 
     loop
     rs.close 
     set rs=nothing
     end if
     %>
document.write("</tr>");
document.write("</TABLE>");
</textarea>
	  </td>
    </tr>
  </table>
  <p align="center">
  <input type="Submit" name="Submit" value="生 成">
  <input type="Hidden" name="Make_Ok" value="Mov"> 
  <input type="Button" value="预览" onClick="test()" size=10></p>
      </td>
  </tr>
  </form>
</table>
<%end if%>
<%if request("Make_Ok") = "Img" then%>
<%
filename="../Js/Hot_Img.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
'Make_Img_JS="ok"
end if
%>
<br>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
  <tr>
    <td width="100%">　<font color="#FF0000">·</font>成功生成“图片”点击排行JS(<b>Hot_Img.Js</b>),时间<%=Now()%>
  </tr>
</table>
<%elseif request("Action") ="Img" then%>
<table width="100%" height="100" border="0" align="center" cellpAdding="0" cellspacing="0">
  <tr>
    <td valign="top">
    <table width="98%" border="0" align="center" cellpAdding="0" cellspacing="0">
        <tr height="10"> 
          <td height="5"></td>
        </tr>
      </table>
      <table width="98%" border="0" align="center" cellpAdding="0" cellspacing="1" class="table">
      <form method="Post" name="Form2" Action="Sql_Make_Js.asp">
    <tr > 
      <td align=center width="100%"> 
        <textarea rows="20" name="body" cols="80">
document.write("<TABLE cellSpacing=0 cellPadding=0 width=770 border=0>");
document.write("<tr>");
     <%
     set rs=server.CreateObject("adodb.Recordset")
     sql="Select top 20 * from Sql_Image order by ID desc"
     rs.open sql,conn1,1,1
     if rs.eof then
     %>
     <%else 
     do while not rs.eof
     if i mod 5 =0 and i<>0 then
response.write "document.write(""<tr>"");"
response.write "document.write(""</tr>"");"
     end if
     %>
document.write("<TD width='20%' height=21>");
document.write("<table width='100%' border='0' cellpadding='0' cellspacing='1'>");
document.write("<tr>");
document.write("<TD height='21'>· <a href='http://www.23mn.com/Html/Pic/23mn_<%=rs("ID")%>.html' title='<%=rs("Img_Title")%>' target=_blank><%if len(rs("Img_Title")) > 8 then Response.write left(rs("Img_Title"),8)&"" else Response.write rs("Img_Title") end if%></A><span style='font-size: 9px'>(<%=rs("Img_Click")%>)</span></TD>");
document.write("</tr>");
document.write("<tr>");
document.write("<TD width='100%' background='http://www.23mn.com/Images/Lm_Line.gif'></TD>");
document.write("</tr>");
document.write("</TABLE>");
document.write("</TD>");
     <%
     i=i+1
     if i>19 then exit do
     rs.movenext 
     loop
     rs.close 
     set rs=nothing
     end if
     %>
document.write("</tr>");
document.write("</TABLE>");
</textarea>
	  </td>
    </tr>
  </table>
  <p align="center">
  <input type="Submit" name="Submit" value="生 成">
  <input type="Hidden" name="Make_Ok" value="Img"> 
  <input type="Button" value="预览" onClick="test()" size=10></p>
      </td>
  </tr>
  </form>
</table>
<%end if%>
<%if request("Make_Ok") = "Sex" then%>
<%
filename="../Js/Hot_Sex.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
'Make_Sex_JS="ok"
end if
%>
<br>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
  <tr>
    <td width="100%">　<font color="#FF0000">·</font>成功生成点“两性”击排行JS(<b>Hot_Sex.Js</b>),时间<%=Now()%>
  </tr>
</table>
<%elseif request("Action") ="Sex" then%>
<table width="100%" height="100" border="0" align="center" cellpAdding="0" cellspacing="0">
  <tr>
    <td valign="top">
    <table width="98%" border="0" align="center" cellpAdding="0" cellspacing="0">
        <tr height="10"> 
          <td height="5"></td>
        </tr>
      </table>
      <table width="98%" border="0" align="center" cellpAdding="0" cellspacing="1" class="table">
      <form method="Post" name="Form3" Action="Sql_Make_Js.asp">
    <tr > 
      <td align=center width="100%"> 
        <textarea rows="20" name="body" cols="80">
document.write("<TABLE cellSpacing=0 cellPadding=0 width=770 border=0>");
document.write("<tr>");
     <%
     set rs=server.CreateObject("adodb.Recordset")
     sql="Select top 20 * from Sql_Sexes order by ID desc"
     rs.open sql,conn4,1,1
     if rs.eof then
     %>
     <%else 
     do while not rs.eof
     if i mod 5 =0 and i<>0 then
response.write "document.write(""<tr>"");"
response.write "document.write(""</tr>"");"
     end if
     %>
document.write("<TD width='20%' height=21>");
document.write("<table width='100%' border='0' cellpadding='0' cellspacing='1'>");
document.write("<tr>");
document.write("<TD height='21'>· <a href='http://www.23mn.com/Html/Sex/23mn_<%=rs("ID")%>.html' title='<%=rs("Sex_Title")%>' target=_blank><%if len(rs("Sex_Title")) > 8 then Response.write left(rs("Sex_Title"),8)&"" else Response.write rs("Sex_Title") end if%></A><span style='font-size: 9px'>(<%=rs("Sex_Click")%>)</span></TD>");
document.write("</tr>");
document.write("<tr>");
document.write("<TD width='100%' background='http://www.23mn.com/Images/Lm_Line.gif'></TD>");
document.write("</tr>");
document.write("</TABLE>");
document.write("</TD>");
     <%
     i=i+1
     if i>19 then exit do
     rs.movenext 
     loop
     rs.close 
     set rs=nothing
     end if
     %>
document.write("</tr>");
document.write("</TABLE>");
</textarea>
	  </td>
    </tr>
  </table>
  <p align="center">
  <input type="Submit" name="Submit" value="生 成">
  <input type="Hidden" name="Make_Ok" value="Sex"> 
  <input type="Button" value="预览" onClick="test()" size=10></p>
      </td>
  </tr>
  </form>
</table>
<%end if%>
<!--#include file="Sql_Conn_Close.asp" -->
</body>

</html>
⌨️ 快捷键说明

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