<%dbs="../"%>
<!--#include file="../inc/config.asp"-->
<!--#include file="uccook.asp"-->
<!--#include file="uc.asp"-->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<title><%=W_title%>,会员中心</title>

<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="style.css" type=text/css rel=stylesheet>
<script language="javascript">
// 参数说明
// s_Type : 文件类型，可用值为"image","flash","media","file"
// s_Link : 文件上传后，用于接收上传文件路径文件名的表单名
// s_Thumbnail : 文件上传后，用于接收上传图片时所产生的缩略图文件的路径文件名的表单名，当未生成缩略图时，返回空值，原图用s_Link参数接收，此参数专用于缩略图
function showUploadDialog(s_Type, s_Link, s_Thumbnail){
	//以下style=coolblue,值可以依据实际需要修改为您的样式名,通过此样式的后台设置来达到控制允许上传文件类型及文件大小
	var arr = showModalDialog("../redit/ewebeditor.htm?style=mail&type="+s_Type+"&link="+s_Link+"&thumbnail="+s_Thumbnail, window, "dialogWidth:0px;dialogHeight:0px;help:no;scroll:no;status:no");
}
</script>
<SCRIPT language=javascript src="images/jquery.js" 
type=text/javascript></SCRIPT>

<SCRIPT language=javascript src="images/function.js" 
type=text/javascript></SCRIPT>

<SCRIPT language=javascript type=text/javascript>
<!--


/*
function AddnewType()
*/
-->
</SCRIPT>

<META content="MSHTML 6.00.3790.4426" name=GENERATOR>
</HEAD>
<BODY><!--用户中心头部-->
<!--#include file="top.asp"-->
<table width="960" border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td width="150" valign="top"><!--#include file="left.asp"--></td>
      <td width="810" align="right" valign="top"><table width="800" border="0" cellpadding="0" cellspacing="0">
            <tr>
                <td width="20" align="center"><img src="images/ico_4.gif" width="12" height="12"></td>
                <td height="30" align="left"><a href="index.asp" target="_self">用户中心</a> <span class="uc_huise">&gt; 绑定打折卡</span></td>
            </tr>
            <tr>
                <td height="1" colspan="2" bgcolor="#EEEEEE"></td>
          </tr>
        </table>
            <table width="600" height="5" border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td></td>
                </tr>
            </table>
			
			
			<form name="form" action="card_sou.asp?action=sou" method="post" target="_self">
            <table width="800" border="0" cellpadding="0" cellspacing="1" bgcolor="#EEEEEE">
    <tr>
        <td height="28" colspan="2" bgcolor="#FFFFFF" class="uc_huise">查询打折卡信息</td>
        </tr>
    <tr>
      <td width="90" height="30" bgcolor="#FFFFFF" class="uc_huise">请输入卡号：</td>
      <td width="707" height="0" bgcolor="#FFFFFF" class="uc_huise"><input name="sou_card" type="text" id="sou_card"> 
      请输入会员卡的6位数字 </td>
    </tr>
    <tr>
        <td height="28" colspan="2" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" class="UCform" value="立即查询"></td>
        </tr>
</table>
	        
			
			</form>
			
			
			
			
		<%
		action=request.QueryString("action")
		if action="sou" then
		sou_card=request.Form("sou_card")
		if sou_card="" or IsNumeric(H_disc)<>true then
		response.Write "<script >alert('提示：\n\n对不起，请6位数字的打折卡号');history.back(-1);</script>"
		response.End()
		end if
	set rs=Server.CreateObject("Adodb.Recordset")
	sql="select id from H_page where UID="&UID&" and H_union=1"
	rs.open sql,conn,1,1
	if rs.eof then
response.Write "<script >alert('提示：\n\n对不起，您不是签约联盟商家\n\n我们为保护用户隐私\n\n禁止查询打折卡的会员信息');history.back(-1);</script>"
response.End()
	end if
		set rs=server.createobject("adodb.recordset")
	sql="select * from H_user where H_card="&sou_card&""
	rs.open sql,conn,1,1
	if not rs.eof then
	sou_cardname=rs("H_cardname")
	sou_card=rs("H_card")
	sou_cardpic=rs("h_cardpic")
	sou_UGender=rs("UGender")
	rs.close
		%>
			
			<table width="200" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>

			<table width="800" border="0" cellpadding="0" cellspacing="1" bgcolor="#EEEEEE">
              <tr>
                <td height="28" colspan="2" align="center" bgcolor="#FFFFFF" class="fc_green">打折卡绑定信息(本功能只是区分会员卡是否有效,以及防止打折卡外借)</td>
              </tr>
              <tr>
                <td width="90" height="30" bgcolor="#FFFFFF" class="uc_huise">姓名：</td>
                <td width="707" height="0" bgcolor="#FFFFFF" class="uc_huise"><%=sou_cardname%></td>
              </tr>
              <tr>
                <td height="30" bgcolor="#FFFFFF" class="uc_huise">卡号：</td>
                <td height="0" bgcolor="#FFFFFF" class="uc_huise"><%=sou_card%></td>
              </tr>
              <tr>
                <td height="30" bgcolor="#FFFFFF" class="uc_huise">性别：</td>
                <td height="31" bgcolor="#FFFFFF" class="uc_huise"><%if sou_UGender=1 then response.Write "男" else response.Write "女" end if%></td>
              </tr>
              <tr>
                <td height="13" bgcolor="#FFFFFF" class="uc_huise">照片：</td>
                <td height="15" bgcolor="#FFFFFF" class="uc_huise"><img src="../UpLoadUC/<%=sou_cardpic%>"></td>
              </tr>
              <tr>
                <td height="30" bgcolor="#FFFFFF" class="uc_huise">状态：</td>
                <td height="16" bgcolor="#FFFFFF" class="uc_huise">该会员卡正常</td>
              </tr>
            </table>
			
			<%
			else
			%>
				<table width="200" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td>&nbsp;</td>
                  </tr>
                </table>
				<table width="800" border="0" cellpadding="0" cellspacing="1" bgcolor="#EEEEEE">
              <tr>
                <td height="28" colspan="2" bgcolor="#FFFFFF" class="uc_huise">打折卡绑定信息</td>
              </tr>
              <tr>
                <td height="60" colspan="2" align="center" bgcolor="#FFFFFF" class="fc_red">没有查询到该打折卡的信息.这个打折卡应该是无效的,或者没有绑定,请会员绑定后使用</td>
                </tr>
            </table>
			<%end if
			end if
			%>
	  </td>
    </tr>
</table>
<!--#include file="end.asp"-->

</BODY></HTML>
