<!--#include file="setting/conn.asp"--><%:cid=0
If SoonBiz.ismember Then
showuserinfo
Else:showuserform
End If:Sub showuserinfo:Htmlstr=SoonBiz.Tp(cid,pn,"info"):HtmlStr=SoonBiz.ReplaceMdb("","select * from ["& sheethead &"_user] where id="&SoonBiz.user_id,HtmlStr,"",1):HtmlStr=Replace(HtmlStr,"{$loginout}","login.asp?act=loginout"):HtmlStr=Replace(HtmlStr,"{$admin}",webdir & admindir & "admin_index.asp"):HtmlStr=Replace(HtmlStr,"{$groupname}",SoonBiz.user_groupname)
If Not SoonBiz.ismaster Then
HtmlStr=Htmlstr & "<script type=""text/javascript"">getobj(""admin"").style.display=""none""</script>"
End If:End Sub:Sub showuserform:Htmlstr=SoonBiz.Tp(cid,pn,"form"):HtmlStr=Replace(HtmlStr,"{$codestr}",SoonBiz.codestr):HtmlStr=Replace(HtmlStr,"{$action}","login.asp?act=chklogin"):End Sub:SoonBiz.TopPlus=SoonBiz.Tp(cid,pn,"css"):SoonBiz.adhead:Response.Write HtmlStr:Setallnothing
%>