<%
function touxianvalue(jingyuan) 
  if jingyuan<=50 then
	 touxian="小野人"
  elseif jingyuan>50 and jingyuan<=150 then
	 touxian="野人"
  elseif jingyuan>150 and jingyuan<=500 then
	 touxian="土人"
  elseif jingyuan>500 and jingyuan<=1000 then
	 touxian="咕噜"
  elseif jingyuan>1000 and jingyuan<=2000 then
	 touxian="大咕噜"
  elseif jingyuan>2000 and jingyuan<=4000 then
	 touxian="咕噜队长"
  elseif jingyuan>4000 and jingyuan<=8000 then
	 touxian="初级守卫"
  elseif jingyuan>8000 and jingyuan<=10000 then
	 touxian="守卫队长"
  elseif jingyuan>10000 and jingyuan<=11000 then
	 touxian="斗士"
  elseif jingyuan>11000 and jingyuan<=12000 then
	 touxian="大斗士"
  elseif jingyuan>12000 and jingyuan<=14000 then
	 touxian="斗士长"
  elseif jingyuan>14000 and jingyuan<=16000 then
	 touxian="骑士"
  elseif jingyuan>16000 and jingyuan<=18000 then
	 touxian="青铜骑士"
  elseif jingyuan>18000 and jingyuan<=20000 then
	 touxian="白银骑士"
  elseif jingyuan>20000 and jingyuan<=22000 then
	 touxian="黄金骑士"
  elseif jingyuan>22000 and jingyuan<=24000 then
	 touxian="圣骑士"
  elseif jingyuan>24000 and jingyuan<=26000 then
	 touxian="神秘头衔"
  elseif jingyuan>26000 and jingyuan<=28000 then
	 touxian="神秘头衔"
  elseif jingyuan>28000 then
	 touxian="神秘头衔"					 					 					 					 					 					 					 					 					 
  end if
	 touxianvalue=touxian
end function
'#############################################
function jibievalue(jingyuan)
  if jingyuan<=50 then
	 jibie="<img src=userheadimg/class1.gif width=63 height=10>"
  elseif jingyuan>50 and jingyuan<=150 then
	 jibie="<img src=userheadimg/class2.gif width=63 height=10>"
  elseif jingyuan>150 and jingyuan<=500 then
	 jibie="<img src=userheadimg/class3.gif width=63 height=10>"
  elseif jingyuan>500 and jingyuan<=1000 then
	 jibie="<img src=userheadimg/class4.gif width=63 height=10>"
  elseif jingyuan>1000 and jingyuan<=2000 then
	 jibie="<img src=userheadimg/class5.gif width=63 height=10>"
  elseif jingyuan>2000 and jingyuan<=4000 then
	 jibie="<img src=userheadimg/class6.gif width=63 height=10>"
  elseif jingyuan>4000 and jingyuan<=8000 then
	 jibie="<img src=userheadimg/class7.gif width=63 height=10>"
  elseif jingyuan>8000 and jingyuan<=10000 then
	 jibie="<img src=userheadimg/class8.gif width=63 height=10>"
  elseif jingyuan>10000 and jingyuan<=11000 then
	 jibie="<img src=userheadimg/class9.gif width=63 height=10>"
  elseif jingyuan>11000 and jingyuan<=12000 then
	 jibie="<img src=userheadimg/class10.gif width=63 height=10>"
  elseif jingyuan>12000 and jingyuan<=14000 then
	 jibie="<img src=userheadimg/class11.gif width=63 height=10>"
  elseif jingyuan>14000 and jingyuan<=16000 then
	 jibie="<img src=userheadimg/class12.gif width=63 height=10>"
  elseif jingyuan>16000 and jingyuan<=18000 then
	 jibie="<img src=userheadimg/class13.gif width=63 height=10>"
  elseif jingyuan>18000 and jingyuan<=20000 then
	 jibie="<img src=userheadimg/class14.gif width=63 height=10>"
  elseif jingyuan>20000 and jingyuan<=22000 then
	 jibie="<img src=userheadimg/class15.gif width=63 height=10>"
  elseif jingyuan>22000 and jingyuan<=24000 then
	 jibie="<img src=userheadimg/class16.gif width=63 height=10>"
  elseif jingyuan>24000 and jingyuan<=26000 then
	 jibie="<img src=userheadimg/class17.gif width=63 height=10>"
  elseif jingyuan>26000 and jingyuan<=28000 then
	 jibie="<img src=userheadimg/class18.gif width=63 height=10>"
  elseif jingyuan>28000 then
	 jibie="<img src=userheadimg/class19.gif width=63 height=10>"					 					 					 					 					 					 					 					 					 
  end if
	 jibievalue=jibie
end function
'文字水印函数
Function imgtourl(url,imgpath)
'如果支持水印组件就加入水印功能imgpath=formPath&fname
		If IsObjInstalled("Persits.Jpeg") Then
           Set Jpeg = Server.CreateObject("Persits.Jpeg")
		   Jpeg.RegKey = "48958-77556-02411" '水印组件注册码
           Jpeg.Open Server.mappath(imgpath)
           Jpeg.Canvas.Font.Size = 25  '//水印文字的大小。
           Jpeg.Canvas.Font.ShadowColor = &H000000 '//水印文字的阴影色彩。

           Jpeg.Canvas.Font.ShadowXoffset = 1  '//水印文字阴影向右偏移的像素值，输入负值则向左偏移。
        
		   Jpeg.Canvas.Font.ShadowYoffset = 1  '//水印文字阴影向下偏移的像素值，输入负值则向右偏移。
		
           Jpeg.Canvas.Font.Color = &HFFFFFF 'FF0000水印文字的颜色，&H后面输入色彩值
           Jpeg.Canvas.Font.Family = "Courier New" '水印文字的字体名称(Arial)
		   Jpeg.Canvas.Font.Bold = True
           Jpeg.Canvas.Print 10, 10, url

           Jpeg.Canvas.Pen.Color = &Hffffff '000000
           Jpeg.Canvas.Pen.Width = 0
           Jpeg.Canvas.Brush.Solid = False
           Jpeg.Canvas.Bar 0, 0, Jpeg.Width, Jpeg.Height '水印文字的起始坐标（像素）

           Jpeg.Save Server.mappath(imgpath)
		else
		   response.write "你的系统不支持水印组件,请先<a href=http://www.ftbbs.cn/soft/AspJpeg.rar>下载</a>安装!"
		   response.End()
		end if
		'水印功能结束
End Function
'logo水印函数
Function imgtologo(imgpath)
'如果支持水印组件就加入图片水印功能imgpath=formPath&fname
		If IsObjInstalled("Persits.Jpeg") Then
           Set Jpeg = Server.CreateObject("Persits.Jpeg")
		   Jpeg.RegKey = "48958-77556-02411" '水印组件注册码
           Jpeg.Open Server.mappath(imgpath)
           '添加图片水印
           Set Logo = Server.CreateObject("Persits.Jpeg")
		   Logo.RegKey = "48958-77556-02411" 
           Logo.Open Server.MapPath("images/tmlogo.gif") 'tmlogo.gif你的透明logo
           Jpeg.DrawImage Jpeg.width-112, Jpeg.height-50, Logo, 0.3, &HFFFFFF '0.3为透明程度,112,50为透明logo的宽高,透明颜色FFFFFF
           Jpeg.Save Server.mappath(imgpath)
		else
		   response.write "你的系统不支持水印组件,请先<a href=http://www.ftbbs.cn/soft/AspJpeg.rar>下载</a>安装!"
		   response.End()
		end if
		'水印功能结束
End Function
%>