|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。ASP小偷盗取地点并天生html<%
functiongetHTTPPage(url)
dimHttp
setHttp=server.createobject("MSXML2.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate4then
exitfunction
endif
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
sethttp=nothing
iferr.number0thenerr.Clear
endfunction
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
DimUrl,Html
Url="http://www.dadui.com/index_mb.asp"
Html=getHTTPPage(Url)
dimfilename,MDBpath,fso,fout
filename="../index.htm"
MDBpath="./"
Setfso=Server.CreateObject("Scripting.FileSystemObject")
Setfout=fso.CreateTextFile(server.mappath(""&filename&""))
fout.Writehtml
fout.close
setfout=nothing
setfso=nothing
iferrthen
response.Write("天生首页失利")
else
response.Write("天生首页乐成<ahref=../index.htmtarget=_blank>../index.htm</a>")
endif
%>
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 |
|