global.asa中可以创建对象吗?如recordset对象.

[21stboy]

[xuchu]

可以的

[lihaitaoami]

当然可以了。
和在其他地方一样的操作。以下是我的global.asa
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Session.Timeout=30 '默认过期时间是30分钟
sub Application_OnStart()
Application("connect")="Provider=MSDASQL;Driver=SQL Server;Server=10.1.1.134;DataSource=myweb;UID=myweb;Pwd=56580519" '数据库连接

dim fs,fname
set fs=Server.createobject("Scripting.FileSystemObject")
fname=Server.Mappath("log.txt")
set f=fs.OpenTextFile(fname,8)
tmpstr=formatdatetime(now(),0)
f.writeline("Application Start["+tmpstr+"]") '向日志文件中写入记录
End sub
</SCRIPT>

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart()
InitSession()'初始化session变量

set conn=Server.createobject("adodb.connection")
conn.open Application("connect")
set BC=server.createobject("MSWC.BrowserType")
tmpstr_sql="insert into T_LogInfo(SessionID,UserID,LoginTime,LogoutTime,IP,OSType,Browser,Language,UserAgent,Refer) values('" & Session.sessionID & "','" & Session("UserID") & "','" & now() & "',null,'" & Session("UserIP") & "','" & BC.platform & "','" & BC.Browser & BC.Version & "','" & Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") & "','" & Request.ServerVariables("HTTP_USER_AGENT") & "','" & Request.ServerVariables("HTTP_REFERER") & "')"
'添加用户登录信息
conn.execute(tmpstr_sql)
conn.close
set conn=nothing
End Sub
Sub InitSession()
'以下用户数据用session来保存，在用户登录后按用户定制显示
Session("UserHaveLogin")=0 '用户是否已登录
Session("UserID")="" '用户ID
Session("UserName")="" '用户名称
Session("NickName")="" '用户昵称
Session("UserGroup")="" '用户所在组
Session("DefaultForum")="" '默认登录论坛
Session("MyForum")="" '我的论坛
Session("BodyColor")="rgb(239,243,222)"'背景颜色
Session("ShowOrder")=true '显示顺序，默认为按最新回复显示
Session("PerPageNumber")=20 '默认每页显示贴子总数
Session("EmailReply")=false '默认不接收邮件回复
Session("GetSMS")=true '是否接收短消息
Session("GetSMSOnlyFriend")=false '是否只接收好友的短消息
Session("RefreshTime")=0 '默认不自动刷新
Session("UserIP")=Request.ServerVariables("REMOTE_ADDR") '用户IP
Session("UserAddr")="" '用户来源
End Sub
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnEnd()
set conn=Server.createobject("adodb.connection")
conn.open Application("connect")

tmpstr_sql="update T_LogInfo set LogoutTime='" & now() & "' where SessionID='" & Session.sessionID & "'"
tmpstr_sql=tmpstr_sql & chr(13) & chr(10) & " delete from T_OnlineUser where SessionID='" & Session.sessionID & "'"
conn.execute(tmpstr_sql)'登录日志中加入离开时间，同时删除在线用户中对应的记录

Application.UnLock

InitSession() '初始化session变量

conn.close
set conn=nothing
End sub
</SCRIPT>

<Script language="vbscript" runat="server">
sub Application_OnEnd()
dim fs,fname
set fs=Server.createobject("Scripting.FileSystemObject")
fname=Server.Mappath("log.txt")
set f=fs.OpenTextFile(fname,8)
tmpstr=formatdatetime(now(),0)
f.writeline("Application End["+tmpstr+"]")
End sub
</SCRIPT>

[andyou2000]

当然没问题了

[希偌]

当然可以

[efax]

没问题呀,:P