conn_user.asp

为中小型企业与欲创业的个人提供一个合适的企业型网站

<%
    Dim Tyi86_UserName
    Dim Tyi86_UserPassword
    Dim Tyi86_UserSex
    Dim Tyi86_UserEmail
    Dim Tyi86_UserQuesion
    Dim Tyi86_UserAnswer
    Dim Tyi86_UserSign
    Dim Tyi86_UserBirthday
    Dim Tyi86_JoinDate
    Dim Tyi86_UserGrade
    Dim Tyi86_LastLogin
    Dim Tyi86_UserMoney
    Dim Tyi86_LoginNum
    Dim Tyi86_UserIP
    Dim Tyi86_Sys
    Dim Tyi86_UserDB
    Dim Conn_User
    Dim ConnString
    Dim Tyi86_User_DB
    Dim Tyi86_DBTable
    Dim Tyi86_IsActive
    Tyi86_IsActive="IsActive"
    Tyi86_UserID="UserID"
    Tyi86_UserName="UserName"
    Tyi86_UserPassword="UserPassword"
    Tyi86_UserSex="UserSex"
    Tyi86_UserEmail="UserEmail"
    Tyi86_UserQuesion="UserQuesion"
    Tyi86_UserAnswer="UserAnswer"
    Tyi86_UserSign="UserSign"
    Tyi86_UserBirthday="UserBirthday"
    Tyi86_JoinDate="JoinDate" 
    Tyi86_UserGrade="UserGrade"
    Tyi86_LastLogin="LastLogin"
    Tyi86_UserMoney="UserMoney" 
    Tyi86_LoginNum="LoginNum" 
    Tyi86_UserIP="UserIP"
    Tyi86_Sys="Tyi86_V1.0" '主cookic键值
    Tyi86_UserDB=""&Tyi86db_All&"" '设定数据名称,建议改成.asp
    Tyi86_DBTable="Tyi86_User" '设定数据表名
    On error resume next
    Set Conn_User=Server.CreateObject("ADODB.Connection")
    ConnString="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(Tyi86_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
%>