📄 outjs.asp
字号:
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="../inc/const.asp" -->
<%dim foolcat,title
dim js,strsql
set js = server.CreateObject("ADODB.RecordSet")
strSql = "SELECT TOP 10 Nclass.*,download.* FROM download,Nclass where Nclass.Nclassid=download.Nclassid ORDER BY download.dateandtime DESC"
set js = conn.Execute (StrSql)
do until js.eof
showname=""&js("showname")&" "&js("bb")&""
if len(showname)>20 then
title=left(showname,20)+"..."
else
title=showname
end if
tmp = "http://" & request.servervariables("SERVER_NAME") & _
left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("/admin/outjs.asp"))
foolcat = foolcat + "☉[<a href="&tmp&"/sort.asp?classid="&js("classid")&"&Nclassid="&js("Nclassid")&" target=_blank>"&js("Nclass")&"</a>] <a href="&tmp&"/list.asp?id="&js("id")&" target=_blank>" & title & "</a><span class=b2>("&month(js("dateandtime"))&"月"&day(js("dateandtime"))&"日)</span><br>"
i=i+1
if i>=10 then exit do
js.MoveNext
loop
'生成JS文件
foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
FolderPath = Server.MapPath("../")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(FolderPath&"\news.js")
fout.WriteLine foolcat
'关闭连接
fout.close
set fout = nothing
js.close
set js = 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"><br><br>
<p align=center><FONT color="#FFFFFF"><b>成功更新JS文件</b></FONT></p>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -