conn.asp

很漂亮的一个网络公司的源码

<%
Dim Conn
Set conn = Server.CreateObject("ADODB.Connection")
db="../zho3245sdCASDF#$%DSF@#@$ng_jstn#_@.asp"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sub rsclose
   rs.close
   set rs=nothing
end sub
sub connclose
   conn.close
   set conn=nothing
end sub
Private Sub OpenDataBase(cTypeID)
	If Conn Is Nothing Then
		Set conn = Server.CreateObject("ADODB.Connection")
		Conn.open connstr
	End If
End Sub
Private Sub OpenData()
	OpenDataBase 0
End Sub
Private Sub CloseDataBase()
	If Conn.State<>0 Then Conn.Close
	Set Conn = Nothing	
End Sub
%>