＜html＞
＜head＞
＜meta http-equiv=＂Content-Type＂ content=＂text/html; charset=gb2312＂＞
＜title＞001＜/title＞
＜/head＞
＜body＞
＜%
dim conn,ac97,dbpath
SET conn=server.CreateObject(＂adodb.connection＂)
ac97=＂driver={Microsoft Access Driver (*.mdb)};dbq=＂
dbpath=server.MapPath(＂001.mdb＂)
conn.open ac97＆dbpath
set rs=server.CreateObject(＂ADODB.Recordset＂)
sql=＂select * From tongji＂
rs.open sql ,conn ,1,3
%＞
＜%
rs(＂lastip＂) = 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.Update
END IF
IF CSTR(Day(RS(＂DATE＂))) ＜＞ CSTR(Day(DATE())) THEN
RS(＂DATE＂) = DATE()
RS(＂YESTERDAY＂) = RS(＂TODAY＂)
RS(＂TODAY＂) = 0
RS.Update
END IF
RS(＂TOTAL＂) = RS(＂TOTAL＂) 1
RS(＂TODAY＂) = RS(＂TODAY＂) 1
RS(＂MONTH＂) = RS(＂MONTH＂) 1
RS.Update
%＞
自＜%=rs(＂inputdate＂)%＞起 ,您是本站第＜%=rs(＂total＂)%＞ 位客人＜/p＞
＜p＞本月访问：＜%=rs(＂month＂)%＞人 上月 ：＜%=rs(＂bmonth＂)%＞ 人 ＜/p＞
＜p＞今日访问：＜%=rs(＂today＂)%＞人 昨日：＜%=rs(＂yesterday＂)%＞人＜/p＞
＜/body＞
＜/html＞
调试不出来，
法显示网页
您要访问的网页有问题，无法显示。
--------------------------------------------------------------------------------
请尝试以下操作:
打开 localhost 主页，然后查找指向您感兴趣信息的链接。
单击刷新按钮，或以后再试。
单击搜索，寻找 Internet 上的信息。
也可查看相关站点列表。
HTTP 500 - 内部服务器错误
Internet Explorer
数据库能这么连吗
错误信息呢？
你在第一行加上＜%option explicit%＞（强制所有变量都定义）
如果还不行就用我的方法设置数据源看看
dim conn
dim dbpath
set conn=server.CreateObject(＂adodb.connection＂)
dbpath=server.MapPath(＂001.mdb＂)
conn.open＂driver={Microsoft Access Driver (*.mdb)};dbq=＂dbpath
dim strsq1,rs
strsq1=＂select*from link order by link_id desc＂
set rs=conn.execute(strsq1)
谢各位，问题已找到，cstr()这个函数的问题。
不过现在又有新的问题了，我又把网页改了改，第一次访问的时候无法显示，刷新一次就能正确显示了，谁见过这样的问题
没碰到过，这样会不会是你IE的问题？|
哦,如果是XP系统,有这种现象也不奇怪,我的动网在XP系统有时侯要刷新才可以正常显示的,有时候500错误的,奇怪,可能是IIS或者XP系统对数据库支持的问题了.
动网在偶机子上运行良好 没发现任何问题哦~~XP SP2 IIS5.0 ACC是OFFICE2003的~
可能是兼容性问题吧.奇怪现象奇怪分析....... |
|
设为首页
加入收藏
联系我们
打印本文 
返回顶部 
加入收藏 
关闭窗口
