user_inc.asp

IMPORTANT YOU SHOUD LOAD IT DOWN FOR USING

<%
sub dindan()
if request.Cookies("shopxp")("username")="" then
response.Redirect "xpuser.asp"
response.End
end if
%> 
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr> 
<td width="100%" align="right"> 
<select name="zhuangtai" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<option value="xpuser.asp?action=dindan&zhuangtai=0" selected>==请选择查讯状态==</option>
<option value="xpuser.asp?action=dindan&zhuangtai=0" >全部订单状态</option>
<option value="xpuser.asp?action=dindan&zhuangtai=1" >未作任何处理</option>
<option value="xpuser.asp?action=dindan&zhuangtai=2" >用户已经划出款</option>
<option value="xpuser.asp?action=dindan&zhuangtai=3" >服务商已经收到款</option>
<option value="xpuser.asp?action=dindan&zhuangtai=4" >服务商已经发货</option>
<option value="xpuser.asp?action=dindan&zhuangtai=5" >用户已经收到货</option>
</select>
</td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
	<tr bgcolor="#cccccc" align="center"> 
	<td><strong><font color="#ffffff">订单号</font></strong></td>
	<td><strong><font color="#ffffff">货款</font></strong></td>
	<td><strong><font color="#ffffff">费用</font></strong></td>
	<td><strong><font color="#ffffff">订单状态</font></strong></td>
	</tr>
  <%set rs=server.CreateObject("adodb.recordset")
  dim zhuangtai
  zhuangtai=request.QueryString("zhuangtai")
  if zhuangtai=0 or zhuangtai="" then
  select case zhuangtai
  case "0"
  rs.open "select distinct(dingdan),shopxp_shiname,actiondate,shouhuoname,shopxp_shfs,zhifufangshi,zhuangtai from shopxp_action where username='"&request.Cookies("shopxp")("username")&"' and zhuangtai<6 order by actiondate desc",conn,1,1
  case ""
  rs.open "select distinct(dingdan),shopxp_shiname,actiondate,shouhuoname,shopxp_shfs,zhifufangshi,zhuangtai from shopxp_action where username='"&request.Cookies("shopxp")("username")&"' and zhuangtai<5 order by actiondate desc",conn,1,1
  end select
  else
  rs.open "select distinct(dingdan),shopxp_shiname,actiondate,shouhuoname,shopxp_shfs,zhifufangshi,zhuangtai from shopxp_action where username='"&request.Cookies("shopxp")("username")&"' and zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
  end if

  do while not rs.eof
   %>
	<tr bgcolor="#FFFFFF" align="center"> 
	<td> 
	<a href="dingdanshopxp.asp?dan=<%=trim(rs("dingdan"))%>" target="_blank"><%=trim(rs("dingdan"))%></a></div>
    </td>
    <td > 
        <%dim shopxp,rs2
	'////
	set shopxp=server.CreateObject("adodb.recordset")
	shopxp.open "select sum(zonger) as zonger from shopxp_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
	response.write "<font color=#FF6600>"&shopxp("zonger")&"元</font>"
	shopxp.close
	set shopxp=nothing%>
	</td>
	<td> 
        <%
	set shopxp=server.CreateObject("adodb.recordset")
	shopxp.open "select feiyong from shopxp_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
	response.write "<font color=#FF6600>"&shopxp("feiyong")&"元</font>"
	shopxp.close
	set shopxp=nothing%>
    </td>
    <td> 
        <%select case rs("zhuangtai")
	case "1"
	response.write "未作任何处理"
	case "2"
	response.write "用户已经划出款"
	case "3"
	response.write "服务商已经收到款"
	case "4"
	response.write "服务商已经发货"
	case "5"
	response.write "用户已经收到货"
	end select%>
	</td>
	</tr>
  <%
   rs.movenext
  loop
  rs.close
  set rs=nothing%>
</table><br>
<%
end sub

