subuser.asp
来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 706 行 · 第 1/3 页
ASP
706 行
<!--#include file="userfunction.asp"-->
<%
'////////////////////////我的首页
sub userziliao()
dim i
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select top 10 liulancount,bookid,shichangjia,huiyuanjia,dazhe,bookname from shop_books order by chengjiaocount desc",conn,1,1
response.Write "<br><table width=96% border=0 cellpadding='0' cellspacing='1' bgcolor='#6699ff'>"
response.Write "<td width=45% bgcolor=#ccccff><div align=center>书名</div></td>"
response.Write "<td width=10% bgcolor=#ccccff><div align=center>人气</div></td>"
response.Write "<td width=10% bgcolor=#ccccff><div align=center>市场价</div></td>"
response.Write "<td width=10% bgcolor=#ccccff><div align=center>会员价</div></td>"
response.Write "<td width=10% bgcolor=#ccccff><div align=center>折 扣</div></td>"
response.Write "<td width=15% bgcolor=#ccccff><div align=center>购 买</div></td>"
do while not rs2.eof
response.write "<tr><td bgcolor='#ffffff' STYLE='PADDING-LEFT: 5px'><div align=left><a href=book.asp?id="&rs2("bookid")&" target=_blank>"&rs2("bookname")&"</a></div></td>"
response.write "<td bgcolor='#ffffff'><div align=center>"&(rs2("liulancount"))&"</div></td>"
response.write "<td bgcolor='#ffffff'><div align=center>"&formatnumber(rs2("shichangjia"),2)&"元</div></td>"
response.write "<td bgcolor='#ffffff'><div align=center><font color=#FF6600>"&formatnumber(rs2("huiyuanjia"),2)&"元</font></div></td>"
response.write "<td bgcolor='#ffffff'><div align=center>"&formatnumber(rs2("dazhe")*100,2)&"%</div></td>"
response.write "<td bgcolor='#ffffff'><div align=center><a href=# onClick=""javascript:window.open('add_bk.asp?bookid="&rs2("bookid")&"&purchase=1','','width=730,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;""><img src=images/ind_gw.gif width=43 height=12 border=0 align='middle'></a></div></td>"
i=i+1
if i>=10 then exit do
rs2.movenext
loop
response.Write "</table>"
response.Write "</table>"
response.Write "</table>"
end sub
'////////////////////////修改密码
sub savepass()
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
response.write "<br><table width=35% border=0 cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=userpass method=post action=saveuserinfo.asp?action=savepass>"
response.Write "<tr><td align=right>用户名：</td><td><font color=#FF6600>"&request.cookies("bookshop")("username")&"</font></td></tr>"
response.Write "<tr><td align=right>原密码：</td><td><input name=userpassword type=password id=userpassword></td></tr>"
response.Write "<tr><td align=right>新密码：</td><td><input name=userpassword1 type=password id=userpassword1></td></tr>"
response.Write "<tr><td align=right>确认密码：</td><td><input name=userpassword2 type=password id=userpassword2></td></tr>"
response.Write "<tr><td height=32 colspan=2 STYLE='PADDING-LEFT: 70px'><input type=submit name=Submit value=确认修改 onclick='return checkrepass();'></td></tr>"
response.Write "</form></table>"
end sub
'////////////////////////取回密码
sub repass()
dim getpass //定义变量
getpass=request.QueryString("getpass") //获取表单提交的行为值
select case getpass
//输入用户名
case ""
response.Write "<br><table width=50% border=0 cellpadding=01 cellspacing=1>"
response.Write "<form name=getpass0 method=post action=myuser.asp?action=repass&getpass=user_name>"
response.Write "<tr><td width='80%'>请输入您的用户名： <input name=username type=text id=username size=16>"
response.Write "<td width='20%'><input type=submit name=Submit value=确 定 onclick='return check0();'></td></tr>"
response.Write "</form></table>"
//查询用户名
case "user_name"
set rs=server.CreateObject("adodb.recordset")
rs.open "select quesion,answer from shop_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=50% border=0 cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=getpass1 method=post action=myuser.asp?action=repass&getpass=ques_answ>"
response.Write "<tr><td align=right>您的密码提问：</td><td><font color=red>"&trim(rs("quesion"))&"</font><input type=hidden name=username1 value="&trim(request("username"))&" ID=Hidden1></td></tr>"
response.Write "<tr><td align=right>您的密码答案：</td><td><input name=answer type=text id=answer></td></tr>"
response.Write "<tr><td colspan=2 STYLE='PADDING-LEFT: 130px'><input type=submit name=Submit2 value=确 定 onclick='return check1();'></td></tr>"
response.Write "</form></table>"
end if
rs.close
set rs=nothing
case "ques_answ"
set rs=server.CreateObject("adodb.recordset")
rs.open "select answer from shop_user where username='"&trim(request("username1"))&"' ",conn,1,1
//判断答案是否正确
if trim(rs("answer"))<>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=50% border=0 cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=getpass2 method=post action=saveuserinfo.asp?action=repass>"
response.Write "<tr><td align=right>请输入新密码：</td><td><input name=userpassword1 type=password id=userpassword1><input type=hidden name=username2 value="&trim(request("username1"))&"></td></tr>"
response.Write "<tr><td align=right>输入确认密码：</td><td><input name=userpassword2 type=password id=userpassword2></td></tr>"
response.Write "<tr><td colspan=2 STYLE='PADDING-LEFT: 125px'><input type=submit name=Submit3 value=确 定 onclick='return check2();'></td></tr>"
response.Write "</form></table>"
end if
rs.close
set rs=nothing
end select
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><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="98%" border="0" cellpadding="0" cellspacing="1" bgcolor='#6699ff'>
<tr>
<td bgcolor="#ccccff"><div align="center">订单号</div></td>
<td bgcolor="#ccccff"><div align="center">金额（元）</div></td>
<td bgcolor="#ccccff"><div align="center">订货人</div></td>
<td bgcolor="#ccccff"><div align="center">付款方式</div></td>
<td bgcolor="#ccccff"><div align="center">收货方式</div></td>
<td bgcolor="#ccccff"><div align="center">订单状态</div></td>
<td bgcolor="#ccccff"><div align="center">可用操作</div></td>
</tr>
<%
dim zhuangtai
zhuangtai=request.QueryString("zhuangtai") //获取状态的值
set rs=server.CreateObject("adodb.recordset")
//根据状态的不同值，显示不同的查询结果
if zhuangtai=0 or zhuangtai="" then
select case zhuangtai
case "0"
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songid,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<6 order by actiondate desc",conn,1,1
case ""
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songid,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<5 order by actiondate desc",conn,1,1
end select
else
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songid,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=#ffffff><div align="center"><%=trim(rs("dingdan"))%></div></td>
<td bgcolor=#ffffff><div align="center">
<%
dim Mon_rs,rs2,czonger,dandan_del
dandan_del=trim(rs("dingdan")) //获取订单号
//多表联接查询会员订单信息
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select shop_songhuo.subject,shop_songhuo.jsmoney,shop_songhuo.gsmoneyside,shop_songhuo.gsmoneybili,shop_action.blnisfp FROM shop_action INNER JOIN shop_songhuo ON shop_action.songid = shop_songhuo.songid where shop_action.username='"&request.Cookies("bookshop")("username")&"' and dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
//计算会员订单的总购书金额
set Mon_rs=server.CreateObject("adodb.recordset")
Mon_rs.open "select sum(zonger) as zonger from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
//计算开发票的加收金额
if rs2("blnisfp")="on" then
czonger=Mon_rs("zonger")*1.05
else
czonger=Mon_rs("zonger")
end if
//根据送货方式,计算加收金额
if czonger<rs2("gsmoneyside") then
response.write "<font color=#FF6600>"&formatnumber((czonger+rs2("jsmoney")),2)&"</font>"
else
if czonger<2*rs2("gsmoneyside") then
response.write "<font color=#FF6600>"&formatnumber((rs2("jsmoney")+czonger*(1+rs2("gsmoneybili")*0.5)),2)&"</font>"
else
response.write "<font color=#FF6600>"&formatnumber((rs2("jsmoney")+czonger*(1+rs2("gsmoneybili"))),2)&"</font>"
end if
end if
Mon_rs.close
set Mon_rs=nothing
rs2.close
set rs2=nothing
%></div></td>
<td bgcolor=#ffffff><div align="center"><%=trim(rs("userzhenshiname"))%></div></td>
<td bgcolor=#ffffff><div align="center">
<% //显示支付方式
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_songhuo where songid="&rs("zhifufangshi"),conn,1,1
response.Write trim(rs2("subject"))
rs2.close
set rs2=nothing%></div></td>
<td bgcolor=#ffffff><div align="center">
<% //显示送货方式
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_songhuo where songid="&rs("songid"),conn,1,1
response.Write trim(rs2("subject"))
rs2.close
set rs2=nothing%></div></td>
<td bgcolor=#ffffff><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>
<% //根据状态值显示“删除”链接
if rs("zhuangtai")=1 then%>
<td bgcolor=#ffffff><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;">查看</a> | <a href=savedingdan.asp?action=del&dan=<%=dandan_del%>>删除</a> </div></td>
<%else%>
<td bgcolor=#ffffff><div align="right">
<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;">查看</a> </div></td>
<%end if%></div></td>
</tr>
<%
rs.movenext
loop
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?