28,390
社区成员
发帖
与我相关
我的任务
分享
<%sid=request("id")%><%
set js = server.CreateObject("ADODB.RecordSet")
sql="select * from "&tbname&"_ad where id="& sid &" "
set js = conn.Execute (Sql)
do while not js.eof
content=js("content")
foolcat = foolcat + "<li>" &content&" </li><br>"
js.movenext
loop
'生成JS文件
foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
FolderPath = Server.MapPath("../ad")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(FolderPath&"\"& sid &" .js")
fout.WriteLine foolcat
'关闭连接
fout.close
set fout = nothing
js.close
set js = nothing
Call Info("广告" & sid & ".js已生成!")
%>
<%
Dim foolcat
foolcat = ""
FolderPath = Server.MapPath("../ad")
sid = request("id")
Set js = server.CreateObject("ADODB.RecordSet")
sql = "select * from "&tbname&"_ad where 1 = 1 "
If sid <> "" Then
Sql = Sql & " And id="& sid &" "
End If
Set js = conn.Execute (Sql)
Do While Not js.EOF
foolcat = foolcat & "<li>" &js("content")&" </li><br>"
foolcat = foolcat & "document.write('" & foolcat & "')"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(FolderPath&"\"& js("id") &" .js")
fout.WriteLine foolcat
'关闭连接
fout.Close
Set fout = Nothing
Call Info("广告" & js("id") & ".js已生成!")
js.movenext
Loop
'生成JS文件
js.Close
Set js = Nothing
%>