日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當(dāng)前位置:首頁(yè)文章首頁(yè) IT學(xué)院 IT技術(shù)

ASP編寫計(jì)數(shù)器的實(shí)例分享

作者:  來(lái)源:  發(fā)布時(shí)間:2011-6-9 15:15:38  點(diǎn)擊:

下面提供的是關(guān)于ASP編寫計(jì)數(shù)器的實(shí)例代碼分享,對(duì)ASP感興趣的朋友可以照著試一試。

<%
  
  dim fso,f,no,I '定義變量絕對(duì)是個(gè)好習(xí)慣
  
  Set fso = CreateObject("Scripting.FileSystemObject") '建立對(duì)象的實(shí)例
  
  Set f = fso.OpenTextFile(Server.MapPath("count.no"), 1, True) '建立文本文件,打開為只讀.
  
  if f.AtEndOfStream then '判斷這個(gè)文件是否不存在
  
  no=1
  
  else
  
  no=f.ReadLine
  
  no=no+1
  
  end if
  
  f.Close
  
  set f=fso.OpenTextFile(Server.MapPath("count.no"),2,True) '準(zhǔn)備寫
  
  f.Write(no) '寫入
  
  f.Close
  
  '改進(jìn)標(biāo)志1
  
  no=CStr(no) '整齊數(shù)字
  
  for i=1 to 5-len(no)
  
  no="0"&no
  
  next
  
  %>
  
  <font color=white size=3pt>你是第<font color=red><%=no%></font>個(gè)來(lái)客</font>

相關(guān)軟件

文章評(píng)論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
主站蜘蛛池模板: 山东生活频道| 电影《大突围》免费观看完整版| 珠江电视台直播 珠江频道| 抗日片100部免费连续剧| 电子天平检定规程| 美女的逼逼视频| 微信图像男| 德鲁| 电视剧《河山》在线观看| 淡蓝色的雨简谱| 欧美日韩欧美| 姐妹在线观看| 侠客行演员表| 必修二英语电子课本外研版| 伦理电影在线看| 恶行之外电影完整在线观看| 风间由美风间ゆみav| 寄宿生韩剧全集观看| 孙东杓| 墓碑样式图片| 电影《天才》| 大海啊故乡钢琴谱| 小小春| 新力量电影在线观看免费| 锤娜丽莎演的电视剧| 《与凤行》演员表| 40hq| 保姆欲望| 西界歌词| 乳糖不耐受奶粉推荐| 姐妹姐妹演员全部演员表| 巢谷传| 永远少年电影免费播放 | 孙兴电影| 新步步惊心| 吃屎视频搞笑视频| 热点视频| 嫩模啪啪喷水呻吟久久| 地铁电影| 91天堂| 致命录像带|