<!-- #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 Mesky
set Mesky = New cls_main
       If Mesky.MemberUserName = "" Then
            Mesky.strMsg = "<li>非法操作，您没有登录系统，<a href=""UserLogin.asp"">点击此处进入登录界面</a>。"
            Call Mesky.SystemMsg
        Else
            Call Main()
        End If
set Mesky = nothing

Sub Main()
	Select Case Request("action")
	Case "buy"
		call Buy
	Case "buy1"
		Call Buy1
	Case "buy2"
		Call Buy2
	Case Else
		Call showList
	End Select
End Sub
Sub Buy1()
	dim Rs
	Set Rs = Mesky.Execute("select ID,ProductName,FavPrice,Points,Months from Mesky_Products Where ID = " &cLng(Request("ID")))
	If Rs.eof and Rs.bof then
		Mesky.strMsg = "此产品已经删除。"
		Call Mesky.SystemMsg
		Set Rs = nothing
		Exit Sub
	Else
		Mesky.Execute("INSERT INTO Mesky_Operation(ProductID, ProductName, Moneys, Points, Months, UserName, DateAndTime, isAuditing)VALUES ("&Rs(0)&",'"&Rs(1)&"',"&Rs(2)&","&Rs(3)&","&Rs(4)&",'"&Mesky.MemberUserName&"',"&SqlNowString&",0)")
	End If
	Set Rs = Nothing
	Mesky.strMsg = "<li>交易成功！汇款确认后您的帐启将正式充值。"
	Call Mesky.SystemMsg
End Sub
Sub Buy()
	Response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrlf
	Response.Write "  <tr align=""center"">" & vbCrlf
	Response.Write "    <td height=""30"" colspan=""2""><span style=""font-size:14px;font-weight: bold;"">产品购买确认</span></td>" & vbCrlf
	Response.Write "  </tr>" & vbCrlf
	Response.Write "</table>" & vbCrlf
dim Rs
Set Rs = Mesky.Execute("select * from Mesky_Products Where ID = " &cLng(Request("ID")))
If Rs.eof and Rs.bof then
	Response.Write "Sorry！没有找到任何记录。"
Else %>
<table border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="2"><img src="images/bar_oragne.gif" width="760" height="3"></td>
  </tr>
  <tr>
    <td width="40%"><table border="0" align="center" cellpadding="3" cellspacing="1">
        <tr>
          <td align="center"><img src="<%= Rs("SmallImg") %>" width="250" height="153"></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
    </table></td>
    <td valign="top"><table width="100%" border="0" cellpadding="2" cellspacing="0">
      <tr>
        <td height="5"></td>
      </tr>
      <tr>
        <td>&nbsp;产品名称 : <b><%= Rs("ProductName") %></b></td>
      </tr>
      <tr>
        <td height="3"><img src="images/bar_dot.gif" width="260" height="3"></td>
      </tr>
      <tr>
        <td>&nbsp;产品描述 : <%= Rs("Description") %></td>
      </tr>
      <tr>
        <td height="3"><img src="images/bar_dot.gif" width="260" height="3"></td>
      </tr>
      <tr>
        <td>&nbsp;产品类型 :
		<% If Rs("VipType") = 1 Then
		Response.Write "点数卡"
		Response.Write "（" & Rs("Points") & "点）"
		Else
		Response.Write "包月卡"
		Response.Write "（" & Rs("Months") & "月）"
		End If %></td>
      </tr>
      <tr>
        <td height="3"><img src="images/bar_dot.gif" width="260" height="3"></td>
      </tr>
      <tr>
        <td>&nbsp;产品价格 : 原价：<font color="red"><s><%= Rs("ForPrice") %> 元</s></font>　　优惠价：<font color="red"><%= Rs("FavPrice") %> 元</font></td>
      </tr>
      <tr>
        <td height="3"><img src="images/bar_dot.gif" width="260" height="3"></td>
      </tr>
      <tr>
        <td><table width="50%"  border="0" cellpadding="3" cellspacing="1">
  <tr><form name="form1" method="post" action="?action=buy1">
    <td align="center"><input name="id" type="hidden" value="<%= clng(Request("ID")) %>"><input type="submit" name="Submit" value="汇款购买"></td></form>
    <form name="form1" method="post" action="">
	<td><input type="submit" name="Submit" value="在线支付购买">
        </td></form>
  </tr>
</table></td>
      </tr>
      <tr>
        <td height="3"><img src="images/bar_dot.gif" width="260" height="3"></td>
      </tr>
      <tr>
        <td height="3">&nbsp;<b><font color="#FF3300">提示：</font></b>点击“汇款购买”或“在线支付购买”确认购买信息。<a href="#">了解交易流程</a>。</td>
      </tr>
    </table></td>
  </tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 align=center border=0>
  <TBODY>
    <TR align=middle>
      <TD colSpan=2 height=40><SPAN style="FONT-WEIGHT: bold; FONT-SIZE: 14px">付款方式</SPAN></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="95%"  border="0" align="center">
  <tr>
    <td colspan="3"><img src="images/bar_oragne.gif" width="760" height="3"></td>
    </tr>
  <tr>
    <td width="49%" valign="top">１、<strong>中国工商银行</strong>(手续费1%，最高50元，马上到帐)<br>
      <img src="images/bank_gongshang.gif" width="200" height="39"><br>
      存折号(柜台办理使用)：<BR>
      <BR>
      卡　号(网上转帐使用)：<BR>
      开户人：<BR>
      <BR>
      方法：到工行柜台填写汇款单，写明帐号和开户人交由营业员办理。</td>
    <td>&nbsp;</td>
    <td width="49%" valign="top">２、<strong>中国农业银行</strong>(无须手续费，马上到帐)<BR>
      <img src="images/bank_nongyeyinhang.jpg" width="200" height="54"><br>
      使用存款单，一定不要用汇款单<BR>
      <BR>
      卡　号：<BR>
      开户人：<BR>
      <BR>
      方法：到农行柜台填写存款单，写明帐号和开户人交由营业员办理。 </td>
  </tr>
</table>
<table width="95%"  border="0" align="center">
  <tr>
    <td colspan="3"><img src="images/bar_oragne.gif" width="760" height="3"></td>
  </tr>
  <tr>
    <td width="49%" valign="top">３、<strong>招商银行</strong>(0.2%手续费，马上到帐)<br>
        <img src="images/bank_cmbchina.gif" width="161" height="50"><br>
      注意：网上转帐城市区号可不填（到柜台办理要填）。同时，切记在表格下面一行的<FONT 
color=blue>快速汇款（手续费0.2%）</FONT>栏后面“打勾”，否则会变成普通汇款（手续费更高要1%），而且到帐时间要2、3天 <BR>
      <P>开 户 行：<BR>
        开 户 人：<BR>
        开户帐号：<BR>
        开户区号：<BR>
        <BR>
        方法：请使用招行一卡通个人银行专业版进行网上支付，或者到本地招商银行柜台转帐或存入现金。 </P></td>
    <td>&nbsp;</td>
    <td width="49%" valign="top">４、<strong>中国建设银行</strong>(1%手续费，2小时到帐)<BR>
        <img src="images/bank_jianshe.gif" width="183" height="49"><br>
      手续费1%，办理速汇通2小时到帐<BR>
      <P>帐　号：<BR>
        开户人：<BR>
        开户行：<BR>
        <BR>
        方法：到建行柜台填写速汇通汇款单，写明帐号、开户人和开户行，交由营业员办理。</P></td>
  </tr>
</table>
<table width="95%"  border="0" align="center">
  <tr>
    <td colspan="3"><img src="images/bar_oragne.gif" width="760" height="3"></td>
  </tr>
  <tr>
    <td width="49%" valign="top">５、<strong>交通银行</strong>(1%手续费，马上到帐)<br>
        <img src="images/bank_jiaotong.gif" width="192" height="48"><br>
      因交行汇款时手续费是从汇款金额中扣除的<BR>
      请您汇款时将手续费加入汇款金额中<BR>
      交行手续费为1%，最高10元<BR>
      比如您要汇款200元，加手续费为202元<BR>
      汇款2000元，加手续费为2010元<BR>
      <FONT 
color=#ff0000>请务必照此要求办理，否则会因款不足而无法为您及时开通所需服务</FONT><BR>
      <P>帐　号：<BR>
        开户人：</P>
      <P>方法：到交行柜台填写汇款单，写明帐号和开户人交由营业员办理。</P></td>
    <td>&nbsp;</td>
    <td width="49%" valign="top">６、<strong>中国银行</strong>(1%手续费，24小时到帐)<BR>
        <img src="images/bank_zhongguo.gif" width="164" height="48"><br>
      24小时到帐，周末不受理业务，不推荐。<BR>
      <P>帐　号：<BR>
        开户人：<BR>
        开户行：</P>
      <P>方法：到中行柜台填写汇款单，写明帐号、开户人和开户行，交由营业员办理。</P></td>
  </tr>
</table>
<table width="95%"  border="0" align="center">
  <tr>
    <td colspan="3"><img src="images/bar_oragne.gif" width="760" height="3"></td>
  </tr>
  <tr>
    <td width="49%" valign="top">７、<strong>光大银行</strong>(1%手续费，即刻到帐)<br>
        <img src="images/bank_guangda.png" width="198" height="55"><br>
        <P>帐　号：<BR>
          开户人：</P>
        <P>方法：到光大柜台填写汇款单，写明帐号和开户人交由营业员办理。</P></td>
    <td>&nbsp;</td>
    <td width="49%" valign="top">８、<strong><font color=red>网络支付(无须手续费，即刻到帐并开通服务)</font></strong><BR>        <br>
      　　在线支付支持全国<BR>
      　　我们提供的在线支付方式，均由银行等机构提供的支付平台进行。基本上国内所有银行都可进行在线支付操作，如果您所在地区的银行还没有开通在线支付的服务，我们也无法对该地区的客户提供在线支付方式。不过，目前我们国家在这方面的发展非常迅速，相信在不久的将来，您所在的地区就能开通在线支付，您就能够体会到在线支付的方便与快捷了。</td>
  </tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 align=center border=0>
  <TBODY>
    <TR align=middle>
      <TD colSpan=2 height=40><SPAN style="FONT-WEIGHT: bold; FONT-SIZE: 14px">银行转帐汇款确认方式</SPAN></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="95%"  border="0" align="center">
  <tr>
    <td><img src="images/bar_oragne.gif" width="760" height="3"></td>
  </tr>
  <tr>
    <td valign="top"><strong>☆ 方式一</strong><BR>
      　　汇款之后，请Email至：yourname@mesky.net，邮件主题写"<FONT 
color=#ff0000>汇款通知</FONT>"，邮件内容包括：<BR>
      　　姓　名：<BR>
      　　用户名：（非常重要，就是您在我公司网站注册的帐号）<BR>
      　　汇款金额：<BR>
      　　汇款时间：<BR>
      　　汇款方式：<BR>
      　　汇款地点：<BR>
      　　汇 出 行： <BR>
      　　汇 入 行：      <BR>
      <BR>
      <strong>☆ 方式二</strong><BR>
　　发送汇款凭证<BR>
　　1、传真方式：请将汇款底单传真至：<BR>
　　2、扫描方式：将汇款底单扫描，Email至:yourname@mesky.net ，邮件主题写"<FONT color=#ff0000>汇款通知</FONT>"</td>
    </tr>
</table>
<%	End If
End Sub
Sub showList()
	Response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrlf
	Response.Write "  <tr align=""center"">" & vbCrlf
	Response.Write "    <td height=""30"" colspan=""2""><span style=""font-size:14px;font-weight: bold;"">产品列表</span></td>" & vbCrlf
	Response.Write "  </tr>" & vbCrlf
	Response.Write "</table>" & vbCrlf

dim Rs
Set Rs = Mesky.Execute("select * from Mesky_Products order by ID")
If Rs.eof and Rs.bof then
	Response.Write "Sorry！没有找到任何记录。"
Else
	Do While Not Rs.EOF %>
<table border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="2"><img src="images/bar_oragne.gif" width="760" height="3"></td>
  </tr>
  <tr>
    <td width="40%"><table border="0" align="center" cellpadding="3" cellspacing="1">
        <tr>
          <td align="center"><img src="<%= Rs("SmallImg") %>" width="250" height="153"></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
    </table></td>
    <td valign="top"><table width="100%" border="0" cellpadding="2" cellspacing="0">
      <tr>
        <td height="5"></td>
      </tr>
      <tr>
        <td>&nbsp;产品名称 : <b><%= Rs("ProductName") %></b></td>
      </tr>
      <tr>
        <td height="3"><img src="images/bar_dot.gif" width="260" height="3"></td>
      </tr>
      <tr>
        <td>&nbsp;产品描述 : <%= Rs("Description") %></td>
      </tr>
      <tr>
        <td height="3"><img src="images/bar_dot.gif" width="260" height="3"></td>
      </tr>
      <tr>
        <td>&nbsp;产品类型 :
		<% If Rs("VipType") = 1 Then
		Response.Write "点数卡"
		Response.Write "（" & Rs("Points") & "点）"
		Else
		Response.Write "包月卡"
		Response.Write "（" & Rs("Months") & "月）"
		End If %></td>
      </tr>
      <tr>
        <td height="3"><img src="images/bar_dot.gif" width="260" height="3"></td>
      </tr>
      <tr>
        <td>&nbsp;产品价格 : 原价：<font color="red"><s><%= Rs("ForPrice") %> 元</s></font>　　优惠价：<font color="red"><%= Rs("FavPrice") %> 元</font></td>
      </tr>
      <tr>
        <td height="3"><img src="images/bar_dot.gif" width="260" height="3"></td>
      </tr>
      <tr>
        <td><a href="?action=buy&id=<%= Rs("ID") %>"><img src="images/buynow.gif" width="116" height="29" border="0"></a></td>
      </tr>
      <tr>
        <td height="3"><img src="images/bar_dot.gif" width="260" height="3"></td>
      </tr>
      <tr>
        <td height="3">&nbsp;<b><font color="#FF3300">提示：</font></b>点击“立刻购买”按钮，到下一步确认购买信息。<a href="#">了解交易流程</a>。</td>
      </tr>
    </table></td>
  </tr>
</table>
<%	Rs.MoveNext
	Loop
End If
End Sub %>
	</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>
