高分求救 :怎么样用 asp 的后台程序 动态生成一个.JS文件。解决马上给分。在线等。MSN : [e-mail]

[VisualCDesigner]

用什么方法可以取出数据库中的内容来生成一个JS文件上传到服务器的指定目录中。
解决问题后马上给分。

[awaysrain]

用FSO生成就可以了

[GageCSDN]

分两个部分:生成JS代码和保存文件
生成代码就不用说啦,保存文件用FSO就行了.

[awaysrain]

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\test.js", True)
' 写一行，并带有一个新行字符。
tf.WriteLine("alert('test');")
' 向文件写三个新行字符。
tf.Close

[VisualCDesigner]

楼上大侠，能再说的说的详细一点吗。
我想从服务器上的数据取出数据。
生成一个JS文件。

想问一下你的程序是在服务器上执行的吗。

是不是在服务器上直接就生成了一个文件了。

[awaysrain]

是在服务器上运行的，是在服务器上直接就生成了一个文件

[Jetwong]

dim tempStr,folderStr
tempStr=""
folderStr="..\..\jscript\"

dim newstypeid,newstypeid2,father,Node,Node1,Node2,menu_sql,menu_sql1,menu_rs,menu_rs1,title_rs,title_sql,title_rs1,title_sql1

tempStr = "var WebMenuBar = new MenuBar;"&Chr(10)_
&"WebMenuBar.left = 0;"&Chr(10)_
&"WebMenuBar.top = 79;"&Chr(10)_

&"var oMain = new MenuItem(""人易主页"",""/"","""",null,188);"&Chr(10)_
&"WebMenuBar.add(oMain);"&Chr(10)


menu_sql="select * from [newstype] where [FATHER]=-1 and isMainMenu=1 and [lang]=0 order by [myorder]"
'response.write menu_sql
'response.end
set menu_rs=conn.execute(menu_sql)
do while not menu_rs.eof
newstypeid=menu_rs(0)
Node="oZero"&newstypeid
tempStr = tempStr & "var "&Node&" = new MenuItem("""&trim(menu_rs("typename"))&""","""","""",null,90);"&Chr(10)
menu_sql1="select * from [newstype] where [FATHER]="&newstypeid&" and [lang]=0 order by [myorder]"
set menu_rs1=conn.execute(menu_sql1)
do while not menu_rs1.eof
newstypeid2=menu_rs1(0)
Node1="oOne"&newstypeid2
tempStr = tempStr & " var "&Node1&" = new MenuItem("""&trim(menu_rs1("typename"))&""","""","""",null, 188);"&Chr(10)
title_sql1="select newsId,title from [news] where newstypeid="&newstypeid2&" order by sort,updatetime desc"
set title_rs1=conn.execute(title_sql1)
do while not title_rs1.eof
newsid=title_rs1(0)
tempStr = tempStr & " "&Node1&".add(new MenuItem("""&toTruncation(trim(title_rs1(1)),12)&""",""/htmlLib/page"&newsid&".htm"","""",null, 188));"&Chr(10)
title_rs1.movenext
loop
title_rs1.close
tempStr = tempStr & " "&Node&".add("&Node1&");"&Chr(10)
menu_rs1.movenext
loop
menu_rs1.close


title_sql="select newsId,title from [news] where newstypeid="&newstypeid&" order by sort,updatetime desc"
set title_rs=conn.execute(title_sql)
do while not title_rs.eof
newsid=title_rs(0)
Node2="oTwo"&newsid
tempStr = tempStr & " "&Node&".add(new MenuItem("""&toTruncation(trim(title_rs(1)),12)&""",""/htmlLib/page"&newsid&".htm"","""",null, 188));"&Chr(10)
'tempStr = tempStr & " var "&Node2&" = new MenuItem("""&title_rs(1)&""", ""/htmlLib/page"&newsid&".htm"");"&Chr(10)_
' &" "&Node&".add("&Node2&");"&Chr(10)
title_rs.movenext
loop
title_rs.close

tempStr = tempStr & "WebMenuBar.add("&Node&");"&Chr(10)

menu_rs.movenext
loop
menu_rs.close

tempStr = tempStr &"var oMap = new MenuItem(""网站地图"",""siteMap.asp"",null,null,90);"&Chr(10)_
&"WebMenuBar.add(oMap);"&Chr(10)


'response.write tempStr


Set fs=Server.CreateObject("Scripting.FileSystemObject")

all_tree2=server.mappath(folderStr)

if (fs.FolderExists(all_tree2)) then'判断文件夹是否存在

else
fs.CreateFolder(all_tree2)
end if

files="items.js"
filez=all_tree2&"\"&files

set ts = fs.createtextfile(filez,true) '写文件
for z=1 to len(tempStr)
write_now=mid(tempStr,z,1)
ts.write(write_now)
next

' ts.writeline(all_msg)

ts.close
set ts=nothing '文件生成

if err.number<>0 or err then
%>
<script language="javascript">
alert("非预测错误，不能正常完成文件保存。")
</script>
<%else%>
<script language="javascript">
alert("已完成文件保存操作！")
history.back();
</script>
<%
end if

set fs=nothing
set fdir=nothing

[sfply]

按楼上说的，你把FSO加在SQL循环中就可以了

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\test.js", True)
sql = "select * from database"
set rs = conn.execute(sql)
if not rs.eof and not rs.bof then
do while not rs.eof and not rs.bof
tf.WriteLine(rs(0))
rs.movenext
loop
end if
tf.Close

[sfply]

文件路径问题
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(server.mappath(".")&"\test.js", True)
表示在ASP脚本路径下的TEST。JS