ASP编程：静态网站首页的静态天生办法
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最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
页:
[1]