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
展开
 我来答
zhbmlong
2011-01-26 · TA获得超过133个赞
知道小有建树答主
回答量:403
采纳率:0%
帮助的人:336万
展开全部
给你说下思路:
不用修改现有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

%>
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hwt87802887
2011-01-27 · TA获得超过194个赞
知道小有建树答主
回答量:606
采纳率:50%
帮助的人:257万
展开全部
直接静态化 不就玩了 、
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
彦同118
2011-02-06 · TA获得超过1712个赞
知道小有建树答主
回答量:1057
采纳率:0%
帮助的人:792万
展开全部
动易
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式