?? 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: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©2005-2006 <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
'============================
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -