
κβ׵ĵطϵQQ792264

1ϴmedal_seutp.aspļ̳Ŀ¼
   ʹ̳ԱִС

2ϴļ̳Ŀ¼ɾļmedal_seutp.asp
   Ӳ˵medal_index.asp
   ʹˡ޸ļDv8.2.0̳ļʡԵ

3޸̳ļdispbbs.asp
   ----------------------------------------------------------------------------------------------------------
   ҵ
	Dim AnnounceID, ReplyID, Replyid_a, AnnounceID_a, RootID_a
   ±
	Dim ExMedal,ExMedalDataList
   ----------------------------------------------------------------------------------------------------------
   ҵ
	G_UserItemQuery = "userid,username,useremail,userpost,usertopic,usersign,usersex,userface,userwidth,userheight,joindate,lastlogin,userlogins,lockuser,userclass,userwealth,userep,usercp,userpower,userdel,userisbest,usertitle,userhidden,usermoney,userticket,titlepic,usergroupid,userim,useremail" 'ѯûֶб
   ڡuseremailӣ
	,ex_medal
   ----------------------------------------------------------------------------------------------------------
   ҵ
	LoadUserListData
   ±ӣ
	GetExMedal
   ----------------------------------------------------------------------------------------------------------
   ҵ
	G_UserList	= Rs.GetRows(-1)
   ±ӣ
	ExMedalDataList	= G_UserList(29,0)
	For I=0 To UBound(G_UserList,2)
		If Not Len(G_UserList(29,I))=0 Then ExMedalDataList=ExMedalDataList & ("," & G_UserList(29,I))
	Next
   ----------------------------------------------------------------------------------------------------------
   ҵ
	Sub LoadAndParseVote(sTemplate)
   ϱӣ
	Sub GetExMedal()
		Dim Rs
		If IsNull(ExMedalDataList) Or IsEmpty(ExMedalDataList) Or Len(ExMedalDataList)=0 Then Exit Sub
		Set Rs=Dvbbs.Execute("Select id,medalname,medaltext,medalpic,medalnum,addtime From [Ex_MedalData] Where id In ("& ExMedalDataList &")")
		If Not (Rs.Eof And Rs.Bof) Then ExMedal=Rs.GetRows(-1)
	End Sub
   ----------------------------------------------------------------------------------------------------------
   ҵ
	TPL_Echo	G_UserList(27, i-1)(6)
   ±ӣ
	Case "usermedal"
		s="":s2=G_UserList(29, i-1)
		If Not IsNull(s2) And Not IsEmpty(s2) And Not Len(s2)=0 And IsArray(ExMedal) Then
			s="":s2=Split(s2,",")
			For I=0 to Ubound(s2)
				s=s&"<img src=""plus/ex_medal/pic/"&ExMedal(3,I)&""" alt="""&ExMedal(1,I)&"&#xA;"&ExMedal(2,I)&""" style=""width:20px;height:35px;margin-right:3px;margin-bottom:5px;""/>"
			Next
		End If
		TPL_Echo s
   ----------------------------------------------------------------------------------------------------------
4̨̳--ģܹ-ҳģ(page_dispbbs)--template.html(0)
   ----------------------------------------------------------------------------------------------------------
   ҵ
	<span>ȼ{$user.userclass}</span>
   ϱӣ
	<span style="width:125px;">ѫ£<br/>{$user.usermedal}</span>
   ----------------------------------------------------------------------------------------------------------

޸ģ塰<span style="width:125px;">е125Եѫ


