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