<!--#include file="conn.asp"-->
<!--#include file="chklogin.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>快问用户管理</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body style="text-align:center;">
<!--#include file="top.asp"-->
<%
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql ="Select * from kw_user where username='"&session("userid")&"'"
rs.open sql,conn,1,1
%>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#62A11C">
  <tr>
    <td height="30"><font color="#FFFFFF"><b>&nbsp;&nbsp;快问 - 会员信息管理</b></font></td>
  </tr>
</table>

<table width="778" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#62A11C">
  <tr>
    <td width="168" valign="top" bgcolor="#FFFFFF">
<TABLE cellSpacing=0 cellPadding=0 width=168 border=0>
        <TR>
    <TD height=40 align=center bgcolor="#EEFFEE"><IMG src="images/userpop.gif" width="120" height="21"></TD>
        </TR>
        <TR>
          <TD height=100 align=left bgcolor="#EEFFEE">
            &nbsp;&nbsp;<FONT 
            color=#62A11C><B>欢迎您：</B><%=session("userid")%></FONT><BR>
			&nbsp;&nbsp;等 级：<%=rs("dengji")%><BR>
			&nbsp;&nbsp;积 分：<%=rs("jifen")%><BR>
          &nbsp;&nbsp;注册时间：<%=FormatDateTime(rs("regtime"),vbLongDate)%><BR></TD></TR>
		<TR>
          <TD bgColor=#62A11C height=2></TD></TR>
        <TR>
          <TD bgColor=#EDF3FE height=30 class="userleft">
            ◆ &nbsp;&nbsp;个人信息</TD></TR>
        <TR>
          <TD bgColor=#62A11C height=2></TD></TR>
        <TR>
          <TD onmouseover="this.style.backgroundColor='#ffffff'" 
          onmouseout="this.style.backgroundColor=''" bgColor=#EEFFEE 
            height=28 class="userleft2"><a href="userinfo.asp">· &nbsp;信息修改</a></TD>
        </TR>
        <TR>
          <TD bgColor=#cc9966 height=1></TD></TR>
        <TR>
          <TD onmouseover="this.style.backgroundColor='#ffffff'" 
          onmouseout="this.style.backgroundColor=''" bgColor=#EEFFEE 
            height=28 class="userleft2"><a href="myquestion.asp" target="_blank">· &nbsp;我要提问</a></TD>
        </TR>
        <TR>
          <TD bgColor=#cc9966 height=1></TD></TR>
        <TR>
          <TD onmouseover="this.style.backgroundColor='#ffffff'" 
          onmouseout="this.style.backgroundColor=''" bgColor=#EEFFEE 
            height=28 class="userleft2"><a href="user.asp?action=tw">· &nbsp;我的问题</a></TD>
        </TR>
        <TR>
          <TD bgColor=#cc9966 height=1></TD>
        </TR>
        <TR>
          <TD onmouseover="this.style.backgroundColor='#ffffff'" 
          onmouseout="this.style.backgroundColor=''" bgColor=#EEFFEE 
            height=28 class="userleft2"><a href="user.asp?action=hd">· &nbsp;我的回答</a></TD>
        </TR>
        <%if rs("zhuan")=1 then%>
		<TR>
          <TD bgColor=#cc9966 height=1></TD>
        </TR>
		<TR>
          <TD onmouseover="this.style.backgroundColor='#ffffff'" 
          onmouseout="this.style.backgroundColor=''" bgColor=#EEFFEE 
            height=28 class="userleft2"><a href="#" onClick="window.open('usermark.asp?id=<%=rs("id")%>','popdown','width=500,height=400,top=100,left=100')">· &nbsp;修改签名</a></TD>
        </TR>		
		<%end if%>
        <TR>
          <TD bgColor=#62A11C height=2></TD></TR>
        <TR>
          <TD bgColor=#EDF3FE height=30 class="userleft">
            ◆ &nbsp;&nbsp;快秀健康</A></TD></TR>
        <TR>
          <TD bgColor=#62A11C height=2></TD></TR>
        <TR>
          <TD onmouseover="this.style.backgroundColor='#ffffff'" 
          onmouseout="this.style.backgroundColor=''" bgColor=#EEFFEE 
            height=28 class="userleft2"><a href="/bbs" target="_blank">· &nbsp;快秀论坛</a></TD>
        </TR>
        <TR>
          <TD bgColor=#cc9966 height=1></TD></TR>
        <TR>
          <TD onmouseover="this.style.backgroundColor='#ffffff'" 
          onmouseout="this.style.backgroundColor=''" bgColor=#EEFFEE 
            height=28 class="userleft2"><a href="/gq" target="_blank">· &nbsp;供求信息</a></TD>
        </TR>
        <TR>
          <TD bgColor=#cc9966 height=1></TD></TR>
        <TR>
          <TD onmouseover="this.style.backgroundColor='#ffffff'" 
          onmouseout="this.style.backgroundColor=''" bgColor=#EEFFEE 
            height=28 class="userleft2"><a href="/cs" target="_blank">· &nbsp;健康自测</a></TD>
        </TR>
        <TR>
          <TD bgColor=#cc9966 height=1></TD></TR>
        <TR>
          <TD 
            height=28 bgcolor="#EEFFEE" class="userleft2" onmouseover="this.style.backgroundColor='#ffffff'" 
          onmouseout="this.style.backgroundColor=''"><a href="/jy" target="_blank">· &nbsp;就医指南</a></TD>
        </TR>
        <TR>
          <TD bgColor=#62A11C height=2></TD></TR>
        <TR>
          <TD bgColor=#EDF3FE height=30 class="userleft">
			◆ &nbsp;&nbsp;修改密码</TD>
        </TR>
        <TR>
          <TD bgColor=#62A11C height=2></TD></TR>
		   <TR>
          <TD onmouseover="this.style.backgroundColor='#ffffff'" 
          onmouseout="this.style.backgroundColor=''" bgColor=#EEFFEE 
            height=28 class="userleft2"><a style="cursor:hand " onClick="window.open('changpsd.asp','','status=no,scrollbars=no,top=240,left=280,width=450,height=200')">· &nbsp;<font color="#555555">确定修改</font></a></TD>
		   </TR>
        <TR>
          <TD bgColor=#62A11C height=2></TD></TR>
        <TR>
          <TD bgColor=#EDF3FE height=30 class="userleft">
            ◆ &nbsp;<a href="back.asp">退出管理</a></TD>
        </TR>
        <TR>
    <TD bgColor=#62A11C height=1></TD></TR></TABLE>
	</td>
    <td valign="top" bgcolor="#FFFFFF">
<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr align="center">
    <td height="60"><a href="user.asp?action=tw"><img src="images/tw.gif" width="18" height="22" border="0" align="absmiddle">&nbsp;我提出的问题</a></td>
    <td><a href="user.asp?action=hd"><img src="images/hd.gif" width="28" height="18" border="0" align="absmiddle">&nbsp;我回答的问题</a></td>
    <td><a href="user.asp?action=cn"><img src="images/cn.gif" width="24" height="30" border="0" align="absmiddle">&nbsp;被采纳的问题</a></td>
    <td><a href="myquestion.asp" target="_blank"><img src="images/ask.gif" width="22" height="29" border="0" align="absmiddle">&nbsp;我还要提问</a></td>
  </tr>
</table>
<%
dim action,i
action=request("action")
set rs=server.CreateObject("adodb.recordset")

if action="tw" then
sql ="Select * from kw_wt where userid='"&session("userid")&"' order by id desc"
rs.open sql,conn,1,1
call tw()
elseif action="hd" then
sql ="Select * from kw_hd where userid='"&session("userid")&"' order by id desc"
rs.open sql,conn,1,1
call hd()
elseif action="cn" then
sql ="Select * from kw_hd where userid='"&session("userid")&"' and zt='2' order by id desc"
rs.open sql,conn,1,1
call cn()
end if

