user_inc.asp

电子商务购物系统

<%
'//////////////////////////订单查讯
sub dindan()
if request.cookies("snsn")("username")="" then
response.Redirect "user.asp"
response.End
end if
%> 
<table width="370" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr> 
                            
    <td width="55%"> <font color="#FF6600">我 的 订 单</font></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="370" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
  <tr bgcolor="#F1F1F1"> 
    <td> 
      <div align="center"><font color="#666666">订单号</font></div>
    </td>
    <td> 
      <div align="center"><font color="#666666">货款</font></div>
    </td>
    <td> 
      <div align="center"><font color="#666666">费用</font></div>
    <td> 
      <div align="center"><font color="#666666">订单状态</font></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='"&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='"&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='"&request.cookies("snsn")("username")&"' and zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
  end if

  do while not rs.eof
   %>
  <tr bgcolor="#FFFFFF"> 
    <td> 
      <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()
%>
<%
end sub

sub jifen()
if request.cookies("snsn")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<%
end sub

sub sqvip()
if request.cookies("snsn")("username")="" or request.cookies("snsn")("reglx")=2 then
response.Redirect "user.asp"
response.End
end if
%>
<table width=370 border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#CCCCCC>
  <tr> 
    <td height=22 bgcolor=#F1F1F1> 
     <br> <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td>
            <%set rs=server.createobject("adodb.recordset")
                              rs.open "select vipsq from shop_config ",conn,1,1
                              response.write rs("vipsq")
                              rs.close
                              set rs=nothing
                              %>
          </td>
        </tr>
      </table>
    <br></td>
  </tr>
  <tr> 
    <td height=22 bgcolor=#FFFFFF>&nbsp;</td>
  </tr>
  <tr> 
    <td height=28 bgcolor=#FFFFFF align=center> 
      <%set rs=server.createobject("adodb.recordset")
	rs.open "select vipid from shop_sys ",conn,1,1
	vipid=rs("vipid")
	rs.close
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from shop_books where bookid="&vipid,conn,1,1%>
      <table width="100%%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td valign="top" width="160"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="2">
              <tr> 
                <td> <div align="center"> 
                    <%if rs("zhuang")="" then 
	response.write "<a href=list.asp?id="&rs("bookid")&" target=_blank><img src=images/emptybook.gif width=150 border=0></a>"
	else%>
                    <table width="150" border="0" cellspacing="0" cellpadding="0" height="150">
                      <tr> 
                        <td background="images/xt.gif"> <div align="center"><a href=list.asp?id=<%=rs("bookid")%> target=_blank><img src="<%=trim(rs("zhuang"))%>" width=115 border=0 height="115" alt="<%=trim(rs("bookname"))%>"></a></div></td>
                      </tr>
                    </table>
                    <%end if%>
                  </div></td>
              </tr>
              <tr> 
                <td> <div align="center">市场价：<s><%=rs("shichangjia")%></s></div></td>
              </tr>
              <tr> 
                <td> <div align="center">会员价：<%=rs("huiyuanjia")%></div></td>
              </tr>
              <tr> 
                <td> <div align="center"><a href="javascript:;" onClick="javascript:window.open('gouwu.asp?id=<%=rs("bookid")%>&action=add','gouwu','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><img src="images/goumai.gif" width="50" height="19" border=0></a>　　<a href="javascript:;" onClick="javascript:window.open('shoucang.asp?id=<%=rs("bookid")%>&action=add','shouchang','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><img src="images/shoucang1.gif" width="50" height="19" border=0></a></div></td>
              </tr>
            </table>
          </td>
          <td valign="top"> 
            <table width="100%%" border="0" cellspacing="0" cellpadding="2">
              <tr> 
                <td><%=rs("bookname")%></td>
              </tr>
              <tr> 
                <td><%=rs("bookcontent")%></td>
              </tr>
              <tr> 
                <td>【评分星级】 
                  <%if rs("pingjizong")>0 and rs("pingji")>0 then
xx=rs("pingjizong")\rs("pingji")
else
xx=5
end if
response.write "<img src=images/pingji/"&xx&".gif alt=评论星级>"%>
                  <br>
                  &nbsp;&nbsp;&nbsp;共有<%=rs("pingji")%>位网友参与打分</td>
              </tr>
              <tr> 
                <td>【<%=rs("mch")%>】<%=rs("bookname")%></td>
              </tr>
              <tr> 
                <td>【<%=rs("isbn1")%>】<%=rs("isbn")%></td>
              </tr>
              <tr> 
                <td>【<%=rs("jj")%>】 
                  <%if rs("kucun")>0 then%>
                  上架 
                  <%else%>
                  下架 
                  <%end if%>
                </td>
              </tr>
              <tr> 
                <td>【所属类别】 
                  <%set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from shop_anclass where anclassid="&rs("anclassid"),conn,1,1
									if rs2.recordcount>0 then
									response.write "<a href=class.asp?lx=big&anid="&rs2("anclassid")&" targer=_blank>"&rs2("anclass")&"</a>　　"
									end if
									rs2.close
									set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from shop_nclass where nclassid="&rs("nclassid"),conn,1,1
									if rs2.recordcount>0 then
									response.write "<a href=class.asp?lx=small&anid="&rs2("anclassid")&"&nid="&rs2("nclassid")&" targer=_blank>"&rs2("nclass")
									end if
									rs2.close
									set rs2=nothing%>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <%rs.close
						  set rs=nothing%>
    </td>
  </tr>
</table>
<%
end sub

sub viphd()
if request.cookies("snsn")("username")="" or request.cookies("snsn")("reglx")=1 then
response.Redirect "user.asp"
response.End
end if
%>
<table width=370 border=0 align=center cellpadding=1 cellspacing=1 bgcolor="#CCCCCC">
  <tr>
    <td bgcolor="#FFFFFF"> 
      <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td>
            <%set rs=server.createobject("adodb.recordset")
                              rs.open "select viphd from shop_config ",conn,1,1
                              response.write rs("viphd")
                              rs.close
                              set rs=nothing
                              %>
          </td>
        </tr>
      </table>
    </td>
</tr>
</table>
<%
end sub

sub shoucang()
if request.cookies("snsn")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<script language="JavaScript">
<!--
var newWindow = null
function windowOpener(loadpos)
{	
  newWindow = window.open(loadpos,'newwindow','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');
	newWindow.focus();
}

//-->
</script>
<table width=370 border=0 align=center cellpadding=2 cellspacing=2><tr>
    <td width=7% > </td>
    <td width=93% valign=baseline> 
      <div align=right>您最多只能收藏十种商品</div></td></tr></table>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_action.actionid,shop_action.bookid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.vipjia,shop_books.dazhe from shop_books inner join  shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.cookies("snsn")("username")&"' and shop_action.zhuangtai=6",conn,1,1 
%>
<table width=370 border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#CCCCCC>
  <form action="sctogw.asp" target="newwindow" method=post name=form1 onsubmit="windowOpener('')">
    <tr bgcolor="#F1F1F1"> 
      <td width=8% height="22"> 
        <div align=center><font color="#666666">选择</font></div>
      </td>
      <td width=42% height="22"> 
        <div align=center><font color="#666666">商品名称</font></div>
      </td>
      <td width=14% height="22"> 
        <div align=center><font color="#666666">市场价</font></div>
      </td>
      <td width=14% height="22"> 
        <div align=center><font color="#666666">会员价</font></div>
      </td>
      <td width=14% height="22"> 
        <div align=center><font color="#666666">VIP 价</font></div>
      </td>
      <td width=8% height="22"> 
        <div align=center><font color="#666666">删除</font></div>
      </td>
    </tr>
    <%do while not rs.eof%>
    <tr bgcolor="#FFFFFF"> 
      <td height="22"> 
        <div align=center>
          <input name=bookid type=checkbox checked value="<%=rs("bookid")%>" >
        </div>
      </td>
      <td STYLE='PADDING-LEFT: 5px' height="22"> 
        <div align=left><a href=list.asp?id=<%=rs("bookid")%> target=_blank><%=rs("bookname")%></a></div>
      </td>
      <td height="22"> 
        <div align=center><s><%=rs("shichangjia")%></s>元</div>
      </td>
      <td height="22"> 
        <div align=center><font color=#dd6600><%=rs("huiyuanjia")%>元</font></div>
      </td>
      <td height="22"> 
        <div align=center></div>
      </td>
      <td height="22"> 
        <div align=center><a href=shoucang.asp?action=del&actionid=<%=rs("actionid")%>&ll=1><img src=images/trash.gif width=15 height=17 border=0></a></div>
      </td>
    </tr>
    <%
rs.movenext
loop
rs.close
set rs=nothing
%>
    <tr bgcolor="#FFFFFF"> 
      <td height=25 colspan=6> 
        <div align="center"> 
          <input name="Submit" type="submit" class="go-wenbenkuang" value="放入购物车" onFocus="this.blur()">
        </div>
      </td>
    </tr>
  </form>
</table>
<%
end sub

sub savepass()
if request.cookies("snsn")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<script language=JavaScript>
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function passcheck()
{
    if(document.userpass.userpassword.value.length < 6 || document.userpass.userpassword.value.length >20) {
	document.userpass.userpassword.focus();
    alert("密码长度不能不能这空，在6位到20位之间，请重新输入！");
	return false;
  }
   if(document.userpass.userpassword.value!==document.userpass.userpassword2.value) {