📄 out_xw_js.asp

📁 下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admin

💻 ASP

字号:

<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="../inc/char.asp" -->
<%
dim sql,sql1,newsnote,newscount,addtime,foolcat,folderpath,fso,fout
sql1="select top 1 newscount from config"
newscount=conn.Execute(sql1)(0)
sql = "SELECT TOP " & newscount & " * FROM news Order by AddTime DESC"
set rs = conn.Execute (sql)
do until rs.eof
newsnote=rs("newsnote")
addtime=rs("addtime")
tmp = "http://" & request.servervariables("SERVER_NAME") & _            
left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("/admin/out_xw_js.asp"))
   foolcat = foolcat + "<center>" & addtime & "</center>"
   foolcat = foolcat + "&nbsp;&nbsp;" & newsnote
rs.MoveNext
loop
'生成JS文件
foolcat = "" + foolcat + ""
foolcat = replace(foolcat,")","]")
foolcat = replace(foolcat,"(","[")
foolcat = replace(foolcat,"'","")
foolcat = "document.write('" & foolcat & "');"
FolderPath = Server.MapPath("../js/")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(FolderPath&"\xw.js")
fout.WriteLine foolcat
'关闭连接
fout.close
set fout = nothing
rs.close
set rs = nothing
conn.close
set conn=nothing
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<link rel="stylesheet" type="text/css" href="style.css">
</head><body bgcolor="#468ea3"><p align=center><FONT color="#FFFFFF"><br><br>成功生成首頁新聞JS，请继续其他操作。</FONT><br><br><a href=javascript:history.go(-1)>>> 返 回 << </a></p>
</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -