100分求解一个ASP转向到HTM页面的方法。

发布网友 发布时间：2024-10-24 06:26

我来回答

共3个回答

热心网友 时间：2024-11-14 07:19

有好几中方法。

你用网站整站生成html。如果不整站生成html ,想新闻单独指定生成html文件你可以在show.asp也里面加上：

<%
class URLtoHtml
private c_url
public property let URL(x_url)
c_url = x_url
end property
private function GetURL(url)
set Retrieval = CreateObject("Microsoft.XMLHTTP")
with Retrieval
.Open "GET", url, false
.Send
GetURL = .responsebody
end with
set Retrieval = nothing
end function

private function Bytes2bStr2(url)
dim BytesStream,StringReturn,vin,adTypeText
adTypeText=2
vin=GetURL(url)
set BytesStream = Server.CreateObject("ADODB.Stream")
with BytesStream
.Type = adTypeText
.Open
.WriteText vin
.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
end with
Set BytesStream = nothing
Bytes2bStr2 = StringReturn
end function

public property get HttpDate
HttpDate=Bytes2bStr2(c_url)
end property
end class
%>

<%
'// 下面是主要生成代码
dim UTH,fso,fout,HttpDate
set UTH=new URLtoHtml

UTH.URL="http://www.xxxx.com/show.asp?id=1130" '// .asp源文件路径地址

HttpDate=UTH.HttpDate

set fso = Server.CreateObject("Scripting.FileSystemObject")
set fout=fso.CreateTextFile(Server.MapPath("http://www.xxxx.com/show.asp-id=1130.htm ")) '//生成html页面文件路径地址

fout.WriteLine HttpDate
set UTH=nothing

response.Redirect"http://www.xxxx.com/show.asp-id=1130.htm" '//返回路径，就是html文件地址

%>

热心网友 时间：2024-11-14 07:20

把show.asp里面第一行加上

<%
Dim Urlstr
Urlstr = Request.QueryString("id")
Response.Redirect(Urlstr&".htm")
Response.End()
%>

这样就行了,不行你杀了我..QQ 165368576

热心网友 时间：2024-11-14 07:20

我晕死``你也写的太复杂了吧?
直接做一个判断啊`