subuser.asp

网上书店是指在网上建立一个在线销售的图书平台,购书者可以实现在线定单提交,达到买书的目的.

rs.close
set rs=nothing
'//输入新密码
case "2"
set rs=server.CreateObject("adodb.recordset")
rs.open "select answer from [user] where username='"&trim(request("username1"))&"' ",conn,1,1
'//判断答案是否正确
if trim(rs("answer"))<>md5(trim(request("answer"))) then
response.write "<script language=javascript>alert('对不起，您输入的问题答案不正确');window.location.reload('javascript:history.go(-1)')</script>"
response.end
else
response.Write "<br><table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=ckxp2 method=post action=saveuserinfo.asp?action=repass>"
response.Write "<tr><td width=20% bgcolor=#EFF5FE STYLE='PADDING-LEFT: 20px'>请输入新密码：</td><td width=80% height=28 bgcolor=#EFF5FE STYLE='PADDING-LEFT: 20px'><input name=userpassword1 type=password id=userpassword1><input type=hidden name=username2 value="&trim(request("username1"))&"></td></tr>"
response.Write "<tr><td bgcolor=#EFF5FE STYLE='PADDING-LEFT: 20px'>输入确认密码：</td><td height=28 bgcolor=#EFF5FE STYLE='PADDING-LEFT: 20px'><input name=userpassword2 type=password id=userpassword2></td></tr>"
response.Write "<tr><td height=32 colspan=2 bgcolor=#EFF5FE STYLE='PADDING-LEFT: 50px'><input type=submit name=Submit3 value=确&nbsp;定 onclick='return check2();'></td></tr>"
response.Write "</form></table>"
end if
rs.close
set rs=nothing
end select
end sub
'////////////////////////信息统计
sub statinfo()
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
'//添加到数据库
dim zhucedate,xiadan,chengjiao,chengjiaozonger,lastxiadan
set rs=server.CreateObject("adodb.recordset")
rs.open "select adddate from [user] where username='"&request.cookies("bookshop")("username")&"'",conn,1,1
zhucedate=rs("adddate")
rs.close
rs.open "select distinct(dingdan),actiondate from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<6 ",conn,1,1
if rs.eof and rs.bof then
response.write ""
else
rs.movelast
lastxiadan=rs("actiondate")
xiadan=rs.recordcount
end if
rs.close
rs.open "select sum(zonger) as zonger from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<6 and zhuangtai>3",conn,1,1 
chengjiaozonger=rs("zonger")
chengjiaozonger=rs("zonger")
rs.close
rs.open "select actionid from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<6 and zhuangtai>3",conn,1,1
chengjiao=rs.recordcount
set rs=nothing
'//HTML显视
response.Write "<table width=96% border=0 align=center cellpadding=2 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<tr><td height=14 colspan=2>以下是您在本站的一些历史记录的统计信息</td></tr>"
response.Write "<tr><td width=22% height=14 bgcolor=#EFF5FE><div align=right>会员注册日期：</div></td><td width=78% bgcolor=#EFF5FE>&nbsp;"&zhucedate&"</td></tr>"
response.Write "<tr><td height=14 bgcolor=#EFF5FE><div align=right>下单次数：</div></td><td bgcolor=#EFF5FE>&nbsp;"&xiadan&"次</td></tr>"
response.Write "<tr><td height=14 bgcolor=#EFF5FE><div align=right>成交次数：</div></td><td bgcolor=#EFF5FE>&nbsp;"&chengjiao&"次</td></tr>"
response.Write "<tr><td height=14 bgcolor=#EFF5FE><div align=right>成交订单总金额：</div></td><td bgcolor=#EFF5FE>&nbsp;"&chengjiaozonger&"元</td></tr>"
response.Write "<tr><td height=14 bgcolor=#EFF5FE><div align=right>上一次下单时间：</div></td><td bgcolor=#EFF5FE>&nbsp;"&lastxiadan&"</td></tr>"
response.Write "<tr><td height=14 bgcolor=#EFF5FE><div align=right>暂存款总计：</div></td><td bgcolor=#EFF5FE>0.00元</td></tr>"
response.Write "<tr><td height=14 bgcolor=#EFF5FE><div align=right>是否订阅本站周刊：</div></td><td bgcolor=#EFF5FE>暂不支持此功能</td></tr>"
response.Write "</table>"
end sub
'//////////////////////////订单查询
sub dingdan()
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr> 
    <td width="55%"><div align="right"><font color="#FF6600">我 的 订 单</font></div></td>
    <td width="49%"><div align="right">
        <select name="zhuangtai" onchange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
          <option value="myuser.asp?action=dingdan&zhuangtai=0" selected>--请选择查询状态--</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=0" >全部订单状态</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=1" >未作任何处理</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=2" >用户已经划出款</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=3" >服务商已经收到款</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=4" >服务商已经发货</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=5" >用户已经收到货</option>
        </select>
      </div></td>
  </tr>
</table>
<table width="96%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
  <tr> 
    <td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">订单号</font></div></td>
    <td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">合计金额</font></div></td>
    <td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">收货人</font></div></td>
    <td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">订货人</font></div></td>
    <td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">付款方式</font></div></td>
    <td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">收货方式</font></div></td>
    <td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">订单状态</font></div></td>
  </tr>
  <%set rs=server.CreateObject("adodb.recordset")
  dim zhuangtai
  zhuangtai=request.QueryString("zhuangtai")
  if zhuangtai=0 or zhuangtai="" then
  rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<6 order by actiondate desc",conn,1,1
  else
  rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
  end if
  do while not rs.eof

   %>
  <tr> 
    <td bgcolor="#EFF5FE"><div align="center"><a href=# onClick="javascript:window.open('dingdan.asp?dan=<%=trim(rs("dingdan"))%>','','width=710,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><%=trim(rs("dingdan"))%></a></div></td>
    <td bgcolor="#EFF5FE"><div align="center"><%dim ckxp,qita
	'////判断送货方式要加收的金额
	select case rs("songhuofangshi")
	case "1"
	qita=6
	case "2"
	qita=20
	end select
	set ckxp=server.CreateObject("adodb.recordset")
	ckxp.open "select sum(zonger) as zonger from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
	response.write "<font color=#FF6600>"&formatnumber(ckxp("zonger")+qita,2)&"元</font>"
	ckxp.close
	set ckxp=nothing%></div></td>
    <td bgcolor="#EFF5FE"><div align="center"><%=trim(rs("shouhuoname"))%></div></td>
    <td bgcolor="#EFF5FE"><div align="center"><%=trim(rs("userzhenshiname"))%></div></td>
    <td bgcolor="#EFF5FE"><div align="center"> 
        <%select case rs("zhifufangshi")
	case "1"
	response.write "邮局汇款"
	case "2"
	response.write "建设银行汇款"
	case "3"
	response.write "交通银行汇款"
	end select%>
      </div></td>
    <td bgcolor="#EFF5FE"><div align="center"> 
        <%select case rs("songhuofangshi")
	case "1"
	response.write "普通平邮"
	case "2"
	response.write "特快专递（EMS）"
	end select%>
      </div></td>
    <td bgcolor="#EFF5FE"><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%>