disuser.asp

电子商务网络购物系统

set rs=server.CreateObject("adodb.recordset")
rs.open "select quesion,answer from [user] where username='"&trim(request("username"))&"' ",conn,1,1
if rs.eof and rs.bof then
response.write "<center><br>查无此用户，请返回！</center>"
else
response.Write "<br><table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=shop1 method=post action=profile.asp?action=repass&shop=2>"
response.Write "<tr><td width=21% bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'>您的密码提问：</td><td width=79% height=28 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'><font color=red>"&trim(rs("quesion"))&"</font><input type=hidden name=username1 value="&trim(request("username"))&" ID=Hidden1></td></tr>"
response.Write "<tr><td bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'>您的密码答案：</td><td height=28 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'><input name=answer type=text id=answer></td></tr>"
response.Write "<tr bgcolor=#ffffff><td height=32 colspan=2 STYLE='PADDING-LEFT: 50px'><input type=submit name=Submit2 value=确&nbsp;定 onclick='return check1();'></td></tr>"
response.Write "</form></table>"
end if
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('对不起，您输入的问题答案不正确');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=shop2 method=post action=saveprofile.asp?action=repass>"
response.Write "<tr><td width=20% bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>请输入新密码：</td><td width=80% height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><input name=password1 type=password id=password1><input type=hidden name=username2 value="&trim(request("username1"))&"></td></tr>"
response.Write "<tr><td bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>输入确认密码：</td><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><input name=password2 type=password id=password2></td></tr>"
response.Write "<tr><td height=32 colspan=2 bgcolor=#FFFFFF 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("timesshop")("username")="" then
response.Redirect "profile.asp?action=login"
response.End
end if

dim joindtm,myorder,successed,successedsum,lastorder
set rs=server.CreateObject("adodb.recordset")
rs.open "select adddate from [user] where username='"&request.cookies("timesshop")("username")&"'",conn,1,1
joindtm=rs("adddate")
rs.close
rs.open "select distinct(goods),actiondate from orders where username='"&request.cookies("timesshop")("username")&"' and state<6 ",conn,1,1
if rs.eof and rs.bof then
response.write ""
else
rs.movelast
lastorder=rs("actiondate")
myorder=rs.recordcount
end if
rs.close
rs.open "select sum(paid) as paid from orders where username='"&request.cookies("timesshop")("username")&"' and state<6 and state>3",conn,1,1 
if rs("paid")>0 then
successedsum=rs("paid")
else
successedsum=0
end if
rs.close
rs.open "select distinct(goods) from orders where username='"&request.cookies("timesshop")("username")&"' and state<6 and state>3",conn,1,1
successed=rs.recordcount
set rs=nothing %>

<table width=96% border=0 align=center cellpadding=2 cellspacing=1 bgcolor=#FFFFFF>
<tr><td height=14 colspan=2 align="center"><br>以下是您在本站的一些历史记录的统计信息</td></tr>
<tr><td height="5"></td></tr>
<tr height=14  bgcolor=#FFFFFF>
<td align=right>注册日期：</td><td width=56%>&nbsp;<% =joindtm %></td></tr>
<tr height=14  bgcolor=#FFFFFF><td align=right>上次下单：</td><td>&nbsp;<% =lastorder %></td></tr>
<tr height=14  bgcolor=#FFFFFF><td align=right>下单次数：</td><td>&nbsp;<% = myorder %>次</td></tr>
<tr height=14  bgcolor=#FFFFFF><td align=right>成交次数：</td><td>&nbsp;<% =successed %>次</td></tr>
<tr height=14  bgcolor=#FFFFFF><td align=right>成交金额：</td><td>&nbsp;<% =successedsum %>元</td></tr>
</table>
<%
end sub

sub goods()
if request.cookies("timesshop")("username")="" then
response.Redirect "profile.asp?action=login"
response.End
end if
%>
<table border="0" cellpadding="0" cellspacing="0" align="center" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%"> 
<tr><td> 
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1"> 
<tr><td width="55%"> <div align="right"><font color="#FF6600"><B><FONT COLOR="#000000">我 的 订 单</FONT></B></font></div></td>
<td width="49%" align="right"><select name="state" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" > 
<option value="profile.asp?action=goods&state=0" selected>--请选择查询状态--</option> 
<option value="profile.asp?action=goods&state=0" >全部订单状态</option> <option value="profile.asp?action=goods&state=1" >未作任何处理</option> 
<option value="profile.asp?action=goods&state=2" >用户已经划出款</option> <option value="profile.asp?action=goods&state=3" >服务商已经收到款</option> 
<option value="profile.asp?action=goods&state=4" >服务商已经发货</option> <option value="profile.asp?action=goods&state=5" >用户已经收到货</option> 
</select></td></tr> </table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor=<%=bgclr1%>> 
<tr align="center"> 
<td><font color="#FFFFFF">订单号</font></td>
<td><font color="#FFFFFF">合计金额</font></td>
<td><font color="#FFFFFF">收货人</font></td>
<td><font color="#FFFFFF">订货人</font></td>
<td><font color="#FFFFFF">付款方式</font></td>
<td><font color="#FFFFFF">收货方式</font></td>
<td><font color="#FFFFFF">订单日期</font></td>
<td><font color="#FFFFFF">订单状态</font></td>
</tr> 
<%set rs=server.CreateObject("adodb.recordset")
  dim state
  state=request.QueryString("state")
  if state=0 or state="" then
  select case state
  case "0"
  rs.open "select distinct(goods),realname,actiondate,recepit,deliverymethord,paymethord,state from orders where username='"&request.cookies("timesshop")("username")&"' and state<6 order by actiondate desc",conn,1,1
  case ""
  rs.open "select distinct(goods),realname,actiondate,recepit,deliverymethord,paymethord,state from orders where username='"&request.cookies("timesshop")("username")&"' and state<5 order by actiondate desc",conn,1,1
  end select
  else
  rs.open "select distinct(goods),realname,actiondate,recepit,deliverymethord,paymethord,state from orders where username='"&request.cookies("timesshop")("username")&"' and state="&state&" order by actiondate",conn,1,1
  end if

  do while not rs.eof
   %> 
   <tr bgcolor=#ffffff align="center">
   <td ><a href=# onClick="javascript:window.open('chkorder.asp?dan=<%=trim(rs("goods"))%>','','width=710,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><%=trim(rs("goods"))%></a></td>
   <td> 
   <%dim shop,rs2
	set rs2=server.CreateObject("adodb.recordset")
	rs2.open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
	set shop=server.CreateObject("adodb.recordset")
	shop.open "select sum(paid) as paid from orders where goods='"&trim(rs("goods"))&"' ",conn,1,1
	response.write "<font color=#FF6600>"&shop("paid")+rs2("fee")&"元</font>"
	shop.close
	set shop=nothing
	rs2.close
	set rs2=nothing%></td>
	<td><%=trim(rs("recepit"))%></td>
	<td><%=trim(rs("realname"))%></td>
	<td><%set rs2=server.CreateObject("adodb.recordset")
        rs2.open "select * from delivery where deliveryid="&rs("paymethord"),conn,1,1
        response.Write trim(rs2("subject"))
        rs2.close
        set rs2=nothing%></td>
		<td align="center"><%set rs2=server.CreateObject("adodb.recordset")
        rs2.open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
        response.Write trim(rs2("subject"))
        rs2.close
        set rs2=nothing
        %></td>
		<td><%=trim(rs("actiondate"))%></td>
		<td><%select case rs("state")
	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>
  <%end sub
sub loginnum()
dim url
url=Request.ServerVariables("HTTP_REFERER") %>
<table width=56% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>
<form name=loginfo method=post action=chkuser.asp>
<tr bgcolor=#ffffff>
<td width=35% height=19 style='padding-left:6px' align=right>用户名：</td>
<td width=65% style='padding-left:6px'><input name=username type=text id=username size=12><input name=comeurl type=hidden value="&url&">&nbsp;<a href=reg.asp>还没注册？</a></td></tr>
<tr bgcolor=#ffffff><td height=18 style='padding-left:6px' align=right>密 &nbsp;码：</td>
<td style='padding-left:6px'><input name=password type=password id=password size=12>&nbsp;<a href=profile.asp?action=repass>忘记密码？</a></td></tr>
<tr bgcolor=#ffffff height=30>
 <td>&nbsp;</td>
<td><input type=submit name=Submit value="登 录" onClick='return checkuu();'>
         <input type="reset" name="Submit2" value="清 除"> 
</td></tr>
</form></table>
<%
end sub
%> </td></tr> </table>
<SCRIPT LANGUAGE="JavaScript" SRC="fly.js">
</SCRIPT><DIV  ID=floater 
 STYLE="Z-INDEX: 20; WIDTH: 181px; POSITION: absolute; TOP: 300px; overflow: visible;; left: 000px; height: 25px">
 <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=*> 
<TBODY><TR> <TD WIDTH=7><IMG HEIGHT=8 SRC="images/top_l.gif" WIDTH=14></TD>
								<TD BACKGROUND=images/top_c.gif></TD><TD WIDTH=16><IMG HEIGHT=8 SRC="images/top_r.gif" WIDTH=16></TD></TR>
					<TR><TD BACKGROUND=images/centerl.gif VALIGN=top WIDTH=7></TD>
					<TD BGCOLOR="fffff1"><!--#include file="note.asp"--> </TD>
					<TD BACKGROUND=images/centerr.gif VALIGN=top WIDTH=16><IMG HEIGHT=8 SRC="images/top_r2.gif" WIDTH=16></TD></TR>
					</TBODY></TABLE></DIV>