📄 out_movie_js.asp
字号:
<!--#INCLUDE FILE="conn.asp" -->
<%
set js = server.CreateObject("ADODB.RecordSet")
strSql = "SELECT TOP 10 * FROM download where classid=10 ORDER BY dateandtime DESC"
set js = conn.Execute (StrSql)
do until js.eof
showname=js("showname")
if len(showname)>12 then
title=left(showname,12)+"..."
else
title=showname
end if
note=js("note")
if len(note)>27 then
txt=left(note,27)+"..."
else
if len(note)<12 then
txt=""¬e&"<br>---"
else
txt=note
end if
end if
tmp = "http://" & request.servervariables("SERVER_NAME") & _
left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("/admin/out_movie_js.asp"))
foolcat = foolcat + "·<a href="&tmp&"/list.asp?id="&js("id")&" target=_blank>" & title & "</a><br>"
js.MoveNext
loop
'生成JS文件
foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
FolderPath = Server.MapPath("../")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(FolderPath&"\movie.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"><p align=center><FONT color="#FFFFFF">成功生成电影JS，请继续其他操作。</FONT></p>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -