<%
'=============================
'Copyright (C) 006
'Script Written by 無聊的五月
'程序名稱： MayVote Ver 1.2
'軟件類別： ASP源碼 / 投票
'軟件語言： 簡體中文
'授權方式： 免費
'系統平臺： ASP+Access
'程序下載： http://www.luckymay.net
'官方網址： http://www.luckymay.net
'程序開發： 無聊的五月
'EMAIL：love-e1984@163.com
'如采用此系統，請不要去掉這個說明，此處不會引響你的執行速度。
'========申明常規變量=============
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
'============================
%>