conn_user.asp

来自「适适合做个人、学校、公司、政府等站点 一个灵活性很好的网站原代码」· ASP 代码 · 共 59 行

<%
    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="Gaobei_V1.0" '主cookic键值
    Gaobei_UserDB="Database/GaoBeiSys_user.mdb" '设定数据名称
    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
%>