联系我们
cms新闻网站系统、政府cms定制开发

广州网站建设公司-阅速公司

报纸新媒体网站内容发布一体化解决方案联系电话
/
http://www.kize.icu/
广州网站建设公司
您当前位置:首页>ASP.NET MVC

ASP.NET MVC

asp快速生成静态页面一个方法(不用模板)

发布时间:2013/6/14 14:10:19  作者:  阅读:1065  
判断是否真正静态页:javascript:alert(document.lastModified) (地址栏输入)
生成真正静态页:
<%
dim haodomain
haodomain="http://127.0.0.1"
function getHTTPPage(url)
dim http
On Error Resume Next
set http=server.createobject("MSXML2.ServerXMLHTTP")
'------------------------------------------------------------
lresolveTimeout = 20000 ' 解析DNS名字的超时时间,20秒
lconnectTimeout = 20000 ' 建立Winsock连接的超时时间,20秒
lsendTimeout = 20000 ' 发送数据的超时时间,20秒
lreceiveTimeout = 30000 ' 接收response的超时时间,30秒
http.setTimeouts lresolveTimeout,lconnectTimeout,lsendTimeout,lreceiveTimeout
'可用这句替代 http.setTimeouts(20000,20000,20000,20000)
http.open "POST",url,false 'url为绝对路径
'http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
'http.setRequestHeader "CONTENT-TYPE","text/html"
'http.setRequestHeader "Charset", "gb2312"
http.send()
if Http.readystate<>4 then
response.write "失败"
response.end
exit function
end if
if http.status <> 200 then
response.write "采集网页失败!"
response.end
end if
'以下为测试信息------------------------------------
'response.write http.statusText
'response.contenttype = "text/html"
'Response.Write Http.responseBody
'response.end
'Response.Write http.responsexml.xml 'responseStream 'responsetext'responsexml
'完-------------------------------

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
'?#31995;?#20989;数,没用
'Function GetBody(url)
'on error resume next
'Set Retrieval = CreateObject("Microsoft.XMLHTTP")
'Retrieval.Open "post", url, False, "",""
'Retrieval.Send
'GetBody =Retrieval.responsebody
'Set Retrieval = Nothing
'End Function
'?#31995;?#20989;数,没用
dim body1
dim urlhao
dim body2
dim usl1
dim filename
dim body3
url1=http://www.cha600.com/
filename="index.asp"
filename2="index.htm"
targetfile=server.mappath("/make/index.htm") '此处为物理路径
body2=getHTTPPage(url1)
body3="<IFRAME border=0 name=autoupdate marginWidth=0 marginHeight=0 src="/"autoupdate.asp?hao=1"" frameBorder=no width=100% scrolling=no height=1></IFRAME>"& vbcrlf
body1=body2'&body3
response.write "<br>"&"<br>"
response.write url1&"<br>"
response.write targetfile&"<br>"
response.write body3&"<br>"
'生成
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
if ofilesys.fileexists(targetfile)=true then
ofilesys.deletefile targetfile
end if
Set outfile=oFileSys.CreateTextFile(targetfile)
outfile.WriteLine body1
outfile.close
Set outfile=nothing
set oFileSys=nothing
response.Write("首页生成完毕!")
response.write left(body1,12)
server.transfer ("../index.htm") '此处不能为绝对路径,也不能为物理路径,只能为相对网站路径
%>
注意:
1.此方法好处不用模板,在使用时要注意源文件需要使用绝对路径(httP://****),生成目标文件用物理路径。
2.注意源文件与目标文件需要在不同的虚拟文件夹内,也就是尽量不要在一个文件夹内,否则导致IIS挂起(假?#32769;?#35937;),需要重起IIS.
3.MSXML4.0组件。
4."http.open "POST",url,false 'url为绝对路径" ?#21496;?#20013;的"post"一定要为大写,否则返回错误.一定一定.
5."server.transfer ("../index.htm") "此处路径一定要为相对路径.
6.此段程序用"MSXML2.ServerXMLHTTP",而不用"MSXML2.XMLHTTP",是让"http.setTimeouts"属?#38405;?#20351;用, 可防止源网页不存在导致无限期等待的问题。
相关文章
asp快速生成静态页面一个方法(不用模板)
cms新闻系统购买咨询
扫描关注 广州阅速软件科技有限公司
扫描关注 广州阅速科技
莱万特s
3d村胆码报 预测 全天pk10计划表 双色球042期历史记录 扑克财经乙二醇 新疆18选7的开奖结果 乱世王者手游官方下载 轩辕传奇兽王谷7层 七乐彩走势图 体彩6+1彩票开奖结果 法老王的秘密登陆 赫塔菲对韦斯卡 传奇霸业代言人 逆战结局 斯图加特机场到市区 聚宝盆闯关 澳洲幸运8走势图