高校问答无限挑战卢洪哲下车:如果将动态网页转换成静态网页(即html格式)?
来源：百度文库 编辑：高校问答 时间：2024/05/06 04:24:19
ASPX转换成HTML格式!
希望能给出详细点的实现过程,代码.
重分召集高手.
能对你的程序过程做个详细的说明吗?
请回答者注意：不要说用什么另存的方法，这个分类叫”编程”，看清楚再回答吧！我都一再提到了用程序的方法！
另存的网页能作为网站的浏览页面？有点基础常识的回答．只求高手程序，其他的别凑热闹．
修改一下这个就能用:
<%@LANGUAGE="VBSCRIPT" %>
<%
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
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
Dim Url,Html
Url="http://www.xxxxx.com"'这里改成你需要转换的文件,可以用循环语句或查询数据库实现多页生成
Html = getHTTPPage(Url)
dim filename,MDBpath,fso,fout
filename="../index.htm"'这里改成你需要生成的文件名
MDBpath="./"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write Html
fout.close
set fout=nothing
set fso=nothing
if err then
response.Write("生成首页失败")
else
response.Write("生成首页成功<a href='../index.htm' target='_blank'>../index.htm</a>")'这里请改名
end if
%>
用ajax技术可以实现。没仔细读xybj的回答，关键点是这个：
dim Retrieval
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
各种浏览器支持的语法不太一样，但都要用到xmlHttp对像
- -不要再问这么简单的问题了...用代码去读某个网址,不论它是什么样的,asp,aspx,php什么都一样是返回html格式的文本回来,把获取到的数据存成*.htm就可以了!
年似简单的问题，我相信各位老大做起来，可能也不那么顺手吧～呵呵
这是技术问题，劳动成果问题，是要用报酬来处理的
有点搞笑，用IE打开你的ASP选另存为“html格式”不就OK?不知道你想干吗
打开那个网页,按下Ctrl+S,然后选目录,在按Enter.