ASP网页设计用ASP完成收费计数器供应-1
优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合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邮箱设置等等，就像管理本地机一样方便。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。
页:
[1]