<%

Dim oConn, oRS, oRS2, oRS3, oCmd

Set oConn  = Server.CreateObject( “ADODB.Connection” )

Set oRS = Server.CreateObject( “ADODB.RecordSet” )

Set oRS2 = Server.CreateObject( “ADODB.RecordSet” )

Set oRS3 = Server.CreateObject( “ADODB.RecordSet” )

Set oRs4    = Server.CreateObject( “ADODB.RecordSet” )

Set oCmd = Server.CreateObject( “ADODB.Command” )

DBName=”tzjtjl”

sql=”Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=tzjtjl;Data Source=127.0.0.1;”

‘sql=”Provider=SQLOLEDB.1;Password=tzjtj123#@!;User ID=sa;Persist Security Info=True;Initial Catalog=tzjtj;Data Source=192.168.168.10;”

oConn.open (sql)

‘oConn.open Application(“dsn”)

Function WriteToSysEvent( pSource, pSubKind, pEventID, pUserNo, pComputer )

oConn.Execute( “EXEC sp_InsSysEvents ‘” & pSource & “‘, ‘” & pSubKind & “‘, ” & pEventID & “, ‘” & pUserNo & “‘, ‘” & pComputer & “‘ ” )

End Function

Function VerifyUser(CatelogNo, ExecAction)

  sql = “set nocount on select (case when isnull(rights,0) & ” & ExecAction & “=” & ExecAction & ” then 1 else 0 end) from permissions where username='”&session(“username”)&”‘ and catelogno='”&catelogno&”‘ ”

on error resume next 

oRS2.open sql, oconn, 3, 3, 1

If oRS2(0) = 1 Then

VerifyUser = TRUE

Else

VerifyUser = False

End If

oRS2.Close

End Function

%>