sub myinfo()
if request.Cookies("shopxp")("username")<>"" then
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
	<tr align="center"> 
	<td colspan="2"><strong><font color=#FFFFFF>我的统计信息</font></strong></td>
	</tr>
  <%
	set shopxp=server.CreateObject("adodb.recordset")
	shopxp.open "select * from [Dv_User] where username='"&request.Cookies("shopxp")("username")&"' ",conn,1,1
	ky_jifen=shopxp("jifen")
	%>
  <tr bgcolor="#ffffff" align="center"> 
    <td width="50%">用户类型：</td>
    <td width="50%"><font color=red> 
		<%if request.Cookies("shopxp")("reglx")=2 then%>
	VIP用户 
	<%else%>
	普通会员 
	<%end if%>
	</font>
		<%if request.Cookies("shopxp")("reglx")=2 then%>
	期限：<%=shopxp("vipdate")%> 
	<%end if%></td>
  </tr>
  <tr bgcolor="#ffffff" align="center">  
    <td>登录次数：</td>
    <td><%=shopxp("logins")%></td>
  </tr>
  <tr bgcolor="#ffffff" align="center"> 
    <td>累计积分：</td>
    <td><%=shopxp("jifen")%></td>
  </tr>
  <%
	set shopv81=server.CreateObject("adodb.recordset")
	shopv81.open "select sum(zonger) as sum_jine from shopxp_action where username='"&request.Cookies("shopxp")("username")&"' and zhuangtai<=5",conn,1,1
	%>
  <tr bgcolor="#ffffff" align="center"> 
    <td>总购物金额：</td>
    <td><%=shopv81("sum_jine")%></td>
  </tr>
  <%shopv81.close
	set shopv81=nothing%>
  <tr bgcolor="#ffffff" align="center"> 
    <td><font color="#FF0000">预存款：</font></td>
    <td><%=shopxp("yucun")%></td>
  </tr>
  <%if request.Cookies("shopxp")("reglx")=2 then%>
  <tr bgcolor="#ffffff" align="center"> 
    <td>VIP期限：</td>
    <td><%=shopxp("vipdate")%></td>
  </tr>
  <%end if%>
  <%
	set shopv81=server.CreateObject("adodb.recordset")
	shopv81.open "select count(*) as rec_count from shopxp_action where username='"&request.Cookies("shopxp")("username")&"' and zhuangtai=6",conn,1,1
	%>
  <tr bgcolor="#ffffff" align="center"> 
    <td>收藏的商品数：</td>
    <td><%=shopv81("rec_count")%></td>
  </tr>
  <%shopv81.close
	set shopv81=nothing%>
  <%shopxp.close
	set shopxp=nothing%>
