asp 生成html文件函数代码及演示示例
'函数参数说明
'mulu 实际生成的文件目录
'htmlmulu htmlmulu文件URL目录
'FileName html生成的文件名
'filefrom 要读取的（生成的）asp动态文件
'htmla,htmlb,htmlc,htmld 备用的参数
Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld)
if mulu="" then mulu=""&HtmlDir&""
if htmlmulu="" then htmlmulu=""&SysRootDir&""
mulu=replace(mulu, "//", "/")
FilePath=Server.MapPath(mulu)&"\"&FileName
Do_Url="http://"
Do_Url=Do_Url&Request.ServerVariables("server_name")&"/asp"&htmlmulu&filefrom
Do_Url=Do_Url&"?"&htmla&htmlb&"&"&htmlc&htmld
strUrl=Do_Url
set objXmlHttp=Server.createObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
binFileData=objXmlHttp.responseBody
Set objXmlHttp=Nothing
set objAdoStream=Server.CreateObject("Adodb." & "Stream")
objAdoStream.Type=1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
set objAdoStream=nothing
End Function
ASP生成伪静态HTML SHTML文件函数使用实例：
Sub HtmlProSort
totalrec=Conn.Execute("Select count(*) from Qianbo_Products Where ViewFlag")(0)
totalpage=int(totalrec/ProInfo)
If (totalpage * ProInfo)<totalrec Then
totalpage=totalpage+1
End If
if totalpage<=1 then
call htmll("","",""&ProSortName&"."&HTMLName&"","ProductList.asp","Page=",1,"","")
else
for i=1 to totalpage
call htmll("","",""&ProSortName&""&Separated&""&i&"."&HTMLName&"","ProductList.asp","Page=",i,"","")
next
end if
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from Qianbo_ProductSort order by ID desc"
rs.open sql,conn,1,1
If rs.eof Then
Class_Num=0
Else
Class_Num=1
do while not rs.eof
ID=rs("ID")
SortPath=conn.execute("select * from Qianbo_ProductSort Where ViewFlag And ID="&ID)("SortPath")
totalrec=Conn.Execute("Select count(*) from Qianbo_Products where ViewFlag and SortPath Like '%"&SortPath&"%'")(0)
totalpage=int(totalrec/ProInfo)
If (totalpage * ProInfo)<totalrec Then
totalpage=totalpage+1
End If
if totalpage<=1 then
call htmll("","",""&ProSortName&""&Separated&""&ID&""&Separated&"1."&HTMLName&"","ProductList.asp","SortID=",ID,"Page=",1)
else
for i=1 to totalpage
call htmll("","",""&ProSortName&""&Separated&""&ID&""&Separated&""&i&"."&HTMLName&"","ProductList.asp","SortID=",ID,"Page=",i)
next
end If
Response.Write "<script>bar_img.width="&Fix((Class_Num/rs.recordcount)*300)&";"
Response.Write "bar_txt1.innerHTML=""成功生成"&Class_Num&"个分类的HTML静态页面。完成比例：" & formatnumber(Class_Num/rs.recordcount*100) & """;</script>"
Response.Flush
rs.movenext
Class_Num=Class_Num+1
Loop
End If
rs.close
set rs=nothing
End Sub
代码是以函数出现可以在其他地方调用，并且数据时是以连接数据库读取出来，更适合使用和理解
asp 生成html文件函数代码及演示示例
