conn.asp

玛雅自助导航系统 玛雅自助导航系统 玛雅自助导航系统

<%


'option explicit
'response.buffer = true
Rem 忽略所有错误
on error resume next
dim startime
dim Conn
dim ConnStr
startime=timer()
%>
<!--#INCLUDE file="Config.asp" -->
<%
Rem 缓存名称
SiteSN = Replace(Replace(LCase(Request.ServerVariables("SERVER_NAME")), "/", ""), ".", "")

'Rem 系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS数据库
'Const IsSqlDataBase=0
	
Sub ConnectionDatabase
	If IsSqlDataBase = 1 Then
	   Rem 如果是SQL数据库，请认真修改好以下数据库选项
	   DataServer   = "(local)"                                '数据库服务器IP
	   DataUser     = "WapLink"                                '访问数据库用户名
	   DataBaseName = "WapLink"                                '数据库名称
	   DataBasePsw  = "518116"                                 '访问数据库密码
       ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"
	Else
	    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(WapLinkMdb)	
	End If
	On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.open ConnStr
	If Err Then
		err.Clear
		Conn.close
		set Conn=nothing
		Response.Write "数据库连接出错"
		Response.End
	End If
End Sub	
	
Call ConnectionDatabase()

dim Wap
Set Wap=New Cls_CuteLink


If IsSqlDataBase = 1 Then
	SqlNowString = "GetDate()"
	strTrue = 1
	strFalse = 0	
Else
	SqlNowString = "Now()"
	strTrue = True
	strFalse = False
End If

%>
<!--#INCLUDE file="Class.asp" -->