📄 makejs.asp

📁 网吧使用的导航web站点

💻 ASP

字号:

<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
if request("s")=1 then
%>
<html>
<head>
<title>首页新加网站js更新</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">首页新加网站js调用</td>
  </tr>
  <tr> 
    <td align="center" bgcolor="#eeeeee"><br>
    <li>js更新完成</A><br>
    <br></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#eeeeee">[<FONT color=#002288> <A href="http://www.HOTwz.com" target=_blank>热门网址</A></FONT>]</td>
  </tr>
</table>
</body>
</html>
<%
dim menulist
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("../js/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 where verity=1 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&"<td heitght=20 align=center><a href=http://www.HOTwz.com target=_blank>热门网址</a></td></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 + -