努比亚z17参数:关于一个asp计数器请零的问题

来源:百度文库 编辑:高校问答 时间:2024/03/29 16:16:06
计数器的代码如下:
<!--#include file=CHY.CNT -->
<%
dim LASTIP,NEWIP
set rs=server.CreateObject("ADODB.RecordSet")
Rs.Open "Select * From counters" ,conn,1,3

LASTIP = RS("LASTIP")
NEWIP = REQUEST.servervariables("REMOTE_ADDR")

IF CSTR(Month(RS("DATE"))) <> CSTR(Month(DATE())) THEN
RS("DATE") = DATE()
RS("YESTERDAY") = RS("TODAY")
RS("BMONTH") = RS("MONTH")
RS("MONTH") = 0
RS("TODAY") = 0
RS("TOTAL") = RS("TOTAL") + 1
RS("TODAY") = RS("TODAY") + 1
RS("MONTH") = RS("MONTH") + 1
RS("LASTIP") = NEWIP
RS.Update
session("IsFirst")=true
ELSE
IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN
RS("DATE") = DATE()
RS("YESTERDAY") = RS("TODAY")
RS("TODAY") = 0
RS("TOTAL") = RS("TOTAL") + 1
RS("TODAY") = RS("TODAY") + 1
RS("MONTH") = RS("MONTH") + 1
RS("LASTIP") = NEWIP
RS.Update
session("IsFirst")=true
END IF
END IF
if session("IsFirst")="" then '判断是否是第一次登陆,如果是则计数器加一
RS("TOTAL") = RS("TOTAL") + 1
RS("TODAY") = RS("TODAY") + 1
RS("MONTH") = RS("MONTH") + 1
RS("LASTIP") = NEWIP
RS.Update
session("IsFirst")=true
end if
%>

以下是关联的CHY.CNT文件:
<%
StrSQL="DBQ="+server.mappath("DCHY.cnt")+";DRIVER={Microsoft Access Driver (*.mdb)};"
'connstr="driver={SQL Server};server=(local);database=master;uid=sa;pwd=;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
%>
这个文件里DCHY.cnt打开是一堆乱码。
这个问题的关键是我在目录里找不到数据库所在,这段代码是我下载的。希望高手解答一下。不胜感激:)
按照说明文件里说的,DCHY.CNT里是当日统计,我把<!--#include file=CHY.CNT -->去掉以后什么也显示不了了。

关键是DCHY.cnt文件,如果其他显示正常,并且DCHY.cnt文件对你没有什么用,可以将<!--#include file=CHY.CNT --> 语句删除。