user_inc.asp

这是惠州城市超市购物管理系统的源代码

<!--
┌─ o91.com───────────────┐
│  动感购物商务平台WWW.SNSN.NET版权所有  │
│  设计：模糊视线13855119911 QQ：9912515 │
└────────────────────┘
-->
<!--#include file="fuction.asp"-->
<%
'//////////////////////////订单查讯
sub dindan()
if request.cookies("snsn")("username")="" then
response.Redirect "user.asp"
response.End
end if
%> 
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr> 
                            
    <td width="55%"> 我 的 订 单</td>
                            <td width="49%"> 
                              <div align="right"> 
                                <select name="zhuangtai" class="wenbenkuang" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
                                  <option value="user.asp?action=dindan&zhuangtai=0" selected>--请选择查讯状态--</option>
                                  <option value="user.asp?action=dindan&zhuangtai=0" >全部订单状态</option>
                                  <option value="user.asp?action=dindan&zhuangtai=1" >未作任何处理</option>
                                  <option value="user.asp?action=dindan&zhuangtai=2" >用户已经划出款</option>
                                  <option value="user.asp?action=dindan&zhuangtai=3" >服务商已经收到款</option>
                                  <option value="user.asp?action=dindan&zhuangtai=4" >服务商已经发货</option>
                                  <option value="user.asp?action=dindan&zhuangtai=5" >用户已经收到货</option>
                                </select>
                              </div>
                            </td>
                          </tr>
                        </table>
                            
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC"  class="table-zuoshang">
  <tr bgcolor="f1f1f1"  class="a1"> 
    <td height="23" > <div align="center">订单号</div></td>
    <td > <div align="center">货款</div></td>
    <td > <div align="center">费用</div>
    <td > <div align="center">订单状态</div></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),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai<6 order by actiondate desc",conn,1,1
  case ""
  rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai<5 order by actiondate desc",conn,1,1
  end select
  else
  rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
  end if

  do while not rs.eof
   %>
  <tr bgcolor="#FFFFFF"> 
    <td height="23" bgcolor="#FFFFFF" > <div align="center"><a href="javascript:;" onClick="javascript:window.open('dingdan.asp?dan=<%=trim(rs("dingdan"))%>','','width=770,height=420,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><%=trim(rs("dingdan"))%></a></div></td>
    <td > <div align="center"> 
        <%dim snsn,rs2
	'////
	set snsn=server.CreateObject("adodb.recordset")
	snsn.open "select sum(zonger) as zonger from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
	response.write "<font color=#FF6600>"&snsn("zonger")&"元</font>"
	snsn.close
	set snsn=nothing%>
      </div></td>
    <td > <div align="center"> 
        <%
	set snsn=server.CreateObject("adodb.recordset")
	snsn.open "select feiyong from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
	response.write "<font color=#FF6600>"&snsn("feiyong")&"元</font>"
	snsn.close
	set snsn=nothing%>
      </div></td>
    <td > <div align="center"> 
        <%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%>
      </div></td>
  </tr>
  <%
   rs.movenext
  loop
  rs.close
  set rs=nothing%>
</table>
<%
end sub

sub myinfo()
if request.cookies("snsn")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<table width=98% border=0 align=center cellpadding=0 cellspacing=1 bgcolor="#CCCCCC"  class="table-zuoshang">
  <tr align="center" bgcolor="#FFFFFF"  class="a1"> 
    <td height="23" colspan="3" > <b>我的统计信息</b></td>
  </tr>
  <%
	set snsn=server.CreateObject("adodb.recordset")
	snsn.open "select * from [shop_user] where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' ",conn,1,1
	ky_jifen=snsn("jifen")
	%>
  <tr> 
    <td width="121" height="22" align="center" bgcolor="f1f1f1" >用户类型：</td>
    <td width="106" height="22" align="center" bgcolor="f1f1f1" > 
      <%if request.cookies("snsn")("reglx")=2 then%>
      VIP用户 
      <%else%>
      普通会员 
      <%end if%>
    </td>
    <td width="133" height="22" align="center" bgcolor="f1f1f1" > 
      <%if request.cookies("snsn")("reglx")=2 then%>
      期限：<%=snsn("vipdate")%> 
      <%end if%>
    </td>
  </tr>
  <tr> 
    <td width="121" height="22" align="center" bgcolor="#FFFFFF" > 
      登录次数：</td>
    <td width="106" height="22" align="center" bgcolor="#FFFFFF" ><%=snsn("logins")%></td>
    <td width="133" height="22" bgcolor="#FFFFFF" >&nbsp;</td>
  </tr>
  <tr> 
    <td width="121" height="22" align="center" bgcolor="#FFFFFF" > 
      累计积分：</td>
    <td width="106" height="22" align="center" bgcolor="#FFFFFF" ><%=snsn("jifen")%></td>
    <td width="133" height="22" bgcolor="#FFFFFF" >&nbsp;</td>
  </tr>
  <%
	set snsn1=server.CreateObject("adodb.recordset")
	snsn1.open "select sum(zonger) as sum_jine from shop_action where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai<=5",conn,1,1
	%>
  <tr> 
    <td width="121" height="22" align="center" bgcolor="#FFFFFF" > 
      总购物金额：</td>
    <td width="106" height="22" align="center" bgcolor="#FFFFFF" ><%=snsn1("sum_jine")%></td>
    <td width="133" height="22" bgcolor="#FFFFFF" >&nbsp;</td>
  </tr>
  <%snsn1.close
	set snsn1=nothing%>
  <tr> 
    <td width="121" height="22" align="center" bgcolor="#FFFFFF" > 
      预存款：</td>
    <td width="106" height="22" align="center" bgcolor="#FFFFFF" ><%=snsn("yucun")%></td>
    <td width="133" height="22" bgcolor="#FFFFFF" >&nbsp;</td>
  </tr>
  <%if request.cookies("snsn")("reglx")=2 then%>
  <tr> 
    <td width="121" height="22" align="center" bgcolor="#FFFFFF" > 
      VIP期限：</td>
    <td width="106" height="22" align="center" bgcolor="#FFFFFF" ><%=snsn("vipdate")%></td>
    <td width="133" height="22" bgcolor="#FFFFFF" >&nbsp;</td>
  </tr>
  <%end if%>
  <%
	set snsn1=server.CreateObject("adodb.recordset")
	snsn1.open "select count(*) as rec_count from shop_action where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai=6",conn,1,1
	%>
  <tr> 
    <td width="121" height="22" align="center" bgcolor="#FFFFFF" > 
      收藏的商品数：</td>
    <td width="106" height="22" align="center" bgcolor="#FFFFFF" ><%=snsn1("rec_count")%></td>
    <td width="133" height="22" bgcolor="#FFFFFF" >&nbsp;</td>
  </tr>
  <%snsn1.close
	set snsn1=nothing%>
  <%snsn.close
	set snsn=nothing%>
</table>
<%
end sub

sub jifen()
if request.cookies("snsn")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<table width=98% border=0 align=center cellpadding=0 cellspacing=0  class="table-zuoshang">
  <tr class="a1"> 
    <td  height="22"> <div align=center>我的积分情况</div></td>
  </tr>
  <%
	set snsn=server.CreateObject("adodb.recordset")
	snsn.open "select jifen from [shop_user] where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' ",conn,1,1
	ky_jifen=snsn("jifen")
	snsn.close
	set snsn=nothing%>
  <tr> 
    <td bgcolor=#FFFFFF height="22" >&nbsp;&nbsp;我的可用积分：<%=ky_jifen%></td>
  </tr>
  <%
	set snsn=server.CreateObject("adodb.recordset")
	snsn.open "select sum(zonger) as sum_jine from shop_action where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai<=5",conn,1,1
	ky_jifen=snsn("sum_jine")
	snsn.close
	set snsn=nothing%>
  <tr> 
    <td bgcolor=#FFFFFF height="22" >&nbsp;&nbsp;累计购物金额(不含费用)：<%=ky_jifen%>元</td>
  </tr>
  <tr> 
    <td bgcolor=#FFFFFF height="22" > <div align=center></div></td>
  </tr>
  <tr class="a1"> 
    <td height="22" > <div align=center>积分兑换奖品说明</div></td>
  </tr>
  <tr> 
    <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 shop_config ",conn,1,1
                              response.write rs("jfhj")
                              rs.close
                              set rs=nothing
                              %>
          </td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td bgcolor=#FFFFFF >&nbsp;</td>
  </tr>
  <tr class="a1"> 
    <td height=22 bgcolor=<%=flbgbk%> align=center >奖品清单</td>
  </tr>
  <tr> 
    <td height=28 bgcolor=#FFFFFF> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
        <tr align="center" bgcolor="f1f1f1"> 
          <td height="22" >奖品名称</td>
          <td height="22" >需要积分</td>
          <td height="22" >操作</td>
        </tr>
        <%
	set snsn=server.CreateObject("adodb.recordset")
	snsn.open "select * from shop_jiangpin where xianshi=1",conn,1,1
	while not snsn.eof%>
        <tr bgcolor="#FFFFFF"> 
          <td height="22" ><a href="listjp.asp?id=<%=snsn("shopid")%>" target=_blank><%=snsn("shopname")%></a></td>
          <td height="22" align="center" ><%=snsn("jifen")%></td>
          <td height="22" align="center" ><a href="jifen.asp?id=<%=snsn("shopid")%>&action=add">选择此项</a></td>
        </tr>
        <%
	snsn.movenext
	wend
	snsn.close
	set snsn=nothing%>
      </table></td>
  </tr>
  <%
	set snsn=server.CreateObject("adodb.recordset")
	snsn.open "select * from shop_action_jp where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai=7",conn,1,1
	if snsn.recordcount>0 then%>
  <tr class="a1"> 
    <td height=22 bgcolor=<%=flbgbk%> align=center >您已选择的奖品清单</td>
  </tr>
  <tr> 
    <td height=28 bgcolor=#FFFFFF> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
        <tr align="center"> 
          <td height="22" bgcolor="f1f1f1" >奖品名称</td>
          <td height="22" bgcolor="f1f1f1" >使用积分</td>
          <td height="22" bgcolor="f1f1f1" >操作</td>
        </tr>
        <%
	while not snsn.eof%>
        <tr bgcolor="#FFFFFF"> 
          <td height="22" > 
            <%
	set snsn1=server.CreateObject("adodb.recordset")
	snsn1.open "select * from shop_jiangpin where shopid="&snsn("shopid"),conn,1,1
	if snsn1.recordcount=1 then
	response.write "<a href='listjp.asp?id="&snsn("shopid")&"' target=_blank>"&snsn1("shopname")&"</a>"
	end if
	snsn1.close
	set snsn1=nothing%>
          </td>
          <td height="22" align="center" ><%=snsn("jifen")%></td>