Contact Us: kakkukk@yahoo.com.cn 新 ICP备 08001933号
|
<%
GetValue=request("GetValue")
Response.Write GetValue
%>
<%sub menus()
dim mymenus
mymenus=mymenus&"document.write('
abaidul arabic search');"&Chr(10)
exec="select * from cat where pcatid=0 and view=1 order by list asc"
set cat=server.createobject("adodb.recordset")
cat.open exec,conn,1,1
do while not cat.eof
mymenus=mymenus&Chr(10)&"document.write('
" &cat("catname")&"');"
cat.movenext
loop
cat.close
set cat=nothing
exec="select * from menu where view=1 order by list asc"
set menu=server.createobject("adodb.recordset")
menu.open exec,conn,1,1
do while not menu.eof
if menu("opennew")=1 then blank="target=_blank"
mymenus=mymenus&Chr(10)&"document.write('
" &menu("menu")&"');"
menu.movenext
loop
menu.close
set menu=nothing
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set file_w = fs.CreateTextFile(server.MapPath("../js/mymemus.js"))
file_w.WriteLine(mymenus)
response.Write("Success!
生成生成导航文件。文件已保存到："&server.MapPath("mymemus.js")&"
")
file_w.close
set file_w=nothing
set fs=nothing
end sub
%>
