📄 enhtml_makeprall.asp
字号:
<!--#include file="INC/HTMLenPRODUCT.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 ID From Product order by ID Desc"
Rs.open Sql,Conn,1,1
do while not Rs.Eof
Num=Rs.RecordCount
Response.Write "<Iframe Src=""enHtml_MakePrHtml.asp?ID="&Rs("ID")&""" WIDTH=""100%"" HEIGHT=""20"" MARGINWIDTH=""0"" MARGINHEIGHT=""0"" HSPACE=""0"" VSPACE=""0"" FRAMEBORDER=""0"" SCROLLING=""no"">"
Response.Write "</iframe>"
Rs.movenext
Loop
Rs.Close
Conn.Close
Set Conn=nothing
Response.Write "·<b>成功：总共生成 <font color=""#ff0000"">"&Num&"</font> 个页面！</b>"
Response.Write "</body>"
Response.Write "</html>"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -