|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP脚本是采用明文(plaintext)方式来编写的。静态|静态|静态办法一
<%
经常使用函数
1、输出url方针网页地点,前往值getHTTPPage是方针网页的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
2、转换乱玛,间接用xmlhttp挪用有中笔墨符的网页失掉的将是乱玛,能够经由过程adodb.stream组件举行转换
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
txtURL=server.MapPath("../index.asp")
sText=getHTTPPage(txtURL)
SetFileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="../index.htm"
SetopenFile=FileObject.OpenTextfile(server.mapPath(filename),2,true)true为不存在自行创建
openFile.writeline(sText)
SetOpenFile=nothing
%>
<script>
alert("静态网页天生终了");
history.back();
</script>
办法二:
resourcefile=server.MapPath("../index.asp")
targetfile=server.MapPath("../index.htm")
Sethtml=Server.CreateObject("CDO.Message")
html.CreateMHTMLBodyresourcefile,31
indexcode=html.HTMLBody
Sethtml=Nothing
ifinstr(indexcode,"</BODY></HTML>")<=0then
response.Write("首页天生失利")
response.End()
else
SetoFileSys=Server.CreateObject("Scripting.FileSystemObject")
Setoutfile=oFileSys.CreateTextFile(targetfile)
outfile.WriteLineindexcode
outfile.close
Setoutfile=nothing
setoFileSys=nothing
response.Write("首页天生终了!")
endif
</p>ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。 |
|