maketool.asp

来自「功能说明： 1」· ASP 代码 · 共 27 行

<!--#include file="adyou.asp"-->
<%
if session("super")<>"super" then
 response.Write("<script>alert('您没权限访问本页');window.location.href='de.asp'</script>")
 response.End()
end if
%>
<%
str=""
str="document.write('"
set rs=server.CreateObject("adodb.recordset")
sql="select * from XS20_URL where space=2"
rs.open sql,adyou,1,1
while not rs.eof
str=str&"<nobr><a href="""&rs("url")&""" target=""_blank"" style=""font-size:12px"" class=slv>"&rs("title")&"</a></nobr>"&chr(32)&chr(32)&chr(32)
rs.movenext
wend
rs.close
set rs=nothing
str=str&"')"
set openobject=server.createobject("scripting.filesystemobject")
      set openfile=openobject.createtextfile(server.mappath("../images/realtool.js"),true)
       openfile.write str
      set openfile=nothing
     set openobject=nothing
response.write"<script>alert('生成成功');window.history.go(-1)</script>"
%>