<!-- #Include File="../Include/Skin.asp" -->
<!-- #Include File="../Include/Inc_md5.asp" -->
<!-- #Include File="../Include/Inc_pay.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

Index_Url="Index"
tit_fir="用户中心"
Dim dim_face
    Cls.ReadPage("User_Main")

Function User_Medal_Grade(Medal)
	Dim MedalName,MedalRemark,Ti,Tii,Tmp
	Medal=Split(Medal,"|")
	For Ti=0 To Ubound(Medal)
		MedalName = Split(Cls.Web_Medal(0),",")
		MedalRemark = Split(Cls.Web_Medal(1),",")
		For Tii=0 To ubound(MedalName)
			If Cint(Medal(Ti))=Tii+1 Then User_Medal_Grade=User_Medal_Grade&"<img src="&Cls.Web_Dir&"Images/Medal/Medal"&Tii+1&".gif title='"&MedalName(Tii)&vbcrlf&MedalRemark(Tii)&"' align=absMiddle>&nbsp;"	
		Next
		Erase MedalName
		Erase MedalRemark
	Next
	Erase Medal
End Function
%>
