您所在位置：主题：高手快进来看看，这是什么意思，谢谢
小财神
[专家分：70] 发布于 2007-04-26 17:14:00
这段是什么意思
classfile=server.mappath("../autojs/class"&RootID&".js")
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile(classfile,1)
classjs=txt.ReadLine
classjs=replace(classjs,"document.write('"," ")
classjs=replace(classjs,"')"," ")
txt.close
'response.write sql
'response.write "<br>"
'response.end
rs.open sql,conn,1,1
if rs.eof and rs.bof then
HtmlContent=HtmlTemplate
if adbanner="" then
adbanner=""
end if
if classjs="" then
classjs="暂无分类"
end if
if strSoftList="" then
strSoftList="暂无产品"
end if
classfile=server.mappath("../autojs/class"&RootID&".js")
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile(classfile,1)
classjs=txt.ReadLine
classjs=replace(classjs,"document.write('"," ")
classjs=replace(classjs,"')"," ")
txt.close
'response.write sql
'response.write "<br>"
'response.end
rs.open sql,conn,1,1
if rs.eof and rs.bof then
HtmlContent=HtmlTemplate
if adbanner="" then
adbanner=""
end if
if classjs="" then
classjs="暂无分类"
end if
if strSoftList="" then
strSoftList="暂无产品"
end if
