conn_user.asp

一套非常不错的天然气有限公司

<%
dim UserTableType,Conn_User,db_bbs
UserTableType = "LeadBBS2.88"					' "LeadBBS2.88" ----- 整合LeadBBS v2.88论坛
												' "MyPower"  -------- 不整合论坛
db_bbs="LeadBBS/Data/LeadBBS.mdb"				'数据库文件的位置
const DEF_MasterCookies = "yellowboard"			'请确认此设置与LeadBBS系统中的设置一致

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

'MY动力与LeadBBS论坛共用的用户数据表
Const db_User_Table="LeadBBS_User"

'MY动力与LeadBBS论坛共用的用户字段名
Const db_User_ID="ID"							'用户ID
Const db_User_Name="UserName"					'用户名
Const db_User_Password="Pass"					'密码
Const db_User_Email="Mail"						'Email地址
Const db_User_Sex="Sex"							'性别
Const db_User_RegDate="ApplyTime"				'注册日期
Const db_User_Icq="ICQ"							'Icq
Const db_User_QQ="OICQ"							'QQ
Const db_User_Homepage="Homepage"				'主页
Const db_User_Sign="Underwrite"					'签名
Const db_User_Question="Question"				'忘记密码的提示问题
Const db_User_Answer="Answer"					'问题答案
Const db_User_Face="FaceUrl"					'头像
Const db_User_FaceWidth="FaceWidth"				'头像宽度
Const db_User_FaceHeight="FaceHeight"			'头像高度
Const db_User_LoginTimes="Login_oknum"			'登录次数
Const db_User_LastLoginTime="LastDoingTime"		'最后登录时间
Const db_User_LastLoginIP="Login_RightIP"		'最后登录IP


'MY动力使用的用户字段名
Const db_User_Msn="msn"							'Msn
Const db_User_LockUser="lockuser"				'是否锁定用户
Const db_User_ArticleCount="ArticleCount"		'发表文章数
Const db_User_ArticleChecked="ArticleChecked"	'已审核文章数
Const db_User_UserLevel="UserPowerLevel"	'用户等级（权限）
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"			'有效期单位


'LeadBBS论坛使用的用户字段名
Const db_User_Address="Address"
Const db_User_Birthday="Birthday"
Const db_User_Sessionid="Sessionid"
Const db_User_Online="Online"
Const db_User_Prevtime="Prevtime"
Const db_User_Userphoto="Userphoto"
Const db_User_IP="IP"
Const db_User_UserLevelLeadBBS="UserLevel"
Const db_User_PrintUnderWrite="PrintUnderWrite"
Const db_User_Points="Points"
Const db_User_Officer="Officer"
Const db_User_Login_ip="Login_ip"
Const db_User_Login_falsenum="Login_falsenum"
Const db_User_Login_lastpass="Login_lastpass"
Const db_User_OnlineTime="OnlineTime"
Const db_User_AnnounceNum="AnnounceNum"
Const db_User_UserLimit="UserLimit"
Const db_User_ShowFlag="ShowFlag"
Const db_User_MessageFlag="MessageFlag"
Const db_User_NongLiBirth="NongLiBirth"
Const db_User_AnnounceTopic="AnnounceTopic"
Const db_User_AnnounceGood="AnnounceGood"
Const db_User_UploadNum="UploadNum"
Const db_User_CharmPoint="CharmPoint"
Const db_User_CachetValue="CachetValue"
Const db_User_UserTitle="UserTitle"
Const db_User_NotSecret="NotSecret"
Const db_User_LockIP="LockIP"
Const db_User_LastWriteTime="LastWriteTime"
Const db_User_ExtentFlag="ExtentFlag"
Const db_User_IDcard="IDcard"
Const db_User_MobileTel="MobileTel"
Const db_User_Telephone="Telephone"
Const db_User_TrueName="TrueName"
Const db_User_LastAnnounceID="LastAnnounceID"

Function RestoreTime(DateString)

	If isNull(DateString) Then Exit Function
	DateString = cstr(DateString)
	if len(DateString)<8 then
		RestoreTime=DateString
	else
		if len(DateString)<14 then
			RestoreTime = Mid(DateString,1,4) & "-" & Mid(DateString,5,2) & "-" & Mid(DateString,7,2)
		Else
			RestoreTime = Mid(DateString,1,4) & "-" & Mid(DateString,5,2) & "-" & Mid(DateString,7,2) & " " & Mid(DateString,9,2) & ":" & Mid(DateString,11,2) & ":" & Mid(DateString,13,2)
		End If
	end If

End Function

Function GetTimeValue(DateString)

	Dim Temp,TempStr
	If isNull(DateString) or isTrueDate(DateString) = 0  Then Exit Function
	Temp = csTr(Year(DateString))
	If len(temp)<3 Then
		Temp = left(year(date),2) & temp
	End If
	TempStr = Temp
	
	Temp = csTr(month(DateString))
	If len(temp)<2 Then
		Temp = "0" & temp
	End If
	TempStr = TempStr & Temp

	Temp = csTr(day(DateString))
	If len(temp)<2 Then
		Temp = "0" & temp
	End If
	TempStr = TempStr & Temp

	Temp = csTr(Hour(DateString))
	If len(temp)<2 Then
		Temp = "0" & temp
	End If
	TempStr = TempStr & Temp

	Temp = csTr(Minute(DateString))
	If len(temp)<2 Then
		Temp = "0" & temp
	End If
	TempStr = TempStr & Temp

	Temp = csTr(Second(DateString))
	If len(temp)<2 Then
		Temp = "0" & temp
	End If
	TempStr = TempStr & Temp

	GetTimeValue = cCur(TempStr)

End Function

Function isTrueDate(TStr)

	Dim TempDate
	TempDate = TStr
	TempDate = Replace(TempDate,"年","-")
	TempDate = Replace(TempDate,"月","-")
	TempDate = Replace(TempDate,"日"," ")
	TempDate = Replace(TempDate,"上午"," ")
	TempDate = Replace(TempDate,"下午"," ")
	TempDate = Replace(TempDate,"  "," ")
	TempDate = Replace(TempDate,"  "," ")
	
	Dim N1,N2
	N1 = inStr(TempDate,"-")
	If N1>0 Then N2 = inStrRev(TempDate,"-")
	If N1 = N2 and N1 >0 Then
		isTrueDate = 0
		Exit Function
	End If
	
	N1 = inStr(TempDate,":")
	If N1>0 Then N2 = inStrRev(TempDate,"-")
	If N1 = N2 and N1 >0 Then
		isTrueDate = 0
		Exit Function
	End If
	
	If isDate(TStr) Then
		isTrueDate = 1
	Else
		isTrueDate = 0
	End If
	
End Function

%>