返回旧版| 微信建站| 建站之家论坛| 我要建站 | 建站学习 | 加入收藏
asp基础当前位置:首页 > HTML教程 > asp基础 > 正文

asp生成静态页面方法

发布时间:2013-08-18 22:51:00   来源:   点击:

原理:用asp获取动态页面的html代码后,再将这些html代码写成html代码。
 

  1. <%  
  2. Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")  
  3. path=server.mappath("index.html")  
  4. If Myfileobject.fileexists(path) Then '如果存在此文件,删除之  
  5. MyfileObject.deletefile path  
  6. End If  
  7. Set MyTextFile=MyFileObject.CreateTextFile(path)  
  8. strurl="http://www.sina.com.cn/" '这里可以换成其他动态页面的地址。  
  9. strTmp = GetHTTPPage(trim(strurl))  
  10.  
  11. MyTextFile.WriteLine(strTmp)  
  12.  
  13. MytextFile.Close  
  14. response.write "完成任务"  
  15. %> 
  16.  
  17. <%  
  18. Function getHTTPPage(url)   
  19. On Error Resume Next  
  20. dim http   
  21. set http=Server.createobject("Microsoft.XMLHTTP")   
  22. Http.open "GET",url,false   
  23. Http.send()   
  24. if Http.readystate<>4 then  
  25. exit function   
  26. end if   
  27. getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")  
  28. set http=nothing 
  29. If Err.number<>0 then   
  30. Response.Write "<p align='center'><font color='red'><b>服务器获取文件内容出错</b></font></p>"   
  31. Err.Clear  
  32. End If   
  33. End Function  
  34.  
  35. Function BytesToBstr(body,Cset)  
  36. dim objstream  
  37. set objstream = Server.CreateObject("adodb.stream")  
  38. objstream.Type = 1 
  39. objstream.Mode =3 
  40. objstream.Open  
  41. objstream.Write body  
  42. objstream.Position = 0 
  43. objstream.Type = 2 
  44. objstream.Charset = Cset 
  45. BytesToBstr = objstream.ReadText   
  46. objstream.Close  
  47. set objstream = nothing 
  48. End Function  
  49. %> 

 

版权所有:郑州腾石网络科技有限公司 备案信息:豫ICP备18019117号
站长QQ:2863868475 业务合作咨询:15137100750(同微信)
本站所有投放的广告是有其他网站提供,不代表本站立场,同时网站首页广告位对外出租详情咨询本站站长!同时欢迎广大站长加入个人建站团队
  • 建站客服
  • CMS仿站
  • CMS学习
  • 技术交流群:336572814