</table>
<%else%>
<table width="90%" height="60"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#cccccc">
  <tr>
    <td bgcolor="#FFFFFF"><div align="center">
      <table cellspacing="0" cellpadding="0" width="559" 
                        align="center" border="0">
        <tbody>
          <tr>
            <td width="559"><img height="25" 
                              src="img_shopxp/xiao/login_table01.gif" 
                            width="586" /></td>
          </tr>
          <tr>
            <td><table cellspacing="0" cellpadding="0" width="586" 
                              border="0">
                <tbody>
                  <tr>
                    <td width="30"><img height="249" 
                                src="img_shopxp/xiao/login_table03.gif" 
                                width="30" /></td>
                    <td width="537" bgcolor="#ebebec"><table height="239" cellspacing="0" cellpadding="0" 
                                width="516" align="center" bgcolor="#ffffff" border="0">
                        <tbody>
                          <tr>
                            <td><table width="350" border="0" align="center" cellpadding="5" cellspacing="0">
                                <form action="usershopxp/checkusershopxplogin.asp" method="post" name="fkinfo" id="fkinfo">
                                  <tr>
                                    <td height="40" colspan="2" align="center">请先登陆或先注册成为本商城会员</td>
                                  </tr>
                                  <tr>
                                    <td width="40%" align="right">用户名：</td>
                                    <td width="60%"><input name="username" class="wenbenkuang" type="text" id="username" maxlength="18" size="18" /></td>
                                  </tr>
                                  <tr>
                                    <td width="40%" align="right">密　码：</td>
                                    <td width="60%"><input name="userpassword" class="wenbenkuang" type="password" id="userpassword" maxlength="18" size="18" />
                                        <input class="wenbenkuang" type="hidden" name="linkaddress" value="<%=request.servervariables("http_referer")%>" />
                                    </td>
                                  </tr>
                                  <tr>
                                    <td width="40%" align="right">验证码：</td>
                                    <td width="60%"><input class="wenbenkuang" name="verifycode" type="text" value="<%If GetCode=9999 Then Response.Write "9999"%>" maxlength="4" size="10" />
                                        <img src="GetshopxpCode.asp" /> </td>
                                  </tr>
                                  <tr align="center">
                                    <td height="40" colspan="2"><input class="go-wenbenkuang" name="imageField" value="登 陆" type="submit" onfocus="this.blur()" />
                                      &nbsp;
                                      <input class="go-wenbenkuang" onclick="window.location='xpreg.asp'" type="reset" value="注 册" name="Submit2" />
                                      &nbsp;
                                      <input class="go-wenbenkuang" onclick="window.location='usershopxp/getpwd.asp'" type="button" value="忘 密" name="Submit3" />
                                    </td>
                                  </tr>
                                </form>
                            </table></td>
                          </tr>
                        </tbody>
                    </table></td>
                    <td width="19"><img height="249" 
                                src="img_shopxp/xiao/login_table03.gif" 
                                width="30" /></td>
                  </tr>
                </tbody>
            </table></td>
          </tr>
          <tr>
            <td><img height="26" 
                              src="img_shopxp/xiao/login_table02.gif" 
                            width="586" /></td>
          </tr>
        </tbody>
      </table>
    </div></td>
  </tr>
</table>
<%end if%>
<br>
<%
end sub

sub jifen()
if request.Cookies("shopxp")("username")="" then
response.Redirect "xpuser.asp"
response.End
end if
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
	<tr  align="center"> 
    <td><strong><font color=#FFFFFF>积分兑换奖品说明</font></strong>
    </td>
  </tr>
  <tr bgcolor="#FFFFFF" align="center"> 
    <td> 
      <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td>
            <%set rs=server.createobject("adodb.recordset")
                              rs.open "select jfhj from shopxp_setup ",conn,1,1
                              response.write rs("jfhj")
                              rs.close
                              set rs=nothing
                              %>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td align="center"><strong><font color=#FFFFFF>我的积分情况</font></strong>
    </td>
  </tr>
  <tr bgcolor="#FFFFFF" align="center"> 
    <td> 
        <table width="95%" height="24" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
        <%
	set shopxp=server.CreateObject("adodb.recordset")
	shopxp.open "select jifen,yucun from [Dv_User] where username='"&request.Cookies("shopxp")("username")&"' ",conn,1,1
	ky_jifen=shopxp("jifen")
	ky_yucun=shopxp("yucun")
	shopxp.close
	set shopxp=nothing%>
	<td width="25%">我的可用积分：<font color=#FF0000><%=ky_jifen%> 分 </font></td>
        <td width="25%">我的预存款：<font color=#FF0000><%=ky_yucun%> 元 </font></td>
        <%
	set shopxp=server.CreateObject("adodb.recordset")
	shopxp.open "select sum(zonger) as sum_jine from shopxp_action where username='"&request.Cookies("shopxp")("username")&"' and zhuangtai<=5",conn,1,1
	ky_jifen=shopxp("sum_jine")
	shopxp.close
	set shopxp=nothing%>
	<td width="50%">累计购物金额(不含费用)：<font color=#FF0000><%=ky_jifen%></font> 元</td>
	</tr>
	</table>
    </td>
  </tr>
	
	  <tr> 
    <td align="center"><strong><font color=#FFFFFF>积分与预存款换算</font></strong></td>