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

當(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
主站蜘蛛池模板: 许忠| 座头市电影完整免费观看| 七下英语第二单元作文| 遍地狼烟| 欲望之城 电影| cctv6电影节目表| bb88| 爱的替身| 王晓男演员个人资料| 8号房间| 歌曲《国家》歌词| 小孩打屁股| raz分级阅读绘本| 1987年美国电影| 电影终结者| 道东道西| 何国强| 锤娜丽莎演的电视剧| 贤惠好儿媳在线观看完整版| 羞羞短视频| 护士的夏天| 毛骨悚然撞鬼经| 真濑树里| 伊人春色在线观看视频| 张国立个人资料简介| 溜冰圆舞曲音乐教案| 纵横欲海| 舞出我的人生| 阿尔罕布拉宫的回忆吉他谱| 张扬导演| 张俪写真集照片| 学生基本情况分析| christie stevens| 张凤妮| 口述公交车上| 补充电解质喝什么饮料| 翡翠台高清直播| 最佳女婿 电影| be小说| 281封信电视剧演员表| 新民歌|