📄 html_makeclassall.asp
字号:
<!--#Include File="Conn.asp" -->
<%
If Session("AdminName")="" and Session("adminpass")="" Then
Response.Redirect "Error.asp?id=005"
Else
Response.Write "<Html>"
Response.Write "<Head>"
Response.Write "<Title>管理中心 - "& WebName &"</title>"
Response.Write "<Meta Http-Equiv=""Content-Type"" Content=""Text/Html; CharSet=Gb2312"">"
Response.Write "<Link Type=""Text/Css"" Rel=""StyleSheet"" Href=""Inc/Style.css"">"
Response.Write "</Head>"
Response.Write "<body>"
Response.Write "·<b><font color=""#FF0000"" size=""3"">生成所有一级分类的Html页面,请等待...........</font></b>"
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Class where classid='0'"
Rs.open Sql,Conn,1,1
do while not Rs.Eof
Response.Write "<IFRAME SRC=""Html_MakeClass.asp?nclass="&rs("ID")&"&page=1"" WIDTH=100% HEIGHT=39 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no></IFRAME>"
Rs.Movenext
Loop
Rs.Close
Response.Write "·<b><font color=""#FF0000"" size=""3"">生成所有二级分类的Html页面,请等待...........</font></b>"
set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Class where classid>'0' order by id asc"
Rs.open Sql,Conn,1,1
do while not Rs.Eof
Response.Write "<IFRAME SRC=""Html_MakeClass2.asp?classid="&rs("ID")&"&page=1"" WIDTH=100% HEIGHT=39 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no></IFRAME>"
Rs.Movenext
Loop
Rs.Close
Conn.Close
Set Conn=nothing
Response.Write "</body></html>"
end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -