📄 cartfunction.asp
字号:
bkindex=i
Session("bkindex") = bkindex
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 "<table width=95% border=0 align=center cellpadding=0 cellspacing=1 bgcolor='#e8e8e8'>"
response.write "<tr><td STYLE='PADDING-LEFT: 10px'><img src='images\buylist.gif' border='0'></td><td align=center><b>您的订单个人信息</b></td><td align=right STYLE='PADDING-right: 10px'><img src='images\buylist.gif' border='0'></td></tr>"
response.Write "</table>"
response.Write "<table width=95% border=0 align=center cellpadding=0 cellspacing=1 bgcolor='#acacac'>"
response.Write "<form name=shouhuoxx method=post action=orderedit.asp?action=orderok>"
response.write "<tr><td bgcolor='#ffffff'>"
response.Write "<table width=100% border=0 align=center cellpadding=0 cellspacing=1 >"
response.Write "<tr>"
response.Write "<td width=7% STYLE='PADDING-LEFT: 10px'><b>姓名</b></td>"
response.Write "<td width='50%'><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 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 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 STYLE='PADDING-LEFT: 10px'><b>地址</b></td><td colspan=2><font color=#ff3300>"&trim(rs("shouhuodizhi"))&"</font></td></tr>"
response.Write "<tr><td STYLE='PADDING-LEFT: 10px'><b>邮编</b></td><td><font color=#ff3300>"&cstr(rs("youbian"))&"</font></td><td rowspan=2 align=center>"%><input type='button' name='allzl' value='修改全部资料' onclick="location.href='orderedit.asp?action=0'"><%
response.Write "<tr><td STYLE='PADDING-LEFT: 10px'><b>电话</b></td><td><font color=#ff3300>"&trim(rs("usertel"))&"</font></td></tr><tr><td colspan=3><hr width=98% noshade size=1></td>"
response.Write "<tr><td 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><td align=center>"%><input type='button' name='sffs' value='修改送货方式' onclick="location.href='orderedit.asp?action=songhuofangshi'"><%
response.Write "</tr><tr><td colspan=3><hr width=98% noshade size=1></td>"
response.Write "<tr><td 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><td align=center>"%><input type='button' name='zffs' value='修改支付方式' onclick="location.href='orderedit.asp?action=zhifufangshi'"><%
response.Write "</tr><tr><td colspan=3><hr width=98% noshade size=1></td>"
response.Write "<tr><td STYLE='PADDING-LEFT: 10px'><b><font color=#ff3300>注意</font></b><td colspan=2>如要发票将增加购书款5%的税费</td></tr></table>"
response.Write "</tr>"
response.Write "</table>"
response.write "<br>"
response.Write "<table width='95%' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='#e8e8e8'>"
response.Write "<td colspan='2' STYLE='PADDING-LEFT: 10px'><input type='checkbox' name='chkfp' onclick='showfapiao()'><b>是否要发票？</b></td>"
response.Write "<tr><td colspan='2' STYLE='PADDING-LEFT: 30px'><div id='fapiao_label' name='fapiao_label' style='display:none'>发票名称，空白不填默认为“个人”：</div><INPUT type='text' id='liuyan' name='liuyan' size='30' maxlength='30' value='' style='display:none'><br>"
response.Write "<tr><td height=5><tr bgcolor='#ffffff'>"
response.Write "<td align='center' height='32' colspan='2' STYLE='PADDING-LEFT: 20px'><input type='submit' name='Submit3' value='生成订单' onclick='return ssxx();'></td>"
response.Write "</tr></form></table>"
rs.close
set rs=nothing
end sub
'//更新全部资料
sub update_userxx()
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_user where username='"&request.cookies("bookshop")("username")&"' ",conn,1,3
rs("shouname")=trim(request("shouname"))
rs("shengshi")=trim(request("shengshi"))
rs("city")=trim(request("cityclass"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
rs("youbian")=cstr(request("youbian"))
rs("usertel")=trim(request("usertel"))
rs("songid")=int(request("songid"))
rs("zhifufangshi")=int(request("zhifufangshi"))
rs("shousex")=int(request("shousex"))
rs("blnedit")=1
rs.Update
rs.Close
set rs=nothing
response.redirect "orderedit.asp"
end sub
'//修改送货方式
sub edit_usershfs()
set rs=server.CreateObject("adodb.recordset")
rs.open "select shouname,shousex,shengshi,city,shouhuodizhi,youbian,usertel,songid,zhifufangshi from shop_user where username='"&request.cookies("bookshop")("username")&"' ",conn,1,1
response.Write "<table width=100% border=0 align=center cellpadding=2 cellspacing=1>"
response.Write "<tr><td align=center><img src=imgw/gw05.gif width=100% height=35></td></tr>"
response.Write "</table>"
response.Write "<table width=95% border=0 align=center cellpadding=0 cellspacing=1 bgcolor='#e8e8e8'>"
response.write "<tr><td STYLE='PADDING-LEFT: 10px'><img src='images\buylist.gif' border='0'></td><td align=center><b>请选择您的收货方式</b></td><td align=right STYLE='PADDING-right: 10px'><img src='images\buylist.gif' border='0'></td></tr>"
response.Write "</table>"
response.Write "<table width=95% border=0 align=center cellpadding=1 cellspacing=1 bgcolor='#acacac'>"
response.Write "<form name=shouhuosf method=post action=orderedit.asp?action=updatesffs>"
response.write "<tr><td bgcolor='#ffffff'>"
response.Write "<table width=100% border=0 align=center cellpadding=1 cellspacing=1 bgcolor='#ffffff'>"
'//送货方式
set rs0=server.CreateObject("adodb.recordset")
rs0.Open "select * from shop_city where cityid=" &int(rs("city"))& " order by cityidorder",conn,1,1
set rs1=server.CreateObject("adodb.recordset")
rs1.Open "select * from shop_songclass where faid="&rs0("faid"),conn,1,1
response.Write "<tr><br><td STYLE='PADDING-LEFT: 10px'>对于<font color=#FF0000><b> "&rs0("cityname")&" </b></font>的客户，我们有下面几种送货方式，如果您不是该地区的客户，请点<a href='orderedit.asp?action=0'>修改</a>。</td>"
dim sids(9,9),ii1,ii2,ii3,ii4
ii1=0:ii2=0:ii3=0:ii4=rs1.recordcount
'//获得类型的ID地址，并存入数组1列
do while not rs1.eof
sids(ii1,0)=rs1("songid")
rs1.movenext
ii1=ii1+1
loop
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 ii2=0 to ii4-1
if rs5("songid")= sids(ii2,0) then
sids(ii2,1) = rs5("subject")
end if
next
rs5.movenext
loop
rs5.close
set rs5=nothing
response.write "<tr><td align=center>"
'//显示整个2维数组
for ii3=0 to ii4-1
if sids(ii3,0)=rs("songid") then
response.write "<input type='radio' name=songid value="&sids(ii3,0)& " checked>" &sids(ii3,1)&" "
else
response.write "<input type='radio' name=songid value="&sids(ii3,0)& ">" &sids(ii3,1)&" "
end if
next
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
end sub
'//更新送货方式
sub update_usershfs()
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_user where username='"&request.cookies("bookshop")("username")&"' ",conn,1,3
rs("songid")=int(request("songid"))
rs.Update
rs.Close
set rs=nothing
response.redirect "orderedit.asp"
end sub
'//修改支付方式
sub edit_userzffs()
set rs=server.CreateObject("adodb.recordset")
rs.open "select shouname,shousex,shengshi,city,shouhuodizhi,youbian,usertel,songid,zhifufangshi from shop_user where username='"&request.cookies("bookshop")("username")&"' ",conn,1,1
response.Write "<table width=100% border=0 align=center cellpadding=2 cellspacing=1>"
response.Write "<tr><td align=center><img src=imgw/gw06.gif width=100% height=35></td></tr>"
response.Write "</table>"
response.Write "<table width=95% border=0 align=center cellpadding=0 cellspacing=1 bgcolor='#e8e8e8'>"
response.write "<tr><td STYLE='PADDING-LEFT: 10px'><img src='images\buylist.gif' border='0'></td><td align=center><b>请选择您的支付方式</b></td><td align=right STYLE='PADDING-right: 10px'><img src='images\buylist.gif' border='0'></td></tr>"
response.Write "</table>"
response.Write "<table width=95% border=0 align=center cellpadding=1 cellspacing=1 bgcolor='#acacac'>"
response.Write "<form name=shouhuozf method=post action=orderedit.asp?action=updatezffs>"
response.write "<tr><td bgcolor='#ffffff'>"
response.Write "<table width=100% border=0 align=center cellpadding=1 cellspacing=1 bgcolor='#ffffff'>"
'//支付方式
set rs0=server.CreateObject("adodb.recordset")
rs0.Open "select * from shop_songhuo where fangshi=1 order by songidorder",conn,1,1
response.Write "<tr><br><td STYLE='PADDING-LEFT: 10px'>我们有下面几种支付方式，您可以根据您的实际情况进行选择。</td>"
response.write "<tr><td align=center>"
'//显示整个支付方式
do while not rs0.eof
if int(rs("zhifufangshi"))=rs0("songid") then
response.write "<input type='radio' name=zhifufangshi value="&rs0("songid")& " checked>" &rs0("subject")&" "
else
response.write "<input type='radio' name=zhifufangshi value="&rs0("songid")& " >" &rs0("subject")&" "
end if
rs0.movenext
loop
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>"
rs0.close
set rs0=nothing
rs.close
set rs=nothing
end sub
'//更新支付方式
sub update_userzffs()
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_user where username='"&request.cookies("bookshop")("username")&"' ",conn,1,3
rs("zhifufangshi")=int(request("zhifufangshi"))
rs.Update
rs.Close
set rs=nothing
response.redirect "orderedit.asp"
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -