日期:2014-05-17  浏览次数:20884 次

asp访问量的问题(两个不同服务器上统一访问量如何解决?)
在北京和广州两台服务器,如何能够使两个数目的访问量达成一致?
可不可以不同的服务器能否访问不同服务器上的文件如 "visitor_counter.txt "?或者有没有更好的解决方法?
记录数的文件如下:

  <table   width= "102 "   border= "1 "   cellspacing= "0 "   cellpadding= "0 "   bordercolor= "#0000FF "   height= "43 "   bgcolor= "#C1C1FF ">
        <tr>
            <td   align= "center ">  
<%
'变量元素
Dim   fsoObject   '文件系统对象
Dim   tsObject   '文字系统对象
Dim   filObject '文件对象
Dim   lngVisitorNumber   '保存来访者数量
Dim   intDisplayDigitsLoopCount   '循环计数显示
On   Error   Resume   Next
lngVisitorNumber   =   0
Set   fsoObject   =   Server.CreateObject( "Scripting.FileSystemObject ")
Set   filObject   =   fsoObject.GetFile(Server.MapPath( "visitor_counter.txt "))
Set   tsObject   =   filObject.OpenAsTextStream
lngVisitorNumber   =   CLng(tsObject.ReadAll)
If   Session( "lngSessionVisitorNum ")   =   " "   Then
'Increment   the   visitor   counter   number   by   1
lngVisitorNumber   =   lngVisitorNumber   +   1
'Place   the   Visitor   number   in   the   session   visitor   number
Session( "lngSessionVisitorNum ")   =   lngVisitorNumber
Else
'Place   the   Visitor   number   in   the   session   visitor   number
Session( "lngSessionVisitorNum ")   =   lngVisitorNumber
End   if


Set   tsObject   =   fsoObject.CreateTextFile((Server.MapPath( "visitor_counter.txt ")),   True)

tsObject.Write   CStr(lngVisitorNumber)

Set   fsoObject   =   Nothing
Set   tsObject   =   Nothing
Set   filObject   =   Nothing

'************你可以自由修改下面一行中的计数器文字说明************
Response.Write   " <font   size=2> 浏览人数 </font> <br> "&lngVisitorNumber


%>
            </td>
        </tr>
    </table>

能不能解决,在此谢先了!

------解决方案--------------------
计数器共用一个库
over!
------解决方案--------------------
晕 beyondamane(伯通)

你这样 太耗时了 而且连远程的数据库 极不安全
我建议你在北京的服务器里面放一个frame
比如 每加载一次 就会执行这个
广州.asp?count=1233232(北京的访问量)

在广州里面也加入 北京.asp?count=33333(广州的访问量)


然后把相加的值显示即可