论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > Asp教程
Tag:入门,文摘,实例,技巧,iis,表单,对象,上传,数据库,记录集,session,cookies,存储过程,注入,分页,安全,优化,xmlhttp,fso,jmail,application,防盗链,stream,组件,md5,乱码,缓存,加密,验证码,算法,ubb,正则表达式,水印,,日志,压缩,url重写,控件,函数,破解,触发器,socket,ADO,初学,聊天室,留言本,视频教程

Asp教程:ASP制作计数器(三)

文章类别:Asp | 发表日期:12-08-25

Asp教程:ASP制作计数器(三)


例3 计数器正式版
<html>
<head>
<title>计数器正式版</title>
</head>
<body>
<p align="center">您是本网站的第
<font color="blue">
<%
Sub Numberpad()
    Set files=Server.CreateObject("Scripting.FileSystemObject")
    Set numtxt=files.OpenTextFile(Server.MapPath("/Num.txt"))
    Application("Num")=numtxt.ReadLine
    numtxt.Close
    Application("Num")=Application("Num")+1
    Response.Write Application("Num")
    Set numtxt=files.CreateTextFile(Server.MapPath("/Num.txt"),True)
    numtxt.WriteLine(Application("Num"))
    numtxt.Close
End Sub

Application.Lock
Numberpad
Application.UnLock
%>
</font>
位访问者</p>
</body>
</html>

视频教程列表
文章教程搜索
 
Asp推荐教程
Asp热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058