神马品牌网角色期待 星座:ASP生成JS文件
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 00:03:54
下面是我要转成JS的代码，请各位高手帮帮忙，把它转成JS文件！
代码如下：
<script LANGUAGE="javaScript">
var ERR_NonePlayer="您的系统中没有安装Real Player播放器。请安装!\n\n播放器将关闭。";
var ERR_FileNotFind="未发现你要点播的舞曲。\n\n请更换其他舞曲！";
var ERR_NotLocateServer="播放器链接本舞曲所在服务器超时，请重新点播！";
var ERR_UnkownError="目前本站在线用户过多，服务器限制，请抢线或稍后试听！";
</script>
代码如下：
<script LANGUAGE="javaScript">
var ERR_NonePlayer="您的系统中没有安装Real Player播放器。请安装!\n\n播放器将关闭。";
var ERR_FileNotFind="未发现你要点播的舞曲。\n\n请更换其他舞曲！";
var ERR_NotLocateServer="播放器链接本舞曲所在服务器超时，请重新点播！";
var ERR_UnkownError="目前本站在线用户过多，服务器限制，请抢线或稍后试听！";
</script>
用ASP+FSO生成JS文件
<!--#include file="conn.asp"-->
<%
set js = server.CreateObject("ADODB.RecordSet")
sql="select top 10 * from article order by id desc"
set js = conn.Execute (Sql)
do while not js.eof
title=js("title")
addate=js("addate")
goaler = goaler + "<li><a href=""/"& js("id")&".htm"">" &title&" "&addate&"</a></li><br>"
js.movenext
loop
'生成JS文件
goaler = "" + goaler + ""
goaler = "document.write('" & goaler & "')"
FolderPath = Server.MapPath("./")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(FolderPath&"\top10.js")
fout.WriteLine goaler
'关闭连接
fout.close
set fout = nothing
js.close
set js = nothing
conn.close
set conn=nothing
%>
你把文件直接存成***.js 然后再ASP中调用不就完了！