您的位置：程序门 -> web 开发 -> asp

请高手看看代码，帮帮手解析吓？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请高手看看代码，帮帮手解析吓？

发表于：2008-01-16 21:47:51 楼主

哪位高手可以帮在下，解析吓这代码是什么意思吗？最好详细点，在此本人万分感谢？

　　　　　　　　　　　　　　　　　　 <%
dim conn,connstr
on error resume next
connstr="driver={microsoft access driver （*.mdb)};dbq="&server.mappath（"#date.mdb")
'数据库连接地址
set conn=server.createobject（"adodb.connection")
conn.open connstr
dim mrs,userip,oto,zday,counter,countemrs,today,daynum,yesterday,top,stats,browser
userip = request.servervariables（"http_x_forwarded_for")
if userip = "" then userip = request.servervariables（"remote_addr")

set mrs=server.createobject（"adodb.recordset")
sql="select * from counter"
mrs.open sql,conn,1,3
oto=mrs（"oto")

if oto <> date（) then
zday=date（)-1
application.lock
conn.ＥＸＥＣute"update counter set today=0,browser=0,oto=date（),daynum=daynum+1,yesterday="&mrs（"today")&""
conn.ＥＸＥＣute"insert into 5izt_day（zday,stats,browser) values （'"&zday&"',"&mrs（"today")&","&mrs（"browser")&")"
application.unlock

set mrs=server.createobject（"adodb.recordset")
sql="delete from 5izt_ip"
mrs.open sql,conn,1,3
mrs.close
set mrs=nothing
else
application.lock
conn.ＥＸＥＣute"update counter set browser=browser+1"

set mrs=server.createobject（"adodb.recordset")
sql="select * from 5izt_ip where ip='"&userip&"' order by id desc"
mrs.open sql,conn,1,3
if mrs.bof and mrs.eof then
mrs.addnew
mrs（"ip")=userip
mrs.update
conn.ＥＸＥＣute"update counter set counter=counter+1,today=today+1"
end if
mrs.close
set mrs=nothing
application.unlock
end if
set mrs=server.createobject（"adodb.recordset")
sql="select * from counter"
mrs.open sql,conn,1,3
if mrs（"top") <mrs（"today") then
conn.ＥＸＥＣute"update counter set [top]="&mrs（"today")&""
end if

response.write"document.write（""总访问： "& mrs（"counter") &"  次  最高ip： "& mrs（"top") &"   今日访问量： "& mrs（"browser") &"   共统计： "& mrs（"daynum") &"  天"");"

mrs.close
set mrs=nothing
conn.close
set conn=nothing
%>

发表于：2008-01-17 05:41:271楼得分:0

首先申明我不是什么高手，基本的了解。
<%
dim conn,connstr
on error resume next //遇到错误继续执行
connstr="driver={microsoft access driver （*.mdb)};dbq="&server.mappath（"#date.mdb")
'数据库连接地址 //数据库连接字符串
set conn=server.createobject（"adodb.connection") //创建cnnection对象
conn.open connstr //打开数据库连接，这就象是打开一大院房子的大门。
dim mrs,userip,oto,zday,counter,countemrs,today,daynum,yesterday,top,stats,browser
userip = request.servervariables（"http_x_forwarded_for") //进入本站的上一个页面的地址。
if userip = "" then userip = request.servervariables（"remote_addr")//取得客护短的代理地址

set mrs=server.createobject（"adodb.recordset") //创建recordset对象
sql="select * from counter"
mrs.open sql,conn,1,3 //打开记录集。就向是找到需要找的房间并且拿了东西。
oto=mrs（"oto") //oto=表counter的oto这个字段

if oto <> date（) then //如果oto <> 现在的时间
zday=date（)-1 //zday等于昨天
application.lock //锁定
conn.ＥＸＥＣute"update counter set today=0,browser=0,oto=date（),daynum=daynum+1,yesterday="&mrs（"today")&""
conn.ＥＸＥＣute"insert into 5izt_day（zday,stats,browser) values （'"&zday&"',"&mrs（"today")&","&mrs（"browser")&")" //更新数据
application.unlock //解开锁定

set mrs=server.createobject（"adodb.recordset") //又创建了个recordset对象
sql="delete from 5izt_ip" //删除5izt_ip表中的所有数据的sql
mrs.open sql,conn,1,3 //执行
mrs.close //关闭mrs对象，就象是我们去了一个房间拿了东西，走的时候要把门关上一样的道理
set mrs=nothing //从内存中释放这个对象（这是我理解的）
else
application.lock
conn.ＥＸＥＣute"update counter set browser=browser+1"

set mrs=server.createobject（"adodb.recordset")
sql="select * from 5izt_ip where ip='"&userip&"' order by id desc"
mrs.open sql,conn,1,3
if mrs.bof and mrs.eof then
mrs.addnew
mrs（"ip")=userip
mrs.update
conn.ＥＸＥＣute"update counter set counter=counter+1,today=today+1"
end if
mrs.close
set mrs=nothing
application.unlock
end if
set mrs=server.createobject（"adodb.recordset")
sql="select * from counter"
mrs.open sql,conn,1,3
if mrs（"top") <mrs（"today") then
conn.ＥＸＥＣute"update counter set [top]="&mrs（"today")&""
end if

response.write"document.write（""总访问： "& mrs（"counter") &"  次  最高ip： "& mrs（"top") &"   今日访问量： "& mrs（"browser") &"   共统计： "& mrs（"daynum") &"  天"");"

mrs.close
set mrs=nothing
conn.close
set conn=nothing
%>

解释不下去了，这段代码无法运行。主要是统计历史访问用的！

下一篇：这个问题谁帮帮我呀，非常头痛！！
上一篇：关于isapi rewrite cpu经常用到100%的问题！~

其他资讯