∷ 进入网站 ∷

...............................................................................................

版权所有：秦皇岛港方大房地产开发有限公司

网站维护：秦皇岛在线网络有限公司

<% dim fso,f,no,I '定义变量绝对是个好习惯 Set fso = CreateObject("Scripting.FileSystemObject") '建立对象的实例 Set f = fso.OpenTextFile(Server.MapPath("count.no"), 1, True) '建立文本文件 if f.AtEndOfStream then '判断这个文件是否不存在 no=1 else no=f.ReadLine no=no+1 end if f.Close set f=fso.OpenTextFile(Server.MapPath("count.no"),2,True) '准备写 f.Write(no) '写入 f.Close '改进标志1 no=CStr(no) '整齐数字 for i=1 to 5-len(no) no="0"&no next %>

<% =no%>