asp如何将文章列表以及列表内的文章全部HTML
例如列表http://adrs.tk/log.asp他里面包含的文章http://adrs.tk/log_Show.asp?id=30怎么让他生成列表页已经内容页呢?有错...
例如列表http://adrs.tk/log.asp
他里面包含的文章http://adrs.tk/log_Show.asp?id=30
怎么让他生成列表页已经内容页呢?
有错误啊 我把URl填写提示
Microsoft VBScript 编译器错误 '800a03ee'
缺少 ')'
\www\asp\a\2.asp, line 2 展开
他里面包含的文章http://adrs.tk/log_Show.asp?id=30
怎么让他生成列表页已经内容页呢?
有错误啊 我把URl填写提示
Microsoft VBScript 编译器错误 '800a03ee'
缺少 ')'
\www\asp\a\2.asp, line 2 展开
展开全部
给你说下思路:
不用修改现有asp程序,使用下面的函数getHTTPPageGB(url),url填成列表页或内容页的地址,这样就可以获取到相应的静态html文件内容,将html文件内容保存成htm页面就行了,至于如何保存和命名文件就根据你自己的需要进行调整了
<%
function getHTTPPageGB(url)
Dim xmlhttp
set xmlhttp=Server.CreateObject("Msxml2.xmlhttp")
xmlhttp.open "GET",url,false
xmlHttp.setRequestHeader "Accept-Charset", "gb2312"
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send
if xmlhttp.readystate<>4 then
exit function
end if
if xmlhttp.status<>200 then
exit function
end if
getHTTPPageGB=bytesToBSTR(xmlhttp.responseBody,"gb2312")
set xmlhttp=nothing
end function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>
不用修改现有asp程序,使用下面的函数getHTTPPageGB(url),url填成列表页或内容页的地址,这样就可以获取到相应的静态html文件内容,将html文件内容保存成htm页面就行了,至于如何保存和命名文件就根据你自己的需要进行调整了
<%
function getHTTPPageGB(url)
Dim xmlhttp
set xmlhttp=Server.CreateObject("Msxml2.xmlhttp")
xmlhttp.open "GET",url,false
xmlHttp.setRequestHeader "Accept-Charset", "gb2312"
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send
if xmlhttp.readystate<>4 then
exit function
end if
if xmlhttp.status<>200 then
exit function
end if
getHTTPPageGB=bytesToBSTR(xmlhttp.responseBody,"gb2312")
set xmlhttp=nothing
end function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
直接静态化 不就玩了 、
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
动易
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询