subuser.asp

佳可商务购物程序v1.0

<!--#include file="userfunction.asp"-->
<style>
td{font-size:9pt;line-height:120%;color:#353535} 
body{font-size:9pt;line-height:120%} 

a:link          { color: #000000; text-decoration: none }
a:visited       { color: #000000; text-decoration: none }
a:active        { color: #000000; text-decoration: none }
a:hover         { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
<%
'////////////////////////我的收藏架
sub shoucang()
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_action.actionid,shop_action.bookid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.dazhe from shop_books inner join  shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.cookies("bookshop")("username")&"' and shop_action.zhuangtai=6",conn,1,1 
'//html
response.write "<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#999999>"
if action="shoucang" then '判断表单是否另开窗口,在用户界面中需要另开窗口
response.write "<form action='shopping.asp' target=ckxp onsubmit=""javascript:window.open('','snsn','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"">"
else
response.write "<form name='form1' method='post' action=shopping.asp>"
end if
response.write "<tr><td width=7% bgcolor=#333333><div align=center><font color=#FFFFFF>选 择</font></div></td>"
response.Write "<td width=45% bgcolor=#333333><div align=center><font color=#FFFFFF>商品名称</font></div></td>"
response.Write "<td width=14% bgcolor=#333333><div align=center><font color=#FFFFFF>市场价</font></div></td>"
response.Write "<td width=13% bgcolor=#333333><div align=center><font color=#FFFFFF>会员价</font></div></td>"
response.Write "<td width=12% bgcolor=#333333><div align=center><font color=#FFFFFF>折 扣</font></div></td>"
response.Write "<td width=9% bgcolor=#333333><div align=center><font color=#FFFFFF>删 除</font></div></td></tr>"
do while not rs.eof
response.write "<tr><td bgcolor=#EFEFEF><div align=center><input name=bookid type=checkbox checked value="&rs("bookid")&" ></div></td>"
response.write "<td bgcolor=#EFEFEF STYLE='PADDING-LEFT: 5px'><div align=left><a href=book.asp?id="&rs("bookid")&" target=_blank>"&rs("bookname")&"</a></div></td>"		  
response.write "<td bgcolor=#EFEFEF><div align=center>"&formatnumber(rs("shichangjia"),2)&"元</div></td>"	
response.write "<td bgcolor=#EFEFEF><div align=center><font color=#FF6600>"&formatnumber(rs("huiyuanjia"),2)&"元</font></div></td>"
response.write "<td bgcolor=#EFEFEF><div align=center>"&formatnumber(rs("dazhe")*100,2)&"%</div></td>"
response.write "<td bgcolor=#EFEFEF><div align=center>"
'//判断所在页面
if action<>"shoucang" then
response.Write "<a href=shoucang.asp?action=del&actionid="&rs("actionid")&">"
else
response.Write "<a href=shoucang.asp?action=del&actionid="&rs("actionid")&"&ll=22>"  '这里是在用户页面做删除动作，来区别删除后的返回位置！
end if
'/////
response.Write "<img src=images/trash.gif width=15 height=17 border=0></a></div></td></tr>"
rs.movenext
loop
rs.close
set rs=nothing
response.write "<tr><td height=36 colspan=6 bgcolor=#EFEFEF><div align=center><input  type=image border=0 name=submit src=images/xd.gif width=54 height=18 >&nbsp;&nbsp;&nbsp;&nbsp;"
if action<>"shoucang" then
response.write "<input  type=image border=0 name=submit2 src=images/cg.gif width=54 height=18 onclick=javascript:window.close()>"
end if
response.write "</div></td></tr></form></table>"
end sub
%>

<%'////////////////////////收货人资料
sub shouhuoxx()
dim rs2
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where username='"&request.cookies("bookshop")("username")&"' ",conn,1,1
%>
<tr> 
    <td height="22"> 
    <table width=740 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>
      <form name=shouhuoxx method=post action=saveuserinfo.asp?action=shouhuoxx>
        <tr> 
          <td height=21 colspan=2 bgcolor="#666666"> 
            <div align=center><font color=#FFFFFF>请您仔细填写以下详细资料信息，以便所购买的商品能够及时投递。</font></div></td></tr>
<%if rs("reglx")=4 then %>
        <tr> 
          <td height=21 colspan=2 bgcolor="#999999"> 
            <div align=center><font color="#FFFFFF">为了保护您的资料安全，我们已将您的详细资料另行存档，但您仍可以正常修改。</font></div>
          </td>
        </tr>
<%end if%>
        <tr> 
          <td width=18% height=16 STYLE='PADDING-LEFT: 20px'> 性质：</td>
          <td width=82% height=28 STYLE='PADDING-LEFT: 20px'> 
            <input name=dadyname type=text id=dadyname size=12 value="<%=rs("dadyname")%>"><font color=red>*</font></td></tr>
        <tr> 
          <td height=16 STYLE='PADDING-LEFT: 20px'>所在省/市</td>
          <td height=28 STYLE='PADDING-LEFT: 20px'> 
            <select size="1" name="szSheng" onChange=chsel()>
      <option value="xxx" selected>请选择省份……</option>
<%dim tmpShengid
tmpShengid=0
set rs_s=server.createobject("adodb.recordset")
sql="select * from szSheng  order by shengorder"
rs_s.open sql,conn,1,1
while not rs_s.eof
     if rs("szSheng")=rs_s("ShengNo") then
          tmpShengid=rs_s("id")
%>
          <option value="<%=rs_s("ShengNo")%>" selected ><%=trim(rs_s("ShengName"))%></option>
<%
     else
%>
          <option value="<%=rs_s("ShengNo")%>" ><%=trim(rs_s("ShengName"))%></option>
<%
     end if
    rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
    </select> 
    <select size="1" name="szShi">
<%
set rs_s=server.createobject("adodb.recordset")
sql="select * from szShi where shengid="&tmpShengid&" order by shiorder"
rs_s.open sql,conn,1,1
while not rs_s.eof
%>
          <option value="<%=rs_s("ShiNo")%>" <%if rs("szShi")=rs_s("ShiNo") then%>selected<%end if%>><%=trim(rs_s("ShiName"))%></option>
<%
    rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
    </select>
</td></tr>
        <tr> 
          <td height=16 STYLE='PADDING-LEFT: 20px'>详细地址：</td>
          <td height=28 STYLE='PADDING-LEFT: 20px'> 
            <input name=shouhuodizhi type=text id=shouhuodizhi size=40 value="<%=rs("shouhuodizhi")%>"><font color=red>*</font></td></tr>
        <tr> 
          <td height=16 STYLE='PADDING-LEFT: 20px'>邮编：</td>
          <td height=28 STYLE='PADDING-LEFT: 20px'> 
            <input name=youbian type=text id=youbian value="<%=rs("youbian")%>" maxlength="6" onKeyPress="event.returnValue=IsDigit();"><font color=red>*</font></td></tr>
        <tr> 
          <td height=17 STYLE='PADDING-LEFT: 20px'>联系电话：</td>
          <td height=28 STYLE='PADDING-LEFT: 20px'> 
            <input name=usertel type=text id=usertel value="<%=rs("usertel")%>"></td></tr>
        <tr> 
          <td width=18% height=16 STYLE='PADDING-LEFT: 20px'>推荐人：</td>
          <td width=82% height=28 STYLE='PADDING-LEFT: 20px'> 
            <input name=MoMname type=text id=MoMname size=12 value="<%=rs("MomName")%>"><font color=red>*</font></td></tr>
        <tr> 
          <td width=18% height=16 STYLE='PADDING-LEFT: 20px'>推荐日期：</td>
          <td width=82% height=28 STYLE='PADDING-LEFT: 20px'> 
            <input name=yuchan type=text id=yuchan size=12 maxlength="8" value="<%=rs("yuchan")%>" onKeyPress="event.returnValue=IsDigit();">
            (请按格式输入八位数字，如:19780601) </td>
        </tr>
        <tr> 
          <td width=18% height=16 STYLE='PADDING-LEFT: 20px'>身份证号码：</td>
          <td width=82% height=28 STYLE='PADDING-LEFT: 20px'>
            <input name=MoMNo type=text id=MoMNo size=18 maxlength="18" value="<%=rs("MomNo")%>" onKeyPress="event.returnValue=IsDigit();">
            <font color=red>*</font> </td>
        </tr>
        <tr> 
          <td width=18% height=16 STYLE='PADDING-LEFT: 20px'>性别：</td>
          <td width=82% height=28 STYLE='PADDING-LEFT: 20px'> 
            <select name=babysex ID=Select1><option value=3 <%if rs("babysex")=3 then%>selected<%end if%>>请选择</option><option value=0 <%if rs("babysex")=0 then%>selected<%end if%>>男</option><option value=1 <%if rs("babysex")=1 then%>selected<%end if%>>女</option></select></td></tr>
<%'////////////送货方式
response.Write "<tr><td height=46 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'>送货方式：</td><td height=46 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'><select name=songhuofangshi size=3 id=songhuofangshi>"
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_songhuo where fangshi=0 order by songidorder",conn,1,1
do while not rs2.EOF
if rs("songhuofangshi")=rs2("songid") then
response.Write "<option value="&rs2("songid")&" selected>"&trim(rs2("subject"))&"</option>"
else
response.Write "<option value="&rs2("songid")&">"&trim(rs2("subject"))&"</option>"
end if
rs2.MoveNext
loop
rs2.Close
response.Write "</select><font color=red>*</font></td></tr>"
response.Write "<tr><td height=58 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'>支付方式：</td><td height=58 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'><select name=zhifufangshi size=3 id=zhifufangshi>"