www.gusucode.com > 玩玩小游戏FLASH系统 2.1码程序 > admin/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%>