<!--#include file="conn.asp"-->
<%
if session("userid")="" then
response.Write("document.write('<a href="""&replace(request.ServerVariables("PATH_INFO"),"slogin.asp","")&"login.asp"" target=""_blank""><font color=""#000000"">登陆</font></a> | <a href="""&replace(request.ServerVariables("PATH_INFO"),"slogin.asp","")&"reg.asp"" target=""_blank""><font color=""#000000"">注册</font></a>');")
else
dim rs,sql,str
set rs=server.CreateObject("adodb.recordset")
sql ="Select * from kw_user where username='"&session("userid")&"'"
rs.open sql,conn,1,1
str="<font face=""Arial""><b>"&session("userid")&" </b>"
if rs("zhuan")=1 then
str=str&"<img src="""&replace(request.ServerVariables("PATH_INFO"),"slogin.asp","")&"images/zhuan.gif"">"
end if
str=str&rs("dengji")&"("&rs("jifen")&") </font>|<a href="""&replace(request.ServerVariables("PATH_INFO"),"slogin.asp","")&"user.asp?action=tw"" target=""_blank""><font color=#000000>我的提问</font></a>|<a href="""&replace(request.ServerVariables("PATH_INFO"),"slogin.asp","")&"user.asp?action=hd"" target=""_blank""><font color=#000000>我的回答</font></a>|<a href="""&replace(request.ServerVariables("PATH_INFO"),"slogin.asp","")&"userinfo.asp"" target=""_blank""><font color=#000000>个人中心</font></a>|<a href="""&replace(request.ServerVariables("PATH_INFO"),"slogin.asp","")&"back.asp"">退出</a>"
response.Write("document.write('"&str&"');")
rs.close
set rs=nothing
closedb
end if
%>