| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 430 人关注过本帖
标题:[求助]高手帮忙----------在线等
取消只看楼主 加入收藏
dreame
Rank: 3Rank: 3
等 级:新手上路
威 望:8
帖 子:521
专家分:0
注 册:2005-10-23
收藏
 问题点数:0 回复次数:1 
[求助]高手帮忙----------在线等
我想在数据库中记录来访者(user_name)的来访时间,离开时间,ip等.写了个global.asa文件放在根目录,没有提示错误但是数据就是写不进去,请高手帮忙看下问题在那里?小弟先谢过了!!
global.asa文件
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub session_onstart

session("ip")=Request.ServerVariables("REMOTE_ADDR")
session("stime")=now()
application.Lock
if application("clicks")="" then
application("clicks")=0
end if
application("clicks")=application("clicks")+1
application.UnLock

End Sub

Sub Session_Onend

dim strProvider
dim strPsd
dim strDBPath
application.Lock
set conn=server.createobject("ADODB.CONNECTION")
strProvider="Provider=Microsoft.Jet.OLEDB.4.0;"
strDBPath="Data Source=" & Server.MapPath("/lw/database/article.mdb")
strPsd=";Jet OLEDB:Database Password=vivi4124"
conn.open strProvider & strDBPath & strPsd

SQL = "insert into record(user_name,stime,etime,ip) values('"&session("user_name")&"','"&session("stime")&"','"&now()&"','"&session("ip")&"')"

conn.Execute(SQL)
conn.Close
set conn=nothing
application.UnLock

End Sub
</SCRIPT>
搜索更多相关主题的帖子: 在线 
2005-11-05 18:21
dreame
Rank: 3Rank: 3
等 级:新手上路
威 望:8
帖 子:521
专家分:0
注 册:2005-10-23
收藏
得分:0 
我在网上有看到在global.asa中执行操作数据库操作,难道是我********.再找找看哦

有时候真的想放弃寂寞的等待,但她是那么的可爱!I love u forever!
2005-11-06 17:20
快速回复:[求助]高手帮忙----------在线等
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024210 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved