该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

将asp页面转换成html页面

Sub GenFile(id)

dim objXmlHttp

set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")

objXmlHttp.open "GET","http://www.xxx.com/product.asp?id=" & id ,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 Server.MapPath("/product") & "\" & id & ".htm",2

objAdoStream.Close()

dim sI,sA

sI=""

sA=""

dim objFSO,objFile

set objFSO = server.CreateObject("Scripting.FileSystemObject")

set objFile = objFSO.OpenTextFile(Server.MapPath("/product") & "\" & id & ".htm")

while not objFile.AtEndOfStream

sI = objFile.readline()

sA = sA & sI

wend

objFile.close

set objFile = nothing

''处理过程

dim sR

sR = replace(sA,"images/","../images/")

sR = replace(sR,"admin/../","../admin/")

sR = replace(sR,"class.asp","../class.asp")

sR = replace(sR,"cat.asp","../cat.asp")

sR = replace(sR,"research.asp","../research.asp")

sR = replace(sR,"help","../help")

sR = replace(sR,"mess.asp","../mess.asp")

sR = replace(sR,"index.asp","../index.asp")

sR = replace(sR,"addto.asp","../addto.asp")

''重新写入

dim objFileW

set objFileW = objFSO.CreateTextFile(Server.MapPath("/product") & "\" & id & ".htm",true)

objFileW.WriteLine sR

objFileW.close

set objFileW = nothing

set objFSO = nothing

end sub

asp页面怎么转html页面,将asp页面转换成html页面 代码相关推荐

  1. HTML页面转换asp,将asp页面转换成html页面 代码

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 将asp页面转换成html页面 Sub GenFile(id) dim objXmlHttp set objXmlHttp = Server.Create ...

  2. ASP.Net中实现上传过程中将文本文件转换成PDF的方法

    iTextSharp是一个常用的PDF库,我们可以使用它来创建.修改PDF文件或对PDF文件进行一些其他额外的操作.本文讲述了如何在上传过程中将文本文件转换成PDF的方法. 基本工作 在开始之前,我们 ...

  3. php页面怎么转换成静态页面,php如何生成静态页面

    用php生成静态html页面 因为每次用户点击动态链接的时候都会对服务器发送数据查询的要求 对于一个访问量可能达百万千万级别的网站来说 这无疑是服务器一个大大的负担 所以把动态数据转换成静态html页 ...

  4. html文件转换成dwt文件,如何把dwt页面转换成html页面

    修改一下这个就能用: function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP" ...

  5. 汉字转换成拼音的代码(asp版)

    第一步: 第二步: 源文件下载:http://files.cnblogs.com/missthe/change.rar 转载于:https://www.cnblogs.com/missthe/arch ...

  6. dwt转为html,如何把dwt页面转换成html页面

    修改一下这个就能用: function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP" ...

  7. 在父页面用Iframe加载子页面时,将父页面的title替换成子页面title

    报告管理 转载于:https://www.cnblogs.com/maomojun/p/9667320.html

  8. ASP.NET MVC案例教程(基于ASP.NET MVC beta)——第二篇:第一个页面

    摘要       本文首先一步一步完成Demo的第一个页面--首页.然后根据实现过程,说明一下其中用到的与ASP.NET MVC相关的概念与原理. 让第一个页面跑起来       现在,我们来实现公告 ...

  9. ASP.NET查询页面设置form的action属性只弹出一个页面,并且每次将页面设置到最前...

    背景 当数据量大.查询条件复杂,多样多的时候,我们可能需要单独做一个查询界面,当用户选择设置了相关的查询条件后,点击[查询]按钮,系统就弹出一个新的页面展示出根据条件查询出的数据集. 然后,用户每点[ ...

最新文章

  1. PowerShell2.0之桌面计算机维护(九)磁盘管理
  2. idea redis 插件_Redis客户端RDM收费后,还有哪些开源的替代品呢?
  3. 还有Html.EditorFor和Html.Html.TextBox到底差什么呢
  4. 类似于京东商城等的商品分类搜索筛选功能实现
  5. 吴恩达入驻知乎首答:如何系统学习机器学习?
  6. [转]caffe中solver.prototxt参数说明
  7. keil5函数 默认返回值_C++ 函数的定义
  8. GDAL源码剖析(六)之GDAL开发及其调试
  9. 【语音识别】基于matlab矢量量化(VQ)说话人识别【含Matlab源码 575期】
  10. R语言colorRampPalette函数-创建颜色梯度(渐变色)
  11. WEB安全扫描器Netsparker推荐给大家
  12. Arduino学习笔记(2)-- Arduino基本函数
  13. 计算机竞赛制作机器人,电脑制作活动机器人项目详细说明
  14. 项目集管理-PgMP
  15. 移动端知网下文献并投屏PC端阅读
  16. 用友u8服务器无法自动启动,u8服务有的没有启动,启动服务,没有反应-用友U8...
  17. Image Processing and Computer Vision_Review:Local Invariant Feature Detectors: A Survey——2007.11...
  18. ABP 扩展 OrganizationUnit 数据实体(新增字段)
  19. 文件的“打开”和“关闭”
  20. windows之桌面程序引导功能

热门文章

  1. 【建议收藏】HTTP与HTTPS的区别
  2. 牛客网 栈的压入、弹出序列
  3. FZU2020 lucas定理求解组合数
  4. linux 进程死循环,Linux下如何处理一次用户态进程死循环问题
  5. Spring Boot-使用Spring Initializer快速创建Spring Boot项目
  6. spring boot一个模块加载不到引用另一个模块的mapper.xml报错org.apache.ibatis.binding.BindingException: Invalid bound sta
  7. Java调用百度识别身份证接口
  8. Dubbo Admin —— Spring Cloud Alibaba 2021.1 + Nacos + Dubbo Admin参考配置
  9. android 文本左对齐,在Android中与文本左可绘制对齐
  10. Maven-学习笔记06【基础-Maven工程servlet实例】