注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

火山左儿

学无止境

 
 
 

日志

 
 

asp根据判断生成静态html页面代码  

2010-12-02 16:04:16|  分类: 计算机应用问题 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

<%
dim childType,Curl,childName,childUrl,localPath
childType = request.QueryString("childType")
select case childType
 case "0"
  Curl="http://www.111cn.net/default.asp"
  childName = "网站首页"
  childUrl = "/index.html"
  localPath = ""
 case "1"
  Curl="http://www.111cn.net/news/index.asp"
  childName = "新闻中心首页"
  childUrl = "/news/index.html"
  localPath = "/news"
 case "2"
  Curl="http://www.111cn.net/newhouse/index.asp"
  childName = "新房网首页"
  childUrl = "/newhouse/index.html"
  localPath = "/newhouse"
 case "3"
  Curl="http://www.111cn.net/home/index.asp"
  childName = "家居网首页"
  childUrl = "/home/index.html"
  localPath = "/home"
 case "4"
  Curl="http://www.111cn.net/hirehouses/index.asp"
  childName = "租售网首页"
  childUrl = "/oldhouse/index.html"
  localPath = "/oldhouse"
 case else
end select


Function FSOchange(filename,Target)
 Dim objFSO,objCountFile,FiletempData,HtmlOut
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
 FiletempData = objCountFile.ReadAll
 objCountFile.Close
 Set HtmlOut = objFSO.CreateTextFile (server.MapPath(Target))
 HtmlOut.WriteLine FiletempData
 HtmlOut.close
 Set objFSO = Nothing
End Function

Dim fn,DoUrl,ObjXmlHttp,BinFileData,ObjAdoStream,filepath
filepath = localPath & "/index_.html"
fn = server.MapPath(filepath)
DoUrl = Curl
'Dourl = Request("Url")
set ObjXmlHttp = Server.CreateObject("MSXML2.serverXMLHTTP")
ObjXmlHttp.open "GET",DoUrl,false
ObjXmlHttp.send()
BinFileData = objXmlHttp.responseBody
set ObjAdoStream = Server.CreateObject("ADODB.Stream")
ObjAdoStream.Type = 1
ObjAdoStream.Open()
ObjAdoStream.Write(BinFileData)
ObjAdoStream.SaveToFile fn,2
ObjAdoStream.Close()
set ObjAdoStream = nothing
set objxmlhttp = nothing
call FSOchange(localPath & "/index_.html",localPath & "/index.html")
'使用FSO读取文件内容的函数
Function FSOFileRead(filename)
 Dim objFSO,objCountFile,FiletempData
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
 FSOFileRead = objCountFile.ReadAll
 objCountFile.Close
 Set objCountFile=Nothing
 Set objFSO = Nothing
End Function
call Lib.tipText(0,"静态页面 <a href=""" & childUrl & """ target=""_blank""><b>" & childName & "</b></a> 生成完毕  " & Now() & "")
response.Redirect(request.ServerVariables("HTTP_REFERER"))
%>

  评论这张
 
阅读(341)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018