瑞星卡卡安全论坛

下面的代码如何改，才能实现防止刷新，我不太懂ASP，请您回答的时候详细点，最好在代码上直接修改，谢谢！
<!-- #Include File=Conn.asp -->
<div align="right"><span style="color: #6A6E4D">本站共有</span>
<a javastr=""> </a>
<%
dim visiter
dim sql
dim rs
sql="select visiter from visiter"
set rs=conn.execute(sql)
count=rs("visiter")
changdu=len(count)
for i=1 to 3-changdu

%>
<a javastr=javastr+></a><img src="images/0.gif" border=0></img>
<%
next
for i=1 to changdu
%>
<a javastr=javastr+></a><img src="images/<%=mid(count,i,1)%>.gif" border=0></img>
<%

next
%>
<span style="color: #6A6E4D">人次访问</span>

<%
sql="update visiter set visiter=visiter+1"
rs.close
set rs=nothing
conn.execute(sql)
conn.close
set conn=nothing
%>

</div>

用户系统信息：Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; TheWorld)

两种方法，一个是用cookiet，一个是用section。具体用法你查查书吧，很多年没用asp了

TO：天下奇才
我对ASP也是一知半解，找别人帮做的，自己不会，所以改起来也只能求人，劳驾诸位帮看看，怎么改，好吗！〉？

<%
if(!Application("count")>0)  ‘当Application("count")的值不大于0的时候
{
  Application("count")=0;
}

Application.Lock();
if(Session("co")==null)
{
  Application("count")++;
  Session("co")="aaa";
}
Application.Unlock();
var img="";
function conn(count)
{
  count=count+""; 
 
  for(i=0;i<count.length;i++)
  {
  img+="<img src="+count.substring(i,i+1)+".gif>";
  }
  return img;
}
%>

这是思路~  （我后台比较喜欢用JS写，你把变成VBSCRIPT就行了）
用的是session 
结果是以图片显示访问次数（防刷新的）

我把整个文件夹都发给你吧（有图片在里面）

你是写入数据库的~
其实写如文件的话效率会高的多~ 
APPLICATION值增1后写入相应的文件里（如：count.txt）

附件: count.rar

这样会不会其他人也刷不了？

不会的

多谢流氓百忙之中抽出时间为我做答,呵呵,不过我那个东西没有改的价值吗,我看不大懂,如果用session控制应该怎么改啊?>!

我看能不能给你找个现成的吧~

我也一段时间没干ASP了~

没找到~ 上次格盘后没剩下多少代码了

这是刚写的 你看看先

<%
dim path,myFile,read,write,cntNum
path=server.mappath("counter.txt")
read=1
write=2
Set myFso = Server.CreateObject("Scripting.FileSystemObject")
set myFile = myFso.opentextfile(path,read)
cntNum=myFile.ReadLine
myFile.close   

        If Session("co") = "" Then  '防刷新 判断是否已登陆
                cntNum = cntNum+1       
                Session("co")="aaa"      '如刚登陆，记录到session里
        End if
     

set myFile = myFso.opentextfile(path,write,TRUE)
myFile.write(cntNum)
myFile.close
set myFile=nothing
set myFso=Nothing

%>
复制过去后，自己在同个目录下建立一个名为counter的记事本文件（初始值写0，简单点就是直接在记事本里写个数字0）

谢谢了，呵呵