仓酷云

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

[学习教程] ASP编程:用ASP完成收费计数器供应-2

[复制链接]
兰色精灵 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:07:43 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。计数器4.用户办理程序
<%Response.Expires=0
diminput()
thisfile=server.mappath("counter.asp")
Setfs=CreateObject("Scripting.FileSystemObject")
Setthisfile=fs.OpenTextFile(thisfile,1,False)
count=0
dowhilenotthisfile.AtEndOfStream
thisline=thisfile.readline
Redimpreserveinput(count)
input(count)=thisline
count=count+1
loop
thisfile.Close
number=(count-1)/5
setfs=nothing
%>
<html>
<title>计数器办理体系</title>
<body>
<palign="center"><fontstyle="font-size:20pt">计数器办理体系</font></p>
<palign="center">今朝保存用户<%=number%>个</p>
<tablewidth="760">
<tr>
<tdwidth="100"><fontcolor="#FF00FF">编号</font></td>
<tdwidth="200"><fontcolor="#FF00FF">用户名</font></td>
<tdwidth="360"><fontcolor="#FF00FF">网站名</font></td>
<tdwidth="100"><fontcolor="#FF00FF">删除</font></td>
</tr>
<%x=""
fori=1tonumber
x=input((i-1)*5+1)
Response.Write"<tr><tdwidth=100><fontcolor=#00ffFF>"&i&"</font>"
Response.Write"<tdwidth=200><fontcolor=#FFffFF>"&input((i-1)*5+1)&"</font></td>"Response.Write"<td
width=360><fontcolor=#FF00FF>"&input((i-1)*5+4)&"</font></td>"
Response.Write"<tdwidth=100align=left><ahref=dele.asp?id="&x&">删除</a></td></tr>"
next
%>
</table>
</body>
</html>
5.用户删除处置程序dele.asp
<%Response.Expires=0
diminput()
id=Request.QueryString("id")
thisfile=server.mappath("counter.asp")
Setfs=CreateObject("Scripting.FileSystemObject")
Setinfile=fs.OpenTextFile(thisfile,1,False)
counter=0
dowhilenotinfile.AtEndOfStream
thisline=infile.readline
Redimpreserveinput(counter)
input(counter)=thisline
counter=counter+1
loop
infile.Close
number=(counter-1)/5
Setoutfile=fs.CreateTextFile(thisfile)
outfile.WriteLineinput(0)
fori=1tonumber
ifinput((i-1)*5+1)idthen
outfile.WriteLineinput((i-1)*5+1)
outfile.WriteLineinput((i-1)*5+2)
outfile.WriteLineinput((i-1)*5+3)
outfile.WriteLineinput((i-1)*5+4)
outfile.WriteLineinput((i-1)*5+5)
endif
next
outfile.Close
setfs=nothing
Response.Redirect"manage.asp"
%>
---------------------------------------------------
writenbyaspboyandpoweredbyhttp://easp.126.com
</p>源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码
只想知道 该用户已被删除
沙发
发表于 2015-1-18 20:47:11 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
爱飞 该用户已被删除
板凳
发表于 2015-1-25 12:16:38 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
冷月葬花魂 该用户已被删除
地板
发表于 2015-2-2 22:04:46 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
再现理想 该用户已被删除
5#
发表于 2015-2-8 11:35:10 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
老尸 该用户已被删除
6#
发表于 2015-2-25 11:04:41 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
不帅 该用户已被删除
7#
发表于 2015-3-7 20:41:17 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
透明 该用户已被删除
8#
发表于 2015-3-15 14:06:17 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
柔情似水 该用户已被删除
9#
发表于 2015-3-22 01:59:20 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-24 10:34

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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