<%
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
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