sub tw()
if rs.eof and rs.bof then
response.Write("<font color=red>&nbsp;&nbsp;* 您还没有提问 *</font>")
else
%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#88C488">
  <tr align="center" bgcolor="#E6F7FF">
    <td>标 题</td>
    <td width="8%" bgcolor="#E6F7FF">悬赏分</td>
    <td width="7%" bgcolor="#E6F7FF">回复</td>
    <td width="7%">状态</td>
    <td width="20%">操作</td>
  </tr>
          <%
		  dim page
		  rs.pagesize=15
          page=clng(Request.QueryString("page"))
          if page<1 then page=1
          if page>rs.pagecount then page=rs.pagecount
          rs.absolutepage=page
          for i=1 to rs.pagesize
		       if rs.eof then
		       exit for
		       end if
		  %>
  <tr bgcolor="#FFFFFF">
    <td>&nbsp;&nbsp;· &nbsp;<a href="show/<%=rs("wt_filename")%>" target="_blank"><%=rs("bt")%></a><font color="#999999"> (<%=FormatDateTime(rs("twtime"),vbshortDate)%>)</font></td>
    <td align="center"><%=rs("xsf")%></td>
    <td align="center">
	<%
	dim rs1,sql1
	set rs1=server.CreateObject("adodb.recordset")
    sql1 ="Select * from kw_hd where hdques='"&rs("wt_filename")&"'"
    rs1.open sql1,conn,1,1
	response.Write(rs1.recordcount)
	rs1.close
	set rs1=nothing
	%>
	</td>
    <td align="center">
	<%if rs("zt")=1 then%>
	<img src="images/no_point.gif">
	<%elseif rs("zt")=2 then%>
	<img src="images/yes_point.gif">
	<%elseif rs("zt")=3 then%>
	<img src="images/wu_point.gif">
	<%end if%>
	</td>
    <td align="center" bgcolor="#FFFFFF">
	<%if rs("gq")=2 then%>
	<font color="#FF0000">问题过期,可操作</font>
	<%elseif rs("zt")=1 then%>
<a href="#" onClick="window.open('memo.asp?id=<%=rs("id")%>&cz=bc','popdown','toolbar=no, status=no,menubar=no, scrollbars=no,resizable=no,width=468,height=240,left=200,top=50')">问题补充</a> <a href="#" onClick="window.open('memo.asp?id=<%=rs("id")%>&cz=tg','popdown','width=450,height=200,top=50,left=200')">提高悬赏</a>
    <%elseif rs("zt")=2 then%>
	<font color="#999999">已解决，无法操作</font>
	<%elseif rs("zt")=3 then%>
	<font color="#33CCFF">无满意答案</font>
	<%end if%>
	</td>
  </tr>
<%
rs.movenext
next
%>
  <tr align="center" bgcolor="#E6F7FF">
    <td colspan="5">
	共<%=rs.recordcount%>条&nbsp;&nbsp;共<%=rs.pagecount%>页&nbsp;&nbsp;
	<%if rs.pagecount>1 then%>
	<a href="user.asp?action=<%=action%>&page=1">首页</a>&nbsp;&nbsp;
	<a href="user.asp?action=<%=action%>&page=<%=page-1%>">上页</a>&nbsp;&nbsp;
	<a href="user.asp?action=<%=action%>&page=<%=page+1%>">下页</a>&nbsp;&nbsp;
	<a href="user.asp?action=<%=action%>&page=<%=rs.pagecount%>">尾页</a>
	<%end if%>
	</td>
    </tr>
</table>
<%
end if
end sub

sub hd()
if rs.eof and rs.bof then
response.Write("<font color=red>&nbsp;&nbsp;* 您还没有回答 *</font>")
else
%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#88C488">
  <tr align="center" bgcolor="#E6F7FF">
    <td>标 题</td>
    <td width="8%" bgcolor="#E6F7FF">悬赏分</td>
    <td width="7%">状态</td>
    </tr>
          <%
		  dim page
		  rs.pagesize=15
          page=clng(Request.QueryString("page"))
          if page<1 then page=1
          if page>rs.pagecount then page=rs.pagecount
          rs.absolutepage=page
          for i=1 to rs.pagesize
		       if rs.eof then
		       exit for
		       end if
		  %>
  <tr bgcolor="#FFFFFF">
    <td>&nbsp;&nbsp;· &nbsp;<a href="show/<%=rs("hdques")%>" target="_blank">
	<%
	dim rs1,sql1
	set rs1=server.CreateObject("adodb.recordset")
    sql1 ="Select * from kw_wt where wt_filename='"&rs("hdques")&"'"
    rs1.open sql1,conn,1,1
	%>
	<%=rs1("bt")%>
	</a><font color="#999999"> (<%=FormatDateTime(rs1("twtime"),vbshortDate)%>)</font></td>
    <td align="center"><%=rs1("xsf")%></td>
    <td align="center">
	<%if rs1("zt")=1 then%>
	<img src="images/no_point.gif">
	<%elseif rs1("zt")=2 then%>
	<img src="images/yes_point.gif">
	<%elseif rs1("zt")=3 then%>
	<img src="images/wu_point.gif">
	<%end if%>
	</td>
    </tr>
