|
<%Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("sjjh_usermdb")
rs.open "Select * from 用户 where 姓名='" & sjjh_name &"'",conn,3,3
wgj=rs("武功加")
nlj=rs("内力加")
tlj=rs("体力加")
%> 姓名:<%=rs("姓名")%> 性别:<%=rs("性别")%> 配偶:<%=rs("配偶")%> 情人:<%=rs("情人")%> 职业:<%=rs("职业")%> 门派:<%=rs("门派")%> 身份:<%=rs("身份")%> 等级:<%=rs("等级")%>级 管理:<%=rs("grade")%>级 金卡:<%=rs("会员金卡")%>元 金币:<%=rs("金币")%>个 银两:<%=rs("银两")%>两 存款:<%=rs("存款")%>两 攻击:<%=rs("攻击")%> 防御:<%=rs("防御")%> 道德:<%=rs("道德")%> 魅力:<%=rs("魅力")%> 总杀人:<%=rs("总杀人")%>个 体力: <%if int((rs("体力")/(rs("等级")*sjjh_tlsx+5260+tlj))*100)<100 then abc=int(int((rs("体力")/(rs("等级")*sjjh_tlsx+5260+tlj))*100)/100)+1 fi="chat/img/"&abc&".gif"%>  title="<%=rs("体力")%><%if sjjh_sx=1 then%>/<%=rs("等级")*sjjh_tlsx+5260+tlj%><%end if%>">
<%else%>
 <%if sjjh_sx=1 then%>/<%=rs("等级")*sjjh_tlsx+5260+tlj%><%end if%>">
<%end if%>
内力: <%if int((rs("内力")/(rs("等级")*sjjh_nlsx+2000+tlj))*100)<100 then abc=int(int((rs("内力")/(rs("等级")*sjjh_nlsx+2000+tlj))*100)/100)+1 fi="chat/img/"&abc&".gif"%> title="<%=rs("内力")%><%if sjjh_sx=1 then%>/<%=rs("等级")*sjjh_nlsx+2000+tlj%><%end if%>">
<%else%>
<%if sjjh_sx=1 then%>/<%=rs("等级")*sjjh_nlsx+2000+tlj%><%end if%>">
<%end if%>
武功: <%if int((rs("武功")/(rs("等级")*sjjh_wgsx+3800+tlj))*100)<100 then abc=int(int((rs("武功")/(rs("等级")*sjjh_wgsx+3800+tlj))*100)/100)+1 fi="chat/img/"&abc&".gif"%> title="<%=rs("武功")%><%if sjjh_sx=1 then%>/<%=rs("等级")*sjjh_wgsx+3800+tlj%><%end if%>">
<%else%>
<%if sjjh_sx=1 then%>/<%=rs("等级")*sjjh_wgsx+3800+tlj%><%end if%>">
<%end if%> |