توربەت ئىزدەش  |  رەسىم ئىزدەش  |  فىلىم ئىزدەش | ناخشا ئىزدەش


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 %>