asp生成静态网页 不用模板 直接传参数读取asp文件
来源：
互联网
日期：2008-11-17
<%
hps=50
indexmulu="/asp/00/pro" '''''''''修改这里为本系统所在相对目录，以根据自己的程序修改
'**************************************************************
'函数名：htmll
'作 用：生成静态页面
'参 数：htmlmulu ----HTML模板(asp源文件)存放的目录
' FileName ----生成的HTML文件名(不包括 .及扩展名)
' filefrom ----生成的HTML文件 .及扩展名
' ArrName ----参数的名称 数组
' ArrContent ----对应参数的内容 数组
'**************************************************************
Function htmll(mulu,htmlmulu,FileName,filefrom,ArrName,ArrContent)
if mulu="" then mulu="/news/" '默认生成的HTML文件存放的目录
if htmlmulu="" then htmlmulu="/html/" '默认HTML模板存放的目录
mulu=indexmulu&mulu
htmlmulu=indexmulu&htmlmulu
FilePath=Server.MapPath(mulu)&"\"&FileName
Do_Url="http://"
Do_Url=Do_Url&Request.ServerVariables("SERVER_NAME")&htmlmulu&filefrom
if IsArray(ArrName) then
Do_Url=Do_Url&"?"&ArrName(0)&ArrContent(0)
for i=1 to Ubound(ArrName)
Do_Url=Do_Url&"&"&ArrName(i)&ArrContent(i)
next
end if
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生成静态网页 不用模板 直接传参数读取asp文件请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源：
互联网
日期：2008-11-17
|
|
|
