www.gusucode.com > QCMS小型网站管理系统 1.4 SP1 UTF-8 ACCESS源码程序 > plus/count/counter.asp

    <!--#include file="../../inc/const.asp"-->
<%
dim path,myFile,read,write,cntNum
path=server.mappath("counter.qcms")
read=1
write=2
Set myFso = Server.CreateObject("Scripting.FileSystemObject")
set myFile = myFso.opentextfile(path,read)
cntNum=myFile.ReadLine
myFile.close
cntNum=FmtNumber(cntNum+1,6)
set myFile = myFso.opentextfile(path,write,TRUE)
myFile.write(cntNum)
myFile.close
set myFile=nothing
set myFso=nothing
'格式化数字
function FmtNumber(n,length)
 if len(n)>=length then
  fmtNumber = n
  exit function
 end if
 FmtNumber = string(length - len(n), "0") & n
end function
'替换成图片
function tihuan(cntNum)
cntNum=replace(cntNum,"1","<img src='"&install&"plus/count/img/1.gif'/>")
cntNum=replace(cntNum,"2","<img src='"&install&"plus/count/img/2.gif'/>")
cntNum=replace(cntNum,"3","<img src='"&install&"plus/count/img/3.gif'/>")
cntNum=replace(cntNum,"4","<img src='"&install&"plus/count/img/4.gif'/>")
cntNum=replace(cntNum,"5","<img src='"&install&"plus/count/img/5.gif'/>")
cntNum=replace(cntNum,"6","<img src='"&install&"plus/count/img/6.gif'/>")
cntNum=replace(cntNum,"7","<img src='"&install&"plus/count/img/7.gif'/>")
cntNum=replace(cntNum,"8","<img src='"&install&"plus/count/img/8.gif'/>")
cntNum=replace(cntNum,"9","<img src='"&install&"plus/count/img/9.gif'/>")
cntNum=replace(cntNum,"0","<img src='"&install&"plus/count/img/0.gif'/>")
tihuan=cntNum
end Function

function dm2js(dm)
dm=replace(dm,"""","\""")
dm=replace(dm,"'","\""")
dm=replace(dm,"/","\/")
dm= Replace(dm, CHR(13),"") 
dm= Replace(dm, CHR(10),"")
dm= Replace(dm, CHR(9),"")
dm2js=dm
end Function
%>
document.write('<%=dm2js(tihuan(cntNum))%>');