conn.asp

Build 1025更新： 美化了后台,简化了后台操作

<%@ 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	
%>