conn_user.asp

为我们公司使用的oa系统

<%
dim UserTableType,Conn_User,db_bbs
UserTableType = "Dvbbs6.0"					  
											  
'db_bbs="bbs/data/harry_dvbbs6.mdb"      
'Set Conn_User = Server.CreateObject("ADODB.Connection")
'Conn_User.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db_bbs)

sub CloseConn_User()
	Conn_User.close
	set Conn_User=nothing
end sub

Const db_User_Table="[User]"

Const db_User_ID="UserID"						
Const db_User_Name="UserName"					
Const db_User_Sex="Sex"							
Const db_User_Email="UserEmail"					
Const db_User_Homepage="homepage"				
Const db_User_QQ="Oicq"							
Const db_User_Icq="icq"							
Const db_User_Msn="msn"							
Const db_User_Password="UserPassword"			
Const db_User_Question="Quesion"				
Const db_User_Answer="Answer"					
Const db_User_Sign="sign"						
Const db_User_Face="face"						
Const db_User_FaceWidth="width"					
Const db_User_FaceHeight="height"				
Const db_User_RegDate="addDate"					
Const db_User_LoginTimes="logins"				
Const db_User_LastLoginTime="lastlogin"			
Const db_User_LastLoginIP="UserLastIP"			
Const db_User_UserClass="userclass"				


Const db_User_LockUser="lockuser"				
Const db_User_ArticleCount="ArticleCount"		
Const db_User_ArticleChecked="ArticleChecked"	
Const db_User_UserLevel="UserLevel"				
Const db_User_UserPoint="UserPoint"				
Const db_User_ChargeType="ChargeType"			
Const db_User_BeginDate="BeginDate"				
Const db_User_Valid_Num="Valid_Num"				
Const db_User_Valid_Unit="Valid_Unit"			


Const db_User_BbsType="bbstype"
Const db_User_Article="Article"
Const db_User_UserGroup="UserGroup"
Const db_User_UserWealth="userWealth"
Const db_User_UserEP="userEP"
Const db_User_UserCP="userCP"
Const db_User_Title="title"
Const db_User_Showre="showre"
Const db_User_Reann="reann"
Const db_User_UserCookies="usercookies"
Const db_User_Birthday="birthday"
Const db_User_UserPhoto="UserPhoto"
Const db_User_UserPower="UserPower"
Const db_User_UserDel="UserDel"
Const db_User_UserIsBest="UserIsBest"
Const db_User_UserInfo="UserInfo"
Const db_User_UserSetting="UserSetting"
Const db_User_UserGroupID="UserGroupID"
Const db_User_TitlePic="TitlePic"
%>