ʱİ/Ա V1.01 for Dv 7.1.0
 
ƣʱİ/Ա
汾Ϣ1.01
ԭߣ֪
޸ߣƽ
ʱ䣺2005311


ʱ̳ı֧ʣְİ

Ҫܣ
1ԷάʱΪı׼
2ʹõ¼Ϊı׼
3Ժ̨趨ʵļ㹫ʽ
4Ժ̨ðʼʱĸȨϵ
5Ժ̨òְ׼
6Ժ̨ǷԶְİ
7Ժ̨ǱˮԱ׼
8Ժ̨ǷԶɾǱˮԱ

һļװ
1ͷļz_BmEval.aspz_BmEval_Const.aspz_BmEval_Conn.asp̳ĸĿ¼ͷAdminĿ¼µz_BmEval.aspԼIncĿ¼̳ĹĿ¼
2ͷŲװļz_BmEval_Install.aspz_BmEvalStyle.MDB̳ĸĿ¼
3ִz_BmEval_Install.aspװģԼǰݿ
4̨page_bmevalģҳ޸Ĳʾġ
5DataĿ¼µz_BMEval.MDBǲݿ⣬ԽƵĿ¼£ǱӦ޸z_BMEval_Conn.aspӡ

ã
1ں̨̳˵мӣҳ棺z_BmEval.aspҳΪz_BmEval.asp
2IDΪz_BmEval

޸ļInc/Dv_ClsMain.asp
	1ҵ
			SQL = "Select ID,Boardid From [DV_Online] Where UserID = " & UserID
	Ϊ
			SQL = "Select ID,Boardid,Lastimebk From [DV_Online] Where UserID = " & UserID
			
	2ҵ
			SQL = "Update [Dv_Online] Set Lastimebk = " & SqlNowString & ",Boardid = " & Boardid & ",Stats = '" & StatsStr & "' Where UserID = " & UserID
	±ӣ
			Dim OnlineTime
			OnlineTime=DateDiff("s",Rs(2),Now())
			If OnlineTime>0 Then
				Execute("UPDATE [Dv_User] SET OnlineTime="&OnlineTime&" WHERE UserID="&UserID&" And OnlineTime Is Null")
				Execute("UPDATE [Dv_User] SET OnlineTime=OnlineTime+"&OnlineTime&" WHERE UserID="&UserID)
			End If
	
ġ޸ļAdmin/Admin.asp
	ҵ
		menu(8,1)="<a href=plus.asp target=main>̳˵</a>@@36"
	±ӣ
		menu(8,2)="<a href=z_BMEval.asp target=main></a>@@38"
		
ע
ֻں̨Ա | Ȩ޹ӦԱȨ޺ſʹܡ

