仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 581|回复: 7
打印 上一主题 下一主题

[学习教程] ASP编程:静态网站首页的静态天生办法

[复制链接]
金色的骷髅 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:42:01 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。
海妖 该用户已被删除
沙发
发表于 2015-1-20 11:20:16 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
愤怒的大鸟 该用户已被删除
板凳
发表于 2015-2-5 22:22:33 | 只看该作者
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
爱飞 该用户已被删除
地板
发表于 2015-2-13 22:15:52 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
飘灵儿 该用户已被删除
5#
发表于 2015-3-4 02:21:54 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
若天明 该用户已被删除
6#
发表于 2015-3-11 15:12:10 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
分手快乐 该用户已被删除
7#
发表于 2015-3-18 22:18:52 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
小女巫 该用户已被删除
8#
发表于 2015-3-26 16:11:33 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 23:37

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表