ASP编程：ASP与txt组合设计法式的实例

显示全部楼层 · 发表于 2015-2-3 23:28:57

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

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

x

大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧法式|设计　　文章简介：ASP是今朝互联网上使用最为普遍的静态网页法式言语之一。而提到它咱们老是和Access或SQLSever等数据库放在一同，固然他们的联合可使咱们更自在轻松的办理与宣布站点，但你可晓得ASP和文本文件相联合也能够完成一些玲珑且适用的功效哦。如今经由过程三个使用于网页上的小例子，让咱们领略一下两者合璧的风度。
ASP是今朝互联网上使用最为普遍的静态网页法式言语之一。而提到它咱们老是和Access或SQLSever等数据库放在一同，固然他们的联合可使咱们更自在轻松的办理与宣布站点，但你可晓得ASP和文本文件相联合也能够完成一些玲珑且适用的功效哦。如今经由过程三个使用于网页上的小例子，让咱们领略一下两者合璧的风度。
在ASP中咱们可使用FileSystemObject对象的OpenTextFile办法翻开文本文件，其格局以下：
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fp=fso.OpenTextFile(Server.MapPath("file.txt")) 'file.txt就是所要翻开的文本文件
晓得了这一点，咱们起首编写一个复杂的“动静宣布体系”。参照图1的格局创立一个message.txt文件先。

登录/注册后可看大图

接着运转恣意的文本编纂器录入以下代码，将它保留在与message.txt统一目次下，定名为message.asp。
<html><head><title>基于文本的动静宣布体系</title></head>
<body>
<table border="1" cellspacing="0" cellpadding="1" bordercolorlight="#dfdfdf" bordercolordark="#ffffff" align="center">
  <tr bgcolor="#cccce6">
<td algin="center" colspan="2">最新动静</td>
  </tr>
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fp=fso.OpenTextFile(Server.MapPath("message.txt"))
'翻开message.txt
Do While fp.AtEndOfStream<>true
s=fp.ReadLine  '读取一条数据
p=Instr(s,"*")  '获得*号的地位
Messagetitle=Mid(s,1,p-1)  '获得*号前边的字符串（动静题目）
s=Mid(s,p+1,Len(s)-p)  '设变量s为*号后边的字符串
p=Instr(s,"*")
MessageUrl=Mid(s,1,p-1)  '获得*号后边的字符串（链接地址）
s=Mid(s,p+1,Len(s)-p)
ttime=s  '设定动静宣布工夫ttime为s
%>
  <tr>
<td><a href='<%=MessageUrl%>'><%=Messagetitle%></a></td>
<td><%=ttime%></td>
  </tr>

<%
Loop
Fp.close
Set fp=Nothing
Set fso=Nothing
%>
</table>
</body></html>
　　半途而废！运转一下看看失掉的了局是否是和图2一样？

登录/注册后可看大图

　　详细任务道理就是先用ASP翻开message.txt，然后以*号为分界点失掉动静的题目、链接地址及宣布工夫，接着生成表格显示所获得的信息，然后轮回读取message.txt中下一行信息并生成表格。咱们可以看到，假如想要更新动静，只需更改文本文件中的内容便可，如许更新固然还要上传下载略显费事，但其轻易编写，速度快，占用资本小等等长处仍是值得一试的。出格是用于国外的收费空间上（那些空间只撑持ASP而不撑持数据库）。
完成了第一个例子，咱们再来制造一个计数器。一样的，它也是将数据（以后会见量）纪录在txt文件中。先来看一下法式代码：
<%
set rs=server.createobject("scripting.filesystemobject")
file=server.mappath("count.txt")  '创立与count.txt的链接
set cn=rs.opentextfile(file,1)
count=cn.readline  '获得文本文件中的字段（会见量）
if session("in")<>"in" then
session("in")="in"
set cn=rs.createtextfile(file,true)
application.lock
count=cint(count)+1  '将会见量加1失掉以后会见量
cn.writeline count  '将以后会见量写入count.txt
application.unlock
end if
%>
<%=count%>  '输入
接着需求创立一个名为count的文本文件，直接在外面输出一个数字便可，好比“0”。那末这个0就是计数器的肇端值，从代码中咱们可以晓得法式会主动累加该数字，而在利用的过程当中咱们也能够随便更改这个数字来修正站点确当前会见量（直接修正成1000000？汗）。对了，也要讲这两个文件保留在统一个目次中。
最初咱们再来使用ASP内置的一个组件Ad Rotator编写一个Banner办理体系，来办理站点上的Banner。它可让将所需求显示的一切banner依照事前设定好的概率随机显示。
先创立一个名为ar的asp文件，内容以下：
<%
Set ar=Server.CreateObject("MSWC.AdRotator")'创立一个名为ar的AdRotator实例
Response.Write ar.GetAdvertisement("ad.txt")'读取ad.txt中的相干内容
%>
'法式完成，然后再创立adgo.asp，其内容以下：
<%
Response.Redirect(Request.QueryString("URL"))
%>
这个法式只要一句。起首用Request对象的QueryString来获得网址，再用Response对象的Redirect办法去会见该链接。
法式作好今后，翻开你的“记事本”并输出以下内容:
Redirect adgo.asp
width 83
height 31
border 0
*
http://www.pcdiy.com.cn/banner.gif
http://www.pcdiy.com.cn/
网友世界,体味e网生涯
20
http://game.sina.com.cn/banner.gif
http://game.sina.com.cn/
进入sina游戏世界
20
http://www.谷歌.com/banner.gif
http://www.谷歌.com/
想要搜刮吗?
10
将它保留为ad.txt，记得将这三个文件保留在统一目次下。ad.txt的第一行指定鼠标点击banner时转向到adgo.asp。后边三行界说了banner的巨细和边框粗细。“*”标明设置装备摆设信息停止。接着往下就是banner的相干信息了。每一个banner由四条界说信息，它们顺次界说了banner地点的地位，链接的URL地址，申明和显示比率（该值越大所呈现的次数就越多）。在这上面你可以添加n个banner信息，不外要记得4行一组，可不要弄错咯。
经由过程这些例子，你已领略了ASP+txt这对组合的威力，而这三个例子都是最最复杂的使用，你可以在此基本上改善加强它们的功效。触类旁通你也能开辟出优异的ASP法式来。最初祝福你的站点越做越出色！
ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的东西可是什么都要收钱的啊！

		自动登录	找回密码
密码			立即注册

[学习教程] ASP编程：ASP与txt组合设计法式的实例

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

相关帖子