📄 html_makenewscall.asp
字号:
<!--#include file="INC/HTMLPRODUCT.ASP"--><!--#include file="admin.ASP"-->
<%
Response.Write "<Html>"
Response.Write "<Head>"
Response.Write "<Html>"
Response.Write "<Head>"
Response.Write "<Title>管理中心</title>"
Response.Write "<Meta Http-Equiv=""Content-Type"" Content=""Text/Html; CharSet=Gb2312"">"
Response.Write "<Link Type=""Text/Css"" Rel=""StyleSheet"" Href=""Images/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 BigClass_new"
Rs.open Sql,Conn,1,1
do while not Rs.Eof
Response.Write "<IFRAME SRC=""Html_MakeNewsc.asp?BigClassID="&rs("BigClassID")&"&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>"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -