addvip.inc

聊天

<%
Const adModeRead=1
Const adModeWrite=2
Const adModeReadWrite=3
Const adUseServer = 2
Const adUseClient = 3
Const adCmdText = &H0001
Const adExecuteNoRecords = &H00000080

Function CreateConn(adMode,adUse)
Set CreateConn = Server.CreateObject("ADODB.Connection")
CreateConn.Mode = adMode
CreateConn.CursorLocation = adUse
CreateConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\echat_v36\data\echat.mdb"
End Function
%>