📄 makejs.asp

📁 网址使用源码

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
if Session("isAdmin")<>true Then
Response.Write "非法闯入！"
Response.End
End if
%>
<%if request("s")=1 then%>
<html>
<head>
<title>首页连接更新</title> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</head>
<body>
<p>　</p>
<table width="55%" border="0" cellspacing="1" cellpadding="8" align="center" bgcolor="#999999">
  <tr> 
    <td bgcolor="#cccccc" align="center"> 首页连接更新</td>
  </tr>
  <tr> 
    <td align="center" bgcolor="#eeeeee"><br> <li>首页连接更新完成</A><br>
        <br>
    </td>
  </tr>
</table>
</body>
</html>
<%
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("../new.js"),true)
menulist="document.write('<table width=100% border=0 cellspacing=0 cellpadding=0>"
 
      set cs=server.createobject("adodb.recordset")
		csql="select top 6 url,title from detail  order by  id desc"
		cs.open csql,conn,1,1  
		menulist=menulist&"<tr>" 		
		do while not cs.eof
	 
          menulist=menulist&"<td heitght=20 align=center><a href="""&cs(0)&""" target=_blank>"&cs(1)&"</a> </td>"
	 		i=i+1                                       
                if i=6 then                                       
                   i=0                                       
                 menulist=menulist&"</tr><tr>"                                       
                end if                              
		 cs.movenext
			loop
			
		set cs=nothing  
        
 menulist=menulist&"</table>')"
fd.write menulist
fd.close
%>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -