<!--#include file="QvodCms_Conn.asp"-->
<!--#include file="QvodCms_Check.asp"-->
<%
Call OpenConn()
Dim action,uid
sql="":S1="":S2="":S3=""
action=Trim(Request.QueryString("action"))
uid=clng(Request.QueryString("uid"))

if uid<=0 then
   Call QvpdCms_Err("必要参数不能为空！")
   Response.End
End if
%>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<TITLE>用户管理页面</TITLE>
<link href="skins/css/JaJa_main.css" rel="stylesheet" type="text/css" />
<script language = "javaScript" src = "QvodCms_All.js" type="text/javascript"></script>
</head>
<body>

<%
If action="userinfo" Then
Set rs = Server.CreateObject("adodb.recordset")
sql = "Select top 1 * from qvodcms_user where uid>0  and uid="&uid&""
rs.Open sql, Conn, 1, 1
If not(rs.bof And rs.eof) Then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<th colspan=2 style="text-align:center;"><table width="100%" border="0">
    <tr>
      <td align="center"><b>查看用户(<%=rs("uname")%>)资料</b></td>
      </tr>
  </table>
<!-- --></th>
</tr>
<tr bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#E3E1D7'" onMouseOut="javascript:this.bgColor='#FFFFFF'" style="text-align:center;">
  <td width="156" >真实姓名：</td>
  <td width="819"  align="left"><%=rs("ulc")%></td>
  </tr>
  <tr bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#E3E1D7'" onMouseOut="javascript:this.bgColor='#FFFFFF'" style="text-align:center;">
  <td width="156" >访问调查：</td>
  <td width="819"  align="left"><font color="#FF0000"><%=rs("uwww")%></font></td>
  </tr>
  <tr bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#E3E1D7'" onMouseOut="javascript:this.bgColor='#FFFFFF'" style="text-align:center;">
  <td width="156" >用户积分：</td>
  <td width="819"  align="left"><font color="#FF0000"><b><%=rs("ujf")%></b>分</font></td>
  </tr>
  <tr bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#E3E1D7'" onMouseOut="javascript:this.bgColor='#FFFFFF'" style="text-align:center;">
  <td width="156" >服务时间：</td>
  <td width="819"  align="left" style="color:#FF0000"><%uservip()%></td>
  </tr>
  <tr bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#E3E1D7'" onMouseOut="javascript:this.bgColor='#FFFFFF'" style="text-align:center;">
  <td width="156" >联系 Q Q：</td>
  <td width="819"  align="left"><%=rs("uqq")%></td>
  </tr>
  <tr bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#E3E1D7'" onMouseOut="javascript:this.bgColor='#FFFFFF'" style="text-align:center;">
  <td width="156" >保护问题：</td>
  <td width="819"  align="left"><%=rs("uask")%></td>
  </tr>
   <tr bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#E3E1D7'" onMouseOut="javascript:this.bgColor='#FFFFFF'" style="text-align:center;">
  <td width="156" >保护答案：</td>
  <td width="819"  align="left"><font color="#FF0000"><%=rs("uok")%></font></td>
  </tr>
  <tr bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#E3E1D7'" onMouseOut="javascript:this.bgColor='#FFFFFF'" style="text-align:center;">
  <td width="156" >注册时间：</td>
  <td width="819"  align="left"><font color="#FF0000"><b><%=rs("utime")%></b></font></td>
  </tr>
   <tr bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#E3E1D7'" onMouseOut="javascript:this.bgColor='#FFFFFF'" style="text-align:center;">
  <td width="156" >注册 I P：</td>
  <td width="819"  align="left"><font color="#FF0000"><b><%=rs("uip")%></b></font></td>
  </tr>
<tr >
  <td colspan="2" class="td2" style="text-align:left; height:30px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center"><input name='submit1' type='submit' value='关闭窗口' onClick="javascript:window.close(); return false;">&nbsp;</td>
    </tr>
</table></td>
  </tr>
</table>
<%
Else
    Call QvodCms_Err("暂无数据！")
End If
rs.Close
Set rs=nothing
Else
Set rs = Server.CreateObject("adodb.recordset")
sql = "Select top 1 * from qvodcms_user where uid>0  and uid="&uid&""
rs.Open sql, Conn, 1, 1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<th colspan=2 style="text-align:center;"><table width="100%" border="0">
    <tr>
      <td align="center"><b>查看用户(<%=rs("uname")%>)资料</b></td>
      </tr>
  </table>
<!-- --></th>
</tr>
<tr bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#E3E1D7'" onMouseOut="javascript:this.bgColor='#FFFFFF'" style="text-align:center;">
  <td width="756"  align="left" style="padding-left:12px;">下线用户：</td>
  <td width="202"  align="center">推广时间</td>
  </tr>
  <%
  page=QvodCms_CLng(Request.QueryString("page")):If page<=0 or page="" Then page=1'初始化分页参数
  pagelink="qvodcms_user_info.asp?action=usernext&uid="&uid&""'分页路径
  Set rs = Server.CreateObject("adodb.recordset")
  rs.open"select jtime,jfidd From qvodcms_user_jf Where jfuid="&Uid&"",Conn,1,1
  If Not(rs.Eof and rs.bof) Then
    rs.pagesize=8'每页数据
	rs.AbsolutePage=page
	m=rs.recordcount     '总记录
	n=rs.PageCount       '总页数
	z=rs.pagesize        '每页数量
	i=0
	Do While Not rs.eof and i<rs.pagesize
	i=i+1
  %>
  <tr bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#E3E1D7'" onMouseOut="javascript:this.bgColor='#FFFFFF'" style="text-align:center;">
  <td  align="left"  style="padding-left:12px;"><%Call NextName(rs("jfidd"))%></td>
  <td width="202"  align="left"><font color="#FF0000"><%=rs("jtime")%></font></td>
  </tr>
  <%
  Rs.Movenext:loop
  %>
  <tr bgcolor="#FFFFFF" onMouseOver="javascript:this.bgColor='#E3E1D7'" onMouseOut="javascript:this.bgColor='#FFFFFF'" style="text-align:center;">
  <td colspan="2" ><%=ShowPage(pagelink&Product,m, z, page, True, True, "个", False)%></td>
  </tr>
   <%
  Else
  Response.Write "<tr><td height='28' colspan='2' bgcolor='#FFFFFF' style='color:#FF0000; font-weight:bold; text-align:center'>对不起，此用户还没有下线！</td></tr>"
  End If 
  rs.Close
  %>
</table>

<%
End IF
%>
<div style="text-align:center; margin-top:5px; color: #FF0000">页面执行时间：<%=GetRunTime()%>秒</div>
<%Call CloseConn()%>
</body>
</html>


<%
Function NextName(Str)
  Set urs=Conn.Execute("Select ulc From qvodcms_user Where uid="&Clng(Str)&"")
  If not(urs.eof and urs.bof) then
   Response.Write(urs("ulc"))
   urs.Close
   Set urs=Nothing
  End If 
End Function

Sub uservip()'验证会员收费信息
   if formatdatetime(rs("uvip"),2)=formatdatetime(rs("utime"),2) then
    Response.Write("免费用户")
   Else
    Response.Write "<font color=red>VIP到期："&formatdatetime(rs("uvip"),2)&"</font>"
   End if		
End Sub
%>