加入收藏 | 设为首页
爱江湖网站LOGO
您当前的位置:首页 > 学习笔记 > WEB后端

asp批量生成html静态页面方法

发布时间:2024-10-29  Asp

方法一(其中的i=1 to 5 可以根据你需要生成ID的值修改):

下面的例子是将、index.asp?id=1/index.asp?id=2/index.asp?id=3/这三个动态页面,分别生成index1.htm,index2.htm,index3.htm存在根目录下面

<% 
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp 
Html_Temp="<UL>" 
For i=1 To 5 
Html_Temp = Html_Temp&"<LI>" 
Item_Classid = i 
FileName = "Index"&Item_Classid&".htm" 
FilePath = Server.MapPath("/")&"\"&FileName 
Html_Temp = Html_Temp&FilePath&"</LI>" 
Do_Url = "http://" 
Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/main/index.asp" 
Do_Url = Do_Url&"?Item_Classid="&Item_Classid 
strUrl = Do_Url 
dim objXmlHttp 
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") 
objXmlHttp.open "GET",strUrl,false 
objXmlHttp.send() 
Dim binFileData 
binFileData = objXmlHttp.responseBody 
Dim objAdoStream 
set objAdoStream = Server.CreateObject("ADODB.Stream") 
objAdoStream.Type = 1 
objAdoStream.Open() 
objAdoStream.Write(binFileData) 
objAdoStream.SaveToFile FilePath,2 
objAdoStream.Close() 
Next 
Html_Temp = Html_Temp&"<UL>" 
%> 
<% 
Response.Write ( "成功生成文件:" ) 
Response.Write ( "<BR>" ) 
Response.Write Html_Temp 
%>

方法二:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Dim myconn
myconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("数据库地址")
set conn=server.createobject("ADODB.connection")
conn.open myconn
set rs=Server.CreateObject("ADODB.Recordset")
SQL= "SELECT * FROM 产品"
rs.Open sql,conn,1,1 
dim read,Curl,content
do while not rs.eof
Curl="http://localhost/post/proziliao.asp?pro_id="&rs("pro_id")&""       '这里是循环地址
read=getHTTPPage(Curl) 
if read<>"" then
content=read
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Filen=Server.MapPath("../post/proziliao_"&rs("pro_id")&".html")   '这里是生成的HTML
Set Site_Config=FSO.CreateTextFile(Filen,true, False)
Site_Config.Write content
Site_Config.Close
Set Fso = Nothing
end if
rs.movenext
loop
Function getHTTPPage(url) 
dim http 
set http=Server.createobject("Microsoft.XMLHTTP") 
Http.open "post",url,false 
Http.send() 
if Http.readystate<>4 then
exit function 
end if 
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear 
End function
Function BytesToBstr(body,Cset) 
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText 
objstream.Close
set objstream = nothing
End Function
%>


来顶一下
返回首页
返回首页
上一篇
SQL server字符串截取 - 根据指定符号截取字符串
下一篇
ASP得到当前页面完整地址
发表评论 共有条评论
验证码: 匿名发表
推荐资讯
元宇宙之侠剑江湖游
元宇宙之侠剑江湖游
什么是江湖 - 江湖遐想
什么是江湖 - 江湖遐
如果每一只江湖怪物,都爱着一个玩家
如果每一只江湖怪物,都
解除卡、陷害卡、捣乱卡、吸血虫满大厅砸
解除卡、陷害卡、捣乱
相关文章
    无相关信息
栏目更新
栏目热门