网站导航:首页|中学语文|中学数学|中学英语|中学物理|中学化学|中学生物|中学政治|中学历史 |中学地理|网络杂谈|保健生活|网站系统|资料库
LOADING...
» 您尚未 [登录 - 注册] ┆ 风格 ┆ 搜索 ┆ 帮助 ┆ 
>易学网-中考高考指南 -> 网络天空 -> 网站系统 -> asp生成HTML页面通用函数(XmlHttp)
资源发布 投票 回复评价 |今年最火爆的网购精品 您是本帖的第 1998321 个阅读者
 贴子主题:asp生成HTML页面通用函数(XmlHttp)
资源发表于 2012-9-4 20:47:56 资料 留言 编辑 引用 评帖 < 收藏 举报 1F >

asp生成HTML页面通用函数(XmlHttp)

<%

 sub InfoToHtml(Aspfile,Par,Beginid,Endid,Htmlfile)

'函数用法

'参数说明

'Aspfile 要转换的asp文件,不含.asp 可含路径如/main/index 表示/main/index.asp

'Par asp文件后的参数

'Beginid 开始的id

'Endid 结束的

'Htmlfile 输出的文件名 不含.htm 可含路径如/main/index 表示/main/index.htm

dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp

Html_Temp="<UL>"

For i=Beginid To Endid

Html_Temp = Html_Temp&"<LI>"

Item_Classid = i

if i=0 then

FileName = Htmlfile&".htm"

else

FileName = Htmlfile&Item_Classid&".htm"

end if

FilePath = Server.MapPath("/")&"\"&FileName

Html_Temp = Html_Temp&FilePath&"</LI>"

Do_Url = "http://"

Do_Url = Do_Url&Request.Servervariables("SERVER_NAME")&"/"&Aspfile&".asp"

Do_Url = Do_Url&"?"&Par&"="&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>"

end sub

%>

<%CALL InfoToHtml("/ShowNews","id","1","3","/news/ShowNews")%>





------------------------------------------------------------------------
易学网-中考高考指南欢迎您!



 

淘宝热卖女装品牌
广告招商
Q管理员:519865538
Q业务员:2780300168

 每页10条,共1页,合计1条记录
9  1  :
转到  


Powered By:ex66.com 版权声明 手机站
易学网 品牌商务 皮皮服务业务咨询/网站客服: Q Q Q
1995-2015Server Time 蜀ICP备11008542号-1 客服在线:管理员QQ 赞助本站,我们将为你更好服务!