<%
rs.movenext
next
%>
  <tr align="center" bgcolor="#E6F7FF">
    <td colspan="3">
	共<%=rs.recordcount%>条&nbsp;&nbsp;共<%=rs.pagecount%>页&nbsp;&nbsp;
	<%if rs.pagecount>1 then%>
	<a href="user.asp?action=<%=action%>&page=1">首页</a>&nbsp;&nbsp;
	<a href="user.asp?action=<%=action%>&page=<%=page-1%>">上页</a>&nbsp;&nbsp;
	<a href="user.asp?action=<%=action%>&page=<%=page+1%>">下页</a>&nbsp;&nbsp;
	<a href="user.asp?action=<%=action%>&page=<%=rs.pagecount%>">尾页</a>
	<%end if%>
	</td>
    </tr>
</table>
<%
end if
end sub
sub cn()
if rs.eof and rs.bof then
response.Write("<font color=red>&nbsp;&nbsp;* 您还没有被采纳 *</font>")
else
%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#88C488">
  <tr align="center" bgcolor="#E6F7FF">
    <td>标 题</td>
    <td width="8%" bgcolor="#E6F7FF">悬赏分</td>
    <td width="7%">状态</td>
    </tr>
          <%
		  dim page
		  rs.pagesize=15
          page=clng(Request.QueryString("page"))
          if page<1 then page=1
          if page>rs.pagecount then page=rs.pagecount
          rs.absolutepage=page
          for i=1 to rs.pagesize
		       if rs.eof then
		       exit for
		       end if
		  %>
  <tr bgcolor="#FFFFFF">
    <td>&nbsp;&nbsp;· &nbsp;<a href="show/<%=rs("hdques")%>" target="_blank">
	<%
	dim rs1,sql1
	set rs1=server.CreateObject("adodb.recordset")
    sql1 ="Select * from kw_wt where wt_filename='"&rs("hdques")&"'"
    rs1.open sql1,conn,1,1
	%>
	<%=rs1("bt")%>
	</a><font color="#999999"> (<%=FormatDateTime(rs1("twtime"),vbshortDate)%>)</font></td>
    <td align="center"><%=rs1("xsf")%></td>
    <td align="center">
	<%if rs1("zt")=1 then%>
	<img src="images/no_point.gif">
	<%elseif rs1("zt")=2 then%>
	<img src="images/yes_point.gif">
	<%elseif rs1("zt")=3 then%>
	<img src="images/wu_point.gif">
	<%end if%>
	</td>
    </tr>
<%
rs.movenext
next
%>
  <tr align="center" bgcolor="#E6F7FF">
    <td colspan="3">
	共<%=rs.recordcount%>条&nbsp;&nbsp;共<%=rs.pagecount%>页&nbsp;&nbsp;
	<%if rs.pagecount>1 then%>
	<a href="user.asp?action=<%=action%>&page=1">首页</a>&nbsp;&nbsp;
	<a href="user.asp?action=<%=action%>&page=<%=page-1%>">上页</a>&nbsp;&nbsp;
	<a href="user.asp?action=<%=action%>&page=<%=page+1%>">下页</a>&nbsp;&nbsp;
	<a href="user.asp?action=<%=action%>&page=<%=rs.pagecount%>">尾页</a>
	<%end if%>
	</td>
    </tr>
</table>
<%
end if
end sub
rs.close
set rs=nothing
closedb
%>
	</td>
  </tr>
</table>
<!--#include file="end.asp"-->
</body>
</html>