<!--#include file="menpaiSet.asp"-->
<%

'============================ 部落通用函数============================
'获取用户等级名          
function GetUserTitle(UserGroupID)
GetUserTitle=conn.execute("select usertitle from Dv_UserGroups where UserGroupID="&UserGroupID&"")(0)
end function
'获取用户等级数字
function GetUserGroupID(UserTitle)
GetUserGroupID=conn.execute("select UserGroupID from Dv_UserGroups where UserTitle='"&UserTitle&"'")(0)
end function
'获取部落属性
function MenpaiAttri(expression)
if expression=0 or expression="" then
MenpaiAttri=Sl1
elseif expression=1 then
MenpaiAttri=Sl2
elseif expression=2 then
MenpaiAttri=Sl3
elseif expression=3 then
MenpaiAttri="<font color=navy>"&Sl4&"</font>"
else
MenpaiAttri=Sl1
end if
end function
'获取部落状态
function MenpaiState(expression)
if expression=2 then
MenpaiState="<font color=red>已注销</font>"
elseif expression=3 then
MenpaiState="<font color=red>等待审核</font>"
else
MenpaiState="正常"
end if
end function
'获取加入部落时各项属性值增减的百分率
function GetMeipai_in_rate(menpaiattri) 
if cint(menpaiattri)=1 then
GetMeipai_in_rate="" 
elseif cint(menpaiattri)=2 then
GetMeipai_in_rate=""
else
GetMeipai_in_rate="0|0|0|0|0|0|0"
end if
end function
'计算字符串长度
function strLength(str)
'功能：1个英文算1个单位长度，1个中文算2个单位长度  
       ON ERROR RESUME NEXT
       dim WINNT_CHINESE
       WINNT_CHINESE    = (len("超贴")=2)
       if WINNT_CHINESE then
          dim l,t,c
          dim i
          l=len(str)
          t=l
          for i=1 to l
             c=asc(mid(str,i,1))
             if c<0 then c=c+65536
             if c>255 then
                t=t+1
             end if
          next
          strLength=t
       else 
          strLength=len(str)
       end if
       if err.number<>0 then err.clear
end function

'-------------------------------出错信息-------------------------------
sub menpai_err() 
%>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:75%">
<tr><th height=25>部落错误信息</th></tr>
<tr><td width="100%" class=tablebody1><b>产生错误的可能原因：</b><br><br><li>您是否仔细阅读了部落说明和部落规则，可能您还没有登陆或者不具有使用当前功能的权限
<font color=red><%=errmsg%></font><br></td></tr>
<tr><td align=center height=26 class=tablebody2><a href="javascript:history.go(-1)">返回上一页</a></td></tr> 
</table>
<%
end sub

'-------------------------------成功信息-------------------------------
sub menpai_suc() 
%>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:75%">
<tr><th height=25>部落操作成功</th></tr>
<tr><td width="100%" class=tablebody1><b>操作成功</b><br><font color=navy><%=sucmsg%></font><br></td></tr>
<tr><td align=center height=26 class=tablebody2><a href=<%=Request.ServerVariables("HTTP_REFERER")%>>返回上一页</a></td></tr>
</table>
<%
end sub
%>
