|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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邮箱设置等等,就像管理本地机一样方便。 |
|