WEB(ASP,PHP,...)

Development Platform:

DOS

conn.asp：Code Content

							<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Conn,Db,StartTime,Timeset,SqlNum,ConnStr
Timeset=0
StartTime = Timer()
SqlNum=0
Db="Data/tretge@!#$@!$321wygkcn!@$#@!$.mdb"
Sub ConnectionDatabase
	Set conn=Server.CreateObject("ADODB.Connection")
	ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
	On Error Resume Next
	Conn.Open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库更新中或数据库连接错误！"
		Response.End
	End If
End Sub
%>

						