conn.asp

使用本程序在局域网内聊天

<%
Dim Data_Path,ConnStr,Conn,Rs
Data_Path="data/data.asp"
If IsFile(Data_Path)=False Then
	Data_Path="../" & Data_Path
End If
'Access连接方式：
'========================================================================
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Data_Path)
'========================================================================
'MSSQL方式的连接：
'========================================================================
'		SqlDatabaseName = "dvbbs7"
'		SqlPassword = ""
'		SqlUsername = "dvbbs"
'		SqlLocalName = "(local)"
'		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
'========================================================================
Sub OpenData()
	Set Conn=Server.CreateObject("Adodb.Connection")
	Set Rs=Server.CreateObject("Adodb.Recordset")
	Conn.Open ConnStr
End Sub


Sub CloseData()
	Set Rs=Nothing
	Set Conn=Nothing
End Sub

Sub CloseAll()
	Set Rs=Nothing
	Set Conn=Nothing
End Sub

Sub OpenRs(ByVal SqlStr)
	If Left(LCase(SqlStr),6)="select" Then
		Rs.Open SqlStr,Conn,1,3
	Else
		Conn.Execute SqlStr
	End If
End Sub
%>