asp程序怎么转换成html 具体点
展开全部
理论知识:一。伪静态
二。1.XMLHTTP页面的HTML(这一步奖asp文件转化成编译后的静态,也就是浏览器显示的内容)
2.正则得出页面的所有超链接
3,替换得到静态页面后的超链接,从而使所有href=“1.asp”》》href=“1.html”
4,文件生成,读取页面的URL,然后读取替换后的HTML
5,1.asp保存成为1.html Call SaveToFile(“xmlhttp读取的并且替换了超链接的页面静态代码”,”1.html“)
Function SaveToFile(ByVal strBody, ByVal File)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Open
.Charset = "utf-8" '可以根据需求,把这里的编码修改成utf-8等编码格式
.Position = objStream.Size
.WriteText = strBody
.SaveToFile Server.MapPath(File),2
.Close
End With
Set objStream = Nothing
End Function
二。1.XMLHTTP页面的HTML(这一步奖asp文件转化成编译后的静态,也就是浏览器显示的内容)
2.正则得出页面的所有超链接
3,替换得到静态页面后的超链接,从而使所有href=“1.asp”》》href=“1.html”
4,文件生成,读取页面的URL,然后读取替换后的HTML
5,1.asp保存成为1.html Call SaveToFile(“xmlhttp读取的并且替换了超链接的页面静态代码”,”1.html“)
Function SaveToFile(ByVal strBody, ByVal File)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Open
.Charset = "utf-8" '可以根据需求,把这里的编码修改成utf-8等编码格式
.Position = objStream.Size
.WriteText = strBody
.SaveToFile Server.MapPath(File),2
.Close
End With
Set objStream = Nothing
End Function
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询