conn.asp

来自「投票系统.rar 投票系统完整源码」· ASP 代码 · 共 21 行

<%@ LANGUAGE = VBScript CodePage = 936%>
<%Option Explicit%>

<%
Dim db,conn,ConStr,Sql,rs
db="vote.mdb"
ConStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
On Error Resume Next
Set conn=server.createobject("adodb.connection")
conn.open ConStr
If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "数据库连接出错，请检查连接字串。"
	Response.End
End If
Sub EndConnection
	conn.close
	Set conn=Nothing
End Sub	
%>