📄 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 9 Nclass.*,download.* FROM download,Nclass where Nclass.Nclassid=download.Nclassid ORDER BY download.id DESC"
set js = conn.Execute (StrSql)
do until js.eof
if len(js("showname"))>16 then
title=left(js("showname"),16)+"..."
else
title=js("showname")
end if
foolcat = foolcat + "☉[<a href=http://www.ActiveEdu.net/softdown/default.asp?classid="&js("classid")&"&Nclassid="&js("Nclassid")&">"&js("Nclass")&"</a>]<a href=download/list.asp?id="&js("id")&" title="&js("showname")&">" & title & "</a><span class=b2>("&js("dateandtime")&")</span><br>"
js.MoveNext
loop
'生成JS文件
foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(jsdir)
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" style="background-color: #FFFFFF"><br><br>
<p align=center><font color="#000000">操作成功，请继续其他操作。</font></p>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -