📄 adminmakehtml.asp
字号:
<!--#include file="include/conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/access.asp"-->
<%
function getCategories()
str = ""
sql = "select * from BigClass"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1
str = str & "<html><head><title></title><LINK href=css/css.css rel=stylesheet>"
str = str & "<script language=javascript>"
str = str & "function window.onload()"
str = str & "{"
str = str & "if(top.location != self.location)"
str = str & "{"
str = str & "var a = window.parent.document.getElementsByTagName('iframe');"
str = str & " for (var i=0; i<a.length; i++)"
str = str & " {"
str = str & " if (a[i].name == self.name)"
str = str & " {"
str = str & " a[i].height = document.body.scrollHeight;"
str = str & " a[i].width = document.body.scrollWidth;"
str = str & " return;"
str = str & " }"
str = str & " }"
str = str & " } "
str = str & "}"
str = str & "</script>"
str = str & "</head><body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0><table width=100% border=0 cellspacing=0 cellpadding=3 bgcolor=#F0F9FB align=center>"
do while not rs.eof and not rs.bof
str = str & "<tr >"
str = str & "<td colspan=2><a href=../showBigClass.asp?BigIndexNO="&rs("BigIndexNO")&" target=_parent>--<b>"&rs("BigName")&"</b>--</a></td>"
str = str & "</tr>"
sql = "select * from SubClass where BigIndexNO = '"&rs("BigIndexNO")&"'"
set rs1 = server.CreateObject("adodb.recordset")
rs1.open sql,conn,1,1
str = str & "<tr>"
do while not rs1.eof and not rs1.bof
str = str & "<td><a href=../showSubClass.asp?SubIndexNO="&rs1("SubIndexNO")&" target=_parent>"&rs1("SubName")&"</a></td>"
rs1.movenext
if not rs1.eof and not rs1.bof then
str = str & "<td><a href=../showSubClass.asp?SubIndexNO="&rs1("SubIndexNO")&" target=_parent>"&rs1("SubName")&"</a></td>"
else
str = str & "<td> </td>"
end if
str = str & "</tr>"
if not rs1.eof and not rs1.bof then
rs1.movenext
end if
loop
rs.movenext
loop
str = str & "</table></body></html>"
getCategories = str
end function
action = request("action")
if action = "categories" then
ObFilePath = Server.MapPath("../Html/Categories.html")
set adoStream = server.createobject("adodb.stream")
adoStream.Charset = "GB2312"
adoStream.open
adoStream.WriteText getCategories()
adoStream.SaveToFile ObFilePath,2
response.write "<script>alert('分类生成成功！');history.go(-1);</script>"
else
response.write "参数错误！"
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -