subuser.asp
来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 706 行 · 第 1/3 页
ASP
706 行
rs0.close
set rs0=nothing
rs1.close
set rs1=nothing
set rs5=server.CreateObject("adodb.recordset")
rs5.Open "select * from shop_songhuo where fangshi=0 order by songidorder",conn,1,1
'//通过ID地址，获得SUBJECT，并存入数组2列
do while not rs5.eof
for i2=0 to i4-1
if rs5("songid")= sid(i2,0) then
sid(i2,1) = rs5("subject")
end if
next
rs5.movenext
loop
rs5.close
set rs5=nothing
response.write "<select name=songid size=5 id=songid>"
'//显示整个2维数组
for i3=0 to i4-1
if sid(i3,0)=rs("songid") then
response.write "<option selected value=" &sid(i3,0)& ">" &sid(i3,1)& "</option>"
else
response.write "<option value=" &sid(i3,0)& ">" &sid(i3,1)& "</option>"
end if
next
response.Write "</select>"
response.Write "<font color=red> 送货上门限制于北京地区四环以内</font>"
response.Write "</tr><tr><td align=right><b>支付方式：</b></td><td>"
'////////////支付方式
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select * from shop_songhuo where fangshi=1 order by songidorder",conn,1,1
response.Write "<select name=zhifufangshi size="&rs2.recordcount&" id=zhifufangshi>"
do while not rs2.eof
response.Write "<option value="&rs2("songid")
if int(rs("zhifufangshi"))=int(rs2("songid")) then
response.Write " selected>"
else
response.Write ">"
end if
response.Write trim(rs2("subject"))&"</option>"
rs2.movenext
loop
response.Write "</select>"
rs2.close
set rs2=nothing
response.Write "<font color=red> 如要发票将增加购书款5%的税费</font>"
response.Write "</tr></table>"
response.Write "<tr bgcolor='#ffffff'><td height=32 colspan=2 ><div align=right STYLE='PADDING-right: 100px'><input type=submit name=Submit value=提交保存 onclick='return checkshouhuoxx();'></div></td></tr>"
response.Write "</form></table>"
rs.close
set rs=nothing
'////////////有信息资料
case "1"
set rs=server.CreateObject("adodb.recordset")
rs.open "select shouname,shousex,shengshi,city,shouhuodizhi,youbian,usertel,songid,zhifufangshi,blnedit from shop_user where username='"&request.cookies("bookshop")("username")&"' ",conn,1,1
response.Write "<br><table width=96% border=0 cellpadding=0 cellspacing=1 bgcolor='#cccccc'>"
response.write "<tr><td bgcolor='#ffffff'>"
response.Write "<table width=100% border=0 align=center cellpadding=0 cellspacing=1 >"
response.Write "<tr><td width='8%' STYLE='PADDING-LEFT: 10px'><b>姓名</b></td>"
response.Write "<td><font color=#ff3300>"&trim(rs("shouname"))&"</font>"
response.Write " <b>性别 </b><font color=#ff3300>"
select case rs("shousex")
case "0"
response.Write "男"
case "1"
response.Write "女"
end select
response.write "</font></td></tr>"
response.write "<tr><td width='8%' STYLE='PADDING-LEFT: 10px'><b>省市</b></td><td><font color=#ff3300>"
'////////////省份
set rss=server.CreateObject("adodb.recordset")
rss.Open "select * from shop_sheng where shengid="&trim(rs("shengshi")),conn,1,1
response.write trim(rss("shengname"))
rss.Close
set rss=nothing
response.Write "</font></td></tr>"
response.write "<tr><td width='8%' STYLE='PADDING-LEFT: 10px'><b>城区</b></td><td><font color=#ff3300>"
'////////////城区
set rsc=server.CreateObject("adodb.recordset")
rsc.Open "select * from shop_city where cityid="&trim(rs("city")),conn,1,1
response.write trim(rsc("cityname"))
rsc.Close
set rsc=nothing
response.Write "</font></td></tr>"
response.Write "<tr><td width='8%' STYLE='PADDING-LEFT: 10px'><b>地址</b></td><td><font color=#ff3300>"&trim(rs("shouhuodizhi"))&"</font></td></tr>"
response.Write "<tr><td width='8%' STYLE='PADDING-LEFT: 10px'><b>邮编</b></td><td><font color=#ff3300>"&cstr(rs("youbian"))&"</font></td></tr>"
response.Write "<tr><td width='8%' STYLE='PADDING-LEFT: 10px'><b>电话</b></td><td><font color=#ff3300>"&trim(rs("usertel"))&"</font></td></tr>"
response.Write "<tr><td width='8%' STYLE='PADDING-LEFT: 10px'><b>送货</td><td><font color=#ff3300>"
'////////////送货方式
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select subject from shop_songhuo where songid="&trim(rs("songid")),conn,1,1
response.write trim(rs2("subject"))
rs2.Close
set rs2=nothing
response.Write "</font></td></tr>"
response.Write "<tr><td width='8%' STYLE='PADDING-LEFT: 10px'><b>支付</b></td><td><font color=#ff3300>"
'////////////支付方式
set rs3=server.CreateObject("adodb.recordset")
rs3.Open "select * from shop_songhuo where songid="&trim(rs("zhifufangshi")),conn,1,1
response.write trim(rs3("subject"))
rs3.Close
set rs3=nothing
response.Write "</font></td></tr></table>"
response.Write "<tr bgcolor='#ccccff'><td height=32 colspan=2 STYLE='PADDING-LEFT: 120px'><a href='myuser.asp?action=shouhuoxx&actionx=0'><img src='images\edit.gif' border='0'></a>"
response.Write "</table>"
rs.close
set rs=nothing
end select
end sub
'////////////////////////帐户余额
sub zhancunkuan()
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
response.Write "<br><table width=60% border=0 bgcolor='#6699ff' cellpadding=1 cellspacing=1>"
response.Write "<tr><td width=7% height=16 bgcolor='#ccccff' STYLE='PADDING-LEFT: 20px'><font color=#FF3300>★</font></td><td width=93% bgcolor='#ccccff' STYLE='PADDING-LEFT: 10px'>您目前的暂存款金额为：0.00元（人民币）</td></tr>"
response.Write "<tr><td height=16 bgcolor='#ffffff' STYLE='PADDING-LEFT: 20px'><font color=#FF3300>★</font></td><td bgcolor='#ffffff' STYLE='PADDING-LEFT: 10px'>退款记录</td></tr>"
response.Write "<tr><td height=16 bgcolor='#ccccff' STYLE='PADDING-LEFT: 10px'> </td><td bgcolor='#ccccff' STYLE='PADDING-LEFT: 10px'><font color=#FF3300>对不起，目前还不支持此功能！</font></td></tr>"
response.Write "</table>"
end sub
'////////////////////////聚知网券
sub gouwujuan()
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
response.Write "<br><table width=60% border=0 cellpadding='0' cellspacing='1' bgcolor='#6699ff'>"
response.Write "<tr><td colspan=2 STYLE='PADDING-LEFT: 20px' bgcolor='#ccccff'><font color=#FF3300>★</font> 您现在共有 <font color=#FF3300>0</font> 张购物券。总计金额 <font color=#FF3300>0</font> 元。</td></tr>"
response.Write "<tr><td width=24% bgcolor=#FFFFFF><div align=center>购物券编号</div></td><td width=76% bgcolor=#FFFFFF><div align=center>购物券金额</div></td></tr>"
response.Write "<tr><td colspan=2 bgcolor='#ccccff'><div align=center><font color=#FF3300>对不起，目前还不支持此功能！</font></div></td></tr>"
response.Write "</table>"
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 shop_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
if rs("zonger")>0 then
chengjiaozonger=formatnumber(rs("zonger"),2)
else
chengjiaozonger=0
end if
rs.close
rs.open "select distinct(dingdan) 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 "<br><table width=60% border=0 cellpadding='0' cellspacing='1' bgcolor='#6699ff'>"
response.Write "<tr><td width=35% height=14 bgcolor='#ccccff'><div align=right>会员注册日期：</div></td><td width=78% bgcolor='#ccccff'> "&zhucedate&"</td></tr>"
response.Write "<tr><td height=14 bgcolor='#ffffff'><div align=right>下单次数：</div></td><td bgcolor='#ffffff'> "&xiadan&"次</td></tr>"
response.Write "<tr><td height=14 bgcolor='#ccccff'><div align=right>成交次数：</div></td><td bgcolor='#ccccff'> "&chengjiao&"次</td></tr>"
response.Write "<tr><td height=14 bgcolor='#ffffff'><div align=right>成交订单总金额：</div></td><td bgcolor='#ffffff'> "&chengjiaozonger&"元</td></tr>"
response.Write "<tr><td height=14 bgcolor='#ccccff'><div align=right>上一次下单时间：</div></td><td bgcolor='#ccccff'> "&lastxiadan&"</td></tr>"
response.Write "<tr><td height=14 bgcolor='#ffffff'><div align=right>暂存款总计：</div></td><td bgcolor='#ffffff'>0.00元</td></tr>"
response.Write "<tr><td height=14 bgcolor='#ccccff'><div align=right>是否订阅本站周刊：</div></td><td bgcolor='#ccccff'>暂不支持此功能</td></tr>"
response.Write "</table>"
end sub
'////////////////////////用户登录
sub logins()
dim url
url=Request.ServerVariables("HTTP_REFERER")
response.write "<table width=776 align=center border=0>"
response.write "<tr><td valign=top>"
response.write "<table border=0>"
response.write "<tr><td>"
response.write "<table width=185 border=0 bgcolor='#ff6600' cellpadding='0' cellspacing='1'>"
response.write "<form name=loginfo method=post action=chkuser.asp>"
response.write "<tr><td align=center colspan=2 height=20><b>登录聚知</b>"
response.write "<tr><td><table width='100%' bgcolor=#ffffff><tr><td align=right width='40%'>用户名：<td><input name=username type=text id=username size=12><input name=comeurl type=hidden value="&url&"></td></tr>"
response.write " <tr><td align=right width='40%'>密码：<td><input name=userpassword type=password id=password size=12></td></tr>"
response.write "<tr><td> <a href=myuser.asp?action=repass>忘记密码？</a><td><input type=submit name=Submit value=登 录 onClick='return checkuu();'></td></tr>"
response.write "</form></table>"
response.write "</table>"
response.write "<tr><td height=15>"
response.write "<tr><td>如果您还没有在聚知网注册<br>请点击这里注册 <a href=reg.asp>我要注册>></a>"
response.write "</table>"
response.write "<td valign=top>"
response.write "<table width='100%' border=0>"
response.write "<tr><td><font size=2><b><<--您要访问的是<font color=red><i> 我的帐户 </i></font>请先登录！</b></font></td></tr>"
response.write "<td valign=top><table width='100%' bgcolor='#e6e2e1' border=0 cellspacing=0 cellpadding=1>"
response.write "<tr><td style='padding-left:10px'><b>为什么要使用我的帐户<font size=3 color=red>？</font></td></tr>"
response.write "<tr><td><font color=red>《1》</font><font color=#008000>我的首页<br> 为您第一时间推荐本网站的热销图书,还可以通过电子邮件收到最新上架图书的介绍。"
response.write "<tr><td><font color=red>《2》</font><font color=#008000>修改密码<br> 您可以修改在网站的注册密码，确保您密码的安全。</td>"
response.write "<tr><td><font color=red>《3》</font><font color=#008000>取回密码<br> 忘记登录密码时，您可以取回密码。"
response.write "<tr><td><font color=red>《4》</font><font color=#008000>我的订单<br> 您可以查询、修改、取消订单，并且了解订单的处理状态，还可以删除不想要的订单。</td>"
response.write "<tr><td><font color=red>《5》</font><font color=#008000>我的收藏<br> 查看或修改您在网站收藏架中的所有内容，您可以将自己喜欢的图书放入收藏夹。"
response.write "<tr><td><font color=red>《6》</font><font color=#008000>个人信息<br> 您可以增加或更改收货人的详细信息，以便在评论图书的时读者更全面了解您。</td>"
response.write "<tr><td><font color=red>《7》</font><font color=#008000>帐户余额<br> 查询暂存款中的详细信息和明细,当您的购书汇款有剩余时，余额将可留下次购书时使用。"
response.write "<tr><td><font color=red>《8》</font><font color=#008000>聚知网券<br> 查看本网站购物券的详细信息和促销信息。</td>"
response.write "<tr><td><font color=red>《9》</font><font color=#008000>统计信息<br> 查看您在本站中的一些交易数据。"
response.write "<tr><td><font color=red>《10》</font><font color=#008000>退出登陆<br> 退出或重新登录网站。</td>"
response.write "<tr><td height=5>"
response.write "</table>"
response.write "</table>"
response.write "</table>"
end sub
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?