?? conn_user.asp
字號:
<%
Dim Gaobei_UserName
Dim Gaobei_UserPassword
Dim Gaobei_UserSex
Dim Gaobei_UserEmail
Dim Gaobei_UserQuesion
Dim Gaobei_UserAnswer
Dim Gaobei_UserSign
Dim Gaobei_UserBirthday
Dim Gaobei_JoinDate
Dim Gaobei_UserGrade
Dim Gaobei_LastLogin
Dim Gaobei_UserMoney
Dim Gaobei_LoginNum
Dim Gaobei_UserIP
Dim Gaobei_Sys
Dim Gaobei_UserDB
Dim Conn_User
Dim ConnString
Dim Gaobei_User_DB
Dim Gaobei_DBTable
Dim Gaobei_IsActive
Gaobei_IsActive="IsActive"
Gaobei_UserID="UserID"
Gaobei_UserName="UserName"
Gaobei_UserPassword="UserPassword"
Gaobei_UserSex="UserSex"
Gaobei_UserEmail="UserEmail"
Gaobei_UserQuesion="UserQuesion"
Gaobei_UserAnswer="UserAnswer"
Gaobei_UserSign="UserSign"
Gaobei_UserBirthday="UserBirthday"
Gaobei_JoinDate="JoinDate"
Gaobei_UserGrade="UserGrade"
Gaobei_LastLogin="LastLogin"
Gaobei_UserMoney="UserMoney"
Gaobei_LoginNum="LoginNum"
Gaobei_UserIP="UserIP"
Gaobei_Sys="xbqq_V1.0" '主cookic鍵值
Gaobei_UserDB=""&Gaobeidb_All&"" '設定數據名稱,建議改成.asp
Gaobei_DBTable="Gaobei_User" '設定數據表名
On error resume next
Set Conn_User=Server.CreateObject("ADODB.Connection")
ConnString="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(Gaobei_UserDB)
If Err.number<>0 Then
err.clear
set Conn_User=nothing
Response.write "數據庫連接出錯!"
Response.End
Else
Conn_User.open connstring
If err then
err.clear
set Conn_User=nothing
Response.write "數據庫連接出錯!"
Response.End
End If
End If
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -