仓酷云

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

[学习教程] ASP网页设计用ASP完成收费计数器供应-1

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

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

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

x
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件计数器要完成收费供应计数器,我们必需筹办代表0-9这10个数字的gif图片,便顺次定名为0.gif-9.gif.在主页目次下创建一个目
录free,把图片文件counter.asp,user.html,reg.asp,manage.asp,dele.asp,easpcount.asp放在free目次下.
1.寄存用户数据的记数文件counter.asp
<%Response.Write"回绝会见!":Response.end%>

2.用户请求程序:user.html

<html><title>计数器请求</title>

<bodystyle="background-color:#f7f7fb">

<formname="formname"action="reg.asp"method=post>

<palign="center"style="font-size:24pt;font-weight:bold;color:#800000">计数器请求</p>

<tableborder="0"cellspacing="0"width="300"style="font-size:10pt">

<tr><tdalign="left">用户称号:<inputtype="text"size="30"name="name"></td></tr>

<tr><tdalign="left">用户暗码:<inputtype="password"size="30"name="pass"></td></tr>

<tr><tdalign="left">主页称号:<inputtype="text"size="30"name="homename"></td></tr>

<tr><tdalign="left">主页地点:<inputtype="text"size="30"name="url"></td></tr>

<tr><tdalign="left">

<inputtype="submit"value="完成"><inputtype="reset"value="取消">

</td></tr></table></form></body>
3.处置用户请求程序reg.asp
<%
Response.Expires=0
diminput()
name=Request.Form("name")
pass=Request.Form("pass")
homename=Request.Form("homename")
url=Request.Form("url")
infile=server.mappath("counter.asp")
Setfs=CreateObject("Scripting.FileSystemObject")
Setthisfile=fs.OpenTextFile(infile,1,False)
counter=0
dowhilenotthisfile.AtEndOfStream
thisline=thisfile.readline
Redimpreserveinput(counter)
input(counter)=thisline
counter=counter+1
loop
thisfile.Close
fori=0tocounter-1
ifname=input(i)then
Response.write"<bodybgcolor=#f7f7fb><p><palign=center>对不起,已有这个用户名</p>"
Response.write"<palign=center><ahref=javascript:history.go(-1);>点击这里举行修正</a></p></body>"
Response.end
exitfor
endif
next
Setoutfile=fs.CreateTextFile(infile)
outfile.WriteLineinput(0)
outfile.WriteLinename
outfile.WriteLinepass
outfile.WriteLinehomename
outfile.WriteLineurl
outfile.WriteLine0
fori=1tocounter-1
outfile.WriteLineinput(i)
next
outfile.close
setfs=nothing
strs="<scriptsrc=http://gp/wwwroot/free/easpcount.asp?id="&name&"></script>"
src中"http://gp/wwwroot/"为你的主页空间主目次
Response.write"<bodybgcolor=#f7f7fb><p><palign=center><fontstyle=color:red>"&name&"</font>你已申
请乐成,请将以下代码粘贴到你的网页代码中</p>"
Response.write"<palign=centerstyle=color:#800000>"&server.htmlencode(strs)&"</p>"
Response.end
%>
---------------------------------------------------
writenbyaspboyandpoweredbyhttp://easp.126.com</p>使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。
小魔女 该用户已被删除
沙发
发表于 2015-1-20 09:43:31 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
活着的死人 该用户已被删除
板凳
发表于 2015-1-29 06:32:52 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
简单生活 该用户已被删除
地板
发表于 2015-2-5 20:50:41 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
乐观 该用户已被删除
5#
发表于 2015-2-13 10:49:24 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
若相依 该用户已被删除
6#
发表于 2015-3-3 19:43:36 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
若天明 该用户已被删除
7#
发表于 2015-3-11 12:34:00 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
灵魂腐蚀 该用户已被删除
8#
发表于 2015-3-18 11:14:48 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
海妖 该用户已被删除
9#
发表于 2015-3-25 18:46:22 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

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

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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