|
13.08.2002, 12:25:15
#32042821
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Откуда: Из Сибири.
Сообщения: 1 439
Рейтинг:
0
/ 0
|
|
|
|
примерно так ....
(текст очень старый но рабочий ... !!!)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
'==Visual InterDev Generated - startspan==
' --Project Data Connection
Application( "Bank_ConnectionString" ) = "DRIVER=SQL Server; SERVER=sql;UID=webuser;WSID=GEOSOFT;DATABASE=bank;User Id=webuser;User Id=webuser;PASSWORD=pass;"
Application( "Bank_ConnectionTimeout" ) = 15
Application( "Bank_CommandTimeout" ) = 30
Application( "Bank_CursorLocation" ) = 3
Application( "Bank_RuntimeUserName" ) = "webuser"
Application( "Bank_RuntimePassword" ) = "pass"
'%af_src_commbr_1
'Set DE = Server.CreateObject( "DERuntime.DERuntime" )
'Application("DE") = DE.Load(Server.MapPath("Global.ASA"), "_private/DataEnvironment/DataEnvironment.asa")
'==Visual InterDev Generated - endspan==
End Sub
'*********************************************************************
'*********************************************************************
Sub Session_OnStart
'on error resume next
Set Bank_Conn = Server.CreateObject("ADODB.Connection")
Bank_Conn.Open Application("Bank_ConnectionString"),Application("Bank_RuntimeUserName"),Application("Bank_RuntimePassword")
If Request.ServerVariables("AUTH_USER")<>"" Then
Dim dom, user, auth
auth = Request.ServerVariables("AUTH_USER")
If isEmpty(auth) or auth="" Then
auth = Request.ServerVariables("AUTH_USER")
End If
If not isEmpty(auth) Then
dom = left(auth,InStr(auth,"\")-1)
user = Request("user")
If isEmpty(user) Then
user = mid(auth,InStr(auth,"\")+1)
End If
Session("User_Domain") = Request.ServerVariables("AUTH_USER")
Session("User_ip") = Request.ServerVariables("REMOTE_HOST")
Session("SessionStart") = Mid(Date(),7,4)&"."&Mid(Date(),4,2)&"."&Left(Date(),2)&" "&time()
'********************************************
'********************************************
Dim NTuser
set NTuser=GetObject("WinNT://" & dom & "/" & user & ",User")
Session("User_FIO") =NTuser.FullName
Session("User_IO") =Mid(NTuser.FullName,InStr(NTuser.FullName," ")+1)
Set NTuser = Nothing
End If
'**************************************************************
SQLQvery = "Select domain From BSS.BSS_Web_Users Where domain = ('"&Request.ServerVariables("AUTH_USER")&"')"
Set rsWeb = Bank_Conn.Execute(SQLQvery)
'********************************************
If rsWeb.Eof Then SQLQvery = "Insert into BSS.BSS_Web_Users (domain,name) values (' "& Request.ServerVariables(" AUTH_USER ")&" ',' "&Session(" User_FIO ")&" ')"
If not rsWeb.Eof Then SQLQvery = "Update BSS.BSS_Web_Users SET name = ' "&Session(" User_FIO ")&" ' Where domain in (' "&Request.ServerVariables(" AUTH_USER ")&" ')"
Set rsUser = Bank_Conn.Execute(SQLQvery)
'********************************************
SQLQvery = "Select id From BSS.BSS_Web_Users Where domain = ('"&Request.ServerVariables("AUTH_USER")&"')"
Set rsUserId = Bank_Conn.Execute(SQLQvery)
Session( "User_id" ) = rsUserId.Fields( "id" ).value
Else
Session( "User_Domain" ) = "KF-SBS\WebUser"
Session( "User_ip" ) = Request.ServerVariables( "REMOTE_HOST" )
Session( "SessionStart" ) = Mid(Date(), 7 , 4 )& "." &Mid(Date(), 4 , 2 )& "." &Left(Date(), 2 )& " " &time()
Session( "User_FIO" ) = Session( "User_ip" )
Session( "User_IO" ) = Session( "User_ip" )
SQLQvery = "Select domain From BSS.BSS_Web_Users Where domain = 'KF-SBS\WebUser'"
Set rsWeb = Bank_Conn.Execute(SQLQvery)
'********************************************
If rsWeb.Eof Then SQLQvery = "Insert into BSS.BSS_Web_Users (domain,name) values ('KF-SBS\WebUser',' " & Session(" User_ip ") & " ')"
If not rsWeb.Eof Then SQLQvery = "Update BSS.BSS_Web_Users SET name = ' " & Session(" User_ip ") & " ' Where domain = 'KF-SBS\WebUser'"
Set rsUser = Bank_Conn.Execute(SQLQvery)
'********************************************
SQLQvery = "Select id From BSS.BSS_Web_Users Where domain = ('KF-SBS\WebUser')"
Set rsUserId = Bank_Conn.Execute(SQLQvery)
Session( "User_id" ) = rsUserId.Fields( "id" ).value
End If
Set rsWeb = Nothing
Set rsUser = Nothing
Set rsUserId = Nothing
Set Bank_Conn = Nothing
End Sub
'***********************************************************
'***********************************************************
'***********************************************************
Sub Session_OnEnd
If Session("User_id")<>"" Then
Set Bank_Conn = Server.CreateObject("ADODB.Connection")
Bank_Conn.Open Application("Bank_ConnectionString"),Application("Bank_RuntimeUserName"),Application("Bank_RuntimePassword")
SQLQvery = "insert into BSS.BSS_Web_Events (id,ip,datestart,datefinal,app) values ("&Session("User_id")&",' "&Session(" User_ip ")&" ', convert(datetime,' "&Session(" SessionStart ")&" ',120), getdate(),'WebResource')"
Set Rs_WebS = Bank_Conn.Execute(SQLQvery)
Set RS_WebS = Nothing
Set Bank_Conn = Nothing
End If
End Sub
</SCRIPT>
|
|
|
