<!-- #include file="conn.asp" -->
<!-- #include file="cls_main.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员中心</title>
<link href="User_Style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="800"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td colspan="3"><img src="images/user_top.gif" width="800" height="13"></td>
  </tr>
  <tr>
    <td width="10">&nbsp;</td>
    <td width="190"><img src="images/User_Logo.gif" width="150" height="72"></td>
    <td width="600" align="right"><table  border="0" cellpadding="0" cellspacing="1">
        <tr>
          <td>·<a href="default.html">站点首页</a> ·<a href="downnew/0_1.html">最近更新</a> ·<a href="downtop/1_1.html">下载排行</a> </td>
          <td>·<a href="UserLogin.asp?action=logout">退出登录</a></td>
          <td width="10">&nbsp;</td>
        </tr>
      </table>
        <table  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="52" align="center" background="images/user_bg.gif"><img src="images/user_bg1.gif" width="8" height="52" align="absmiddle">&nbsp;<a href="User_Index.asp">会员中心</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Down_Upload.asp">上传软件</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Down_Resource.asp">添加软件</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Down_Reslist.asp">软件管理</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Cms_Resource.asp">添加文章</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Cms_Reslist.asp">文章管理</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Modfiy.asp">资料修改</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_BuyPoints.asp">帐号充值</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_List.asp">会员列表</a>&nbsp;<img src="images/user_bg2.gif" width="10" height="52" align="absmiddle"></td>
          </tr>
      </table></td>
  </tr>
</table>
<table width="800" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td height="400" valign="top">
<%  dim ishion
set ishion = New cls_main
       If ishion.MemberUserName = "" Then
            ishion.strMsg = "<li>非法操作，您没有登录系统，<a href=""UserLogin.asp"">点击此处进入登录界面</a>。"
            Call ishion.SystemMsg
        Else
            Call Main()
        End If
set ishion = nothing

Sub Main()
Call ishion.LoadSetting 
Dim Rs 
Set Rs = ishion.Execute("select * from ishion_User Where UserID = " & clng(ishion.MemberUserID))%>
	<table width="100%"  border="0" cellpadding="3" cellspacing="0">
      <tr>
        <td width="205" valign="top">
		<table width="100%"  border="0" align="center" cellspacing="0">
          <tr>
            <td height="23" background="images/menubg.gif">　→　我的属性：</td>
          </tr>
          <tr>
            <td>&nbsp;用 户 名 : <%= Rs("UserName") %></td>
          </tr>
          <tr>
            <td height="3"><img src="images/bar_dot1.gif" width="198" height="3"></td>
          </tr>
          <tr>
            <td>&nbsp;注册时间 : <%= Rs("JoinDate") %></td>
          </tr>
          <tr>
            <td height="3"><img src="images/bar_dot1.gif" width="198" height="3"></td>
          </tr>
          <tr>
            <td>&nbsp;用户级别 : <%= Split(ishion.Setting(140),",")(Rs("UserClass")) %></td>
          </tr>
          <tr>
            <td height="3"><img src="images/bar_dot1.gif" width="198" height="3"></td>
          </tr>
          <tr>
            <td>&nbsp;用户类型 : 
              <% If Rs("VipType") = 0 Then
			Response.Write "普通用户"
			ElseIf Rs("VipType") = 1 then
			Response.Write "点数用户"
			ElseIf Rs("VipType") = 2 then
			Response.Write "包月用户"
			End If %></td>
          </tr>
          <tr>
            <td height="3"><img src="images/bar_dot1.gif" width="198" height="3"></td>
          </tr>
          <tr>
            <td>&nbsp;账户点数 : <%= Rs("Points") %> 点</td>
          </tr>
          <tr>
            <td height="3"><img src="images/bar_dot1.gif" width="198" height="3"></td>
          </tr>
          <tr>
            <td>&nbsp;帐户期限 : 
              <% If Rs("VipEndDate") > Now() then
			Response.Write("还剩 " & DateDiff("d", Now, Rs("VipEndDate")) & " 天")
			Else
			Response.Write "<font color=red>帐号已过期</font>"
			end if %></td>
          </tr>
          <tr>
            <td height="3"><img src="images/bar_dot1.gif" width="198" height="3"></td>
          </tr>
        </table>
<% Set Rs = Nothing
Set Rs = ishion.Execute("select * from ishion_Operation where UserName = '" & ishion.MemberUserName & "'") %>
<table width="100%"  border="0" align="center" cellspacing="0">
  <tr>
    <td height="23" colspan="4" background="images/menubg.gif">　→　充值记录：</td>
  </tr>
  <tr align="center">
    <td>时间</td>
    <td>金额</td>
    <td>产品ID</td>
    <td>生效</td>
  </tr>
<% If Not(Rs.EOF And Rs.BOF) Then
Do While Not Rs.EOF %>
  <tr>
    <td height="3" colspan="4"><img src="images/bar_dot1.gif" width="198" height="3"></td>
  </tr>
  <tr align="center">
    <td height="3"><%= ishion.FormatMyDate(Rs("DateAndTime"), "{Y}-{m}-{d}") %></td>
    <td height="3"><%= Rs("Moneys") %> 元</td>
    <td height="3"><% Response.Write("<a href=""User_BuyPoints.asp?action=buy&id="&Rs("ProductID")&""">"&Rs("ProductID")&"</a>" )%></td>
    <td height="3"><% If Rs("isAuditing") = 1 then Response.Write("√") Else Response.Write("×") End If %></td>
  </tr>
<%	Rs.MoveNext
	Loop
End If
Set Rs = Nothing %>
</table>
</td>
        <td valign="top"><table width="100%"  border="0" cellspacing="0">
          <tr>
            <td height="23" background="images/menubg.gif">　→　我上传的软件　<a href="User_Down_Reslist.asp">More..</a> </td>
          </tr>
        </table>
		<% Response.Write showDown(20,45) %>
		</td>
      </tr>
    </table>
<% End Sub
Public Function showDown(topNum, cutNum)
    Dim tRs, s, i, strDot, strHits
    Set tRs = ishion.Execute("Select top " & topNum & " ID,ResName,ResVer,catalogID,catalogName,HitsTotal,UpdateTime From ishion_Down_Resource where UserName = '" & ishion.MemberUserName & "' order by UpdateTime Desc")
    s = "<table width=""99%"" border=""0"" cellspacing=""0"" cellpadding=""2"" align=""center"">" & vbCrLf
    If tRs.EOF And tRs.BOF Then
        s = s & "  <tr>" & vbCrLf
        s = s & "    <td>Sorry！没有查询到任何记录。</td>" & vbCrLf
        s = s & "  </tr>" & vbCrLf
    Else
        Do While Not tRs.EOF
        s = s & "  <tr>" & vbCrLf
        s = s & "    <td>" & strDot 
        s = s & "[<a href=""" & Replace(Replace(ishion.Setting(73), "{$id}", tRs(3)), "{$pages}", "1") & """ target=""_blank"">" & tRs(4) & "</a>]"        
        s = s & " <a href=""" & Replace(ishion.Setting(77), "{$id}", tRs(0)) & """ target=""_blank"" Title=""" & tRs(1) & " " & tRs(2) & """>" & ishion.cutStr(tRs(1) & " " & tRs(2), Int(cutNum)) & "</a> </td>"
        s = s & "<td width=""65"">" & ishion.FormatMyDate(tRs(6), "{Y}-{m}-{d}") & "</td>" & vbCrLf
        s = s & "  </tr>" & vbCrLf
        s = s & "<tr><td height=""1"" colspan=""2"" background=""images/bg_dot.gif""></td></tr>" & vbCrLf
        tRs.MoveNext
        Loop
    End If
    Set tRs = Nothing
    s = s & "</table>" & vbCrLf
    showDown = s
    s = Null
End Function
 %>
</td>
  </tr>
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="images/user_ti.gif" width="800"></td>
  </tr>
</table>
</body>
</html>

