mayvote_conn.asp

功能很强大 功能很强大 功能很强大

<%
'=============================
'Copyright (C) 006
'Script Written by 无聊的五月
'程序名称： MayVote Ver 1.2
'软件类别： ASP源码 / 投票
'软件语言： 简体中文
'授权方式： 免费
'系统平台： ASP+Access
'程序下载： http://www.luckymay.net
'官方网址： http://www.luckymay.net
'程序开发： 无聊的五月
'EMAIL：[e-mail]
'如采用此系统，请不要去掉这个说明，此处不会引响你的执行速度。
'========申明常规变量=============
Dim Conn,Connstr,NowTime,May_True,May_False,Action,CountTimeStart,CountTimeEnd
'=========连接数据库=============
CountTimeStart = timer
mdb = "data/MayVote.mdb"  '数据库路径
NowTime = "Now()"
May_True = 1
May_False = 0
ConnStr = "DBQ="+Server.MapPath(AdminDbPath &mdb)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(AdminDbPath &mdb)
Set Conn = Server.Createobject("adodb.connection")
On Error Resume Next 
Conn.Open Connstr

'=======数据库连接验证=======
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请联系管理员。" 
Response.End 
End If
'============================

'======读取投票系统基本设置========
Dim MayVote_Name
MayVote_Name = Application("MayVote_Name")
If  MayVote_Name = Empty Then
Dim rsConfig
Set rsConfig = Conn.Execute("Select * From MayVote_Config")
	If rsConfig.BOF And rsConfig.EOF Then
	rsConfig.Close
	Set rsConfig = Nothing
	Response.Write "投票系统配置数据丢失！系统无法正常运行！"
	Response.End
	Else
		Application.Lock
        Application("MayVote_Name") = rsConfig("MayVote_Name") 
		Application("MayVote_Url") = rsConfig("MayVote_Url") 
		Application("MayVote_Setting") = rsConfig("MayVote_Setting") 
		Application("MayVote_Ver") = rsConfig("MayVote_Ver")
		Application("MayVote_Copy") = rsConfig("MayVote_Copy") 
		Application.UnLock
	End If 
rsConfig.Close
Set rsConfig = Nothing
End If
'============================

'========数据库连接关闭==========
Sub CloseConn()
On Error Resume Next
	If IsObject(Conn) Then
		Conn.Close
		Set Conn = Nothing
	End If 
End Sub

Sub MayVote_CopyRight()
Response.Write"Powered by <a href='http://www.luckymay.net' target='_blank'><b>MayVote</b></a> <a href='http://www.luckymay.net' target='_blank'><b style='color:#FF9900'>"&Application("MayVote_Ver")&"</b></a> Copyright&copy;2005-2006&nbsp;<a href='http://www.luckymay.net'><b>LuckyMay<font color='#FF0000'>.Net</font></b></a>"
End Sub
'============================
'名称：脚本执行时间
'调用： Call CountTime()
'============================
Sub CountTime()
	CountTimeEnd=timer
	CountTimes=Trim(Cstr(CountTimeEnd-CountTimeStart))
	Response.Write CountTimes
End Sub
'============================
%>