conn.asp

gmaple软件下载系统1.0Beta 具有一下功能: 1.模板功能,前台的呈现更加灵活. 2.支持静态生成,可在动态与静态间随时切换. 3.在静态模式下,可自定义生成目录,生成方式灵活.

<%@LANGUAGE="Vbscript" CODEPAGE="65001"%>
<%session.CodePage="65001"%>
<%Response.Charset="UTF-8"%>
<%
'Dim Startime
'Startime = Timer()
'---------------------------数据库连接函数---------------------------
'Sub ConnectionDatabase
	UesDb="access"
		dim conn
		dim connstr
		dim db
	if 	UesDb="access" then
		'On Error Resume Next
		db="/gmaple_Down/da%2fta/Soft%20Do#wn.mdb"
		Set conn = Server.CreateObject("ADODB.Connection")
		connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
		conn.Open connstr
		If Err Then
			err.Clear
			response.write("数据库连接出错，请检查连接字串。")
			response.End()
		End If
	end if
'End Sub
'call ConnectionDatabase
%>