conn.asp

使用Asp+Access+FSO+Jmail+Servu开发

<!--#include file="fso.asp" -->
<%
Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
set rs=server.createobject("ADODB.Recordset")
Set fso=Server.CreateOBject(Const_ScriptFileSystem) 
Set fso1=Server.CreateOBject(Const_ScriptFileSystem) 
Response.Buffer=True
IsSqlDataBase=1      '定义数据库类别，0为Access数据库，1为SQL数据库
If IsSqlDataBase=0 Then
'''''''''''''''''''''''''''''' Access数据库 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
datapath="E:\wwwroot\v52sql\data\"      '数据库目录的物理路径，以"\"结尾
datafile="9cool.mdb"      '数据库的文件名
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&datapath&datafile
'Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};"
SqlNowString="Now()"
SqlChar="'"
ver="9Cool 5.2"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else
'''''''''''''''''''''''''''''' SQL数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SqlLocalName   ="(local)"     '连接IP  [ 本地用 (local) 外地用IP ]
SqlUsername    ="sa"          '用户名
SqlPassword    ="tianyi"           '用户密码
SqlDatabaseName="9coolsql"       '数据库名
ConnStr = "Provider=Sqloledb;User ID="&SqlUsername&"; Password="&SqlPassword&"; Initial Catalog = "&SqlDatabaseName&"; Data Source="&SqlLocalName&";"
SqlNowString="GetDate()"
ver="9Cool 5.2 SQL"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
END IF
On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库链接出错，请检查！"
Response.End
End If
On Error GoTo 0
%>