conn_user.asp

夏茂政府网站

<%
    Dim zf11_UserName
    Dim zf11_UserPassword
    Dim zf11_UserSex
    Dim zf11_UserEmail
    Dim zf11_UserQuesion
    Dim zf11_UserAnswer
    Dim zf11_UserSign
    Dim zf11_UserBirthday
    Dim zf11_JoinDate
    Dim zf11_UserGrade
    Dim zf11_LastLogin
    Dim zf11_UserMoney
    Dim zf11_LoginNum
    Dim zf11_UserIP
    Dim zf11_Sys
    Dim zf11_UserDB
    Dim Conn_User
    Dim ConnString
    Dim zf11_User_DB
    Dim zf11_DBTable
    Dim zf11_IsActive
    zf11_IsActive="IsActive"
    zf11_UserID="UserID"
    zf11_UserName="UserName"
    zf11_UserPassword="UserPassword"
    zf11_UserSex="UserSex"
    zf11_UserEmail="UserEmail"
    zf11_UserQuesion="UserQuesion"
    zf11_UserAnswer="UserAnswer"
    zf11_UserSign="UserSign"
    zf11_UserBirthday="UserBirthday"
    zf11_JoinDate="JoinDate" 
    zf11_UserGrade="UserGrade"
    zf11_LastLogin="LastLogin"
    zf11_UserMoney="UserMoney" 
    zf11_LoginNum="LoginNum" 
    zf11_UserIP="UserIP"
    zf11_Sys="zf11_V1.0" '主cookic键值
    zf11_UserDB=""&zf11db_All&"" '设定数据名称,建议改成.asp
    zf11_DBTable="zf11_User" '设定数据表名
    On error resume next
    Set Conn_User=Server.CreateObject("ADODB.Connection")
    ConnString="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(zf11_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
%>