最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

asp 網站靜態(tài)化函數(shù)代碼html

 更新時間:2009年09月03日 19:25:55   作者:  
asp 網站靜態(tài)化代碼html,具體的功能大家可以測試下。
復制代碼 代碼如下:

Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld)
if mulu="" then mulu="/"
if htmlmulu="" then htmlmulu="/"
mulu=replace(SysRootDir&mulu, "http://", "/")
htmlmulu=replace(SysRootDir&htmlmulu, "http://", "/")
FilePath=Server.MapPath(mulu)&"\"&FileName
Do_Url="http://"
Do_Url=Do_Url&Request.ServerVariables("server_name")&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

相關文章

最新評論

长寿区| 额济纳旗| 高碑店市| 民乐县| 大新县| 临安市| 赞皇县| 佛学| 利辛县| 丹凤县| 新巴尔虎右旗| 华池县| 鸡西市| 团风县| 巴中市| 和政县| 阿尔山市| 宜丰县| 鄂州市| 理塘县| 弥勒县| 托克逊县| 安溪县| 白城市| 河间市| 赞皇县| 兴海县| 洛浦县| 合山市| 宁陵县| 宿迁市| 尚义县| 香格里拉县| 金川县| 民县| 肇州县| 和平区| 九寨沟县| 双牌县| 定州市| 白玉县|