subuser.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 706 行 · 第 1/3 页

      rs.close
  set rs=nothing
  %>
  </tr>
</table>
<%end sub

'////////////////////////我的收藏架
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.bookpic,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia 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 

'//判断是否是空收藏夹
if rs.eof and rs.bof then
   response.write "<br><br><div align=center>您的收藏夹还是空的！您可以在浏览图书时，点收藏图标将它加入！</div>"
else
   response.write "<table width=95% border=0 align=center cellpadding='0' cellspacing='1' bgcolor='#6699ff'>"
   response.write "<tr><td width=5% bgcolor=#ccccff><div align=center>选择</div></td>"
   response.Write "<td width=20% bgcolor=#ccccff><div align=center>图书封面</div></td>"
   response.Write "<td width=35% 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></tr>"

   do while not rs.eof
      response.write "<tr><td bgcolor='#ffffff'><div align=center><input name=bookid type=checkbox checked value="&rs("bookid")&" ></div></td>"
      response.write "    <td bgcolor='#ffffff'><div align=center><P style='PADDING-LEFT: 2px'><img src='images/bg_book.gif' width=50 height=60 vspace=2 border=0>"
      response.write "                                            <P style='MARGIN-TOP: -63px'><a href=book.asp?id="&rs("bookid")&" target=_blank>"
      response.write "                                                                         <img src="
                                  if rs("bookpic")="" then 
                                     response.write "images/emptybook.gif"
				  else
                                     response.write rs("bookpic")
				  end if
      
      response.write "                                                                                                        width=45 height=55  border=0></A></td>"
      response.write "<td bgcolor='#ffffff' 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='#ffffff'><div align=center>"&formatnumber(rs("shichangjia"),2)&"元</div></td>"	
      response.write "<td bgcolor='#ffffff'><div align=center><font color=#FF6600>"&formatnumber(rs("huiyuanjia"),2)&"元</font></div></td>"
      response.write "<td bgcolor='#ffffff'><div align=center><a href=# onClick=""javascript:window.open('add_bk.asp?bookid="&rs("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>"
      response.write "<td bgcolor='#ffffff'><div align=center><a href=shoucang.asp?action=del&actionid="&rs("actionid")&"><img src=images/trash.gif width=15 height=17 border=0></a></div></td>"
   rs.movenext
   loop
end if 
rs.close
set rs=nothing
response.write "</div></td></tr></form></table>"
end sub
%>

<%'////////////////////////个人信息
sub shouhuoxx()
 

dim ccount,   zcount,   fcount
    ccount=0: zcount=0 :fcount=0
set rsc=server.createobject("adodb.recordset")
    rsc.open "select * from shop_city order by cityidorder ",conn,1,1

set rsz=server.createobject("adodb.recordset")
    rsz.open "SELECT shop_songclass.fsid, shop_songclass.faid, shop_songclass.songid, shop_songhuo.subject FROM shop_songclass INNER JOIN shop_songhuo ON shop_songclass.songid = shop_songhuo.songid ORDER BY shop_songhuo.songidorder",conn,1,1
%>
<script language = "JavaScript">

var citycount;
    citycount=0;
var zffscount;
    zffscount=0;
var fafacount;
    fafacount=0;

subcity = new Array();
subzffs = new Array();
subfaid = new Array()

//取得选省份时城区
<%do while not rsc.eof%>
     subcity[<%=ccount%>] = new Array("<%= trim(rsc("cityid"))%>","<%= trim(rsc("cityname"))%>","<%= rsc("shengid")%>","<%= rsc("faid")%>");
     subfaid[<%=ccount%>] = new Array("<%= trim(rsc("cityid"))%>","<%= rsc("faid")%>");
<%ccount =ccount + 1
  fcount =fcount + 1
     rsc.movenext
         loop
     rsc.close%>
citycount=<%=ccount%>;
fafacount=<%=fcount%>;

//取得选城区时的送书方式
<%do while not rsz.eof%>
     subzffs[<%=zcount%>] = new Array("<%= trim(rsz("subject"))%>","<%= rsz("faid")%>","<%= rsz("songid")%>");
<%zcount=zcount+1
     rsz.movenext
         loop
     rsz.close%>
zffscount=<%=zcount%>;


function changeshengclass(shengclassid)
    {
    document.shouhuoxx.cityclass.length = 0; 

    var shengclassid=shengclassid;
    var i;
    for (i=0;i < citycount; i++)
        {
            if (subcity[i][2] == shengclassid)
            { 
             document.shouhuoxx.cityclass.options[document.shouhuoxx.cityclass.length] = new Option(subcity[i][1], subcity[i][0]);
             
            }
        }
            changecityclass(document.shouhuoxx.cityclass.options[document.shouhuoxx.cityclass.selectedIndex].value)
    } 

function changecityclass(cityclassid)
    {
    document.shouhuoxx.songid.length = 0; 

    var cityclassid=cityclassid;
    var i;
    var j;

    for (i=0; i<fafacount; i++)
        {
            if (subfaid[i][0] == cityclassid)
            {
             for (j=0; j<zffscount; j++)
                 {
                  if(subfaid[i][1] == subzffs[j][1]) 
                    {
                     document.shouhuoxx.songid.options[document.shouhuoxx.songid.length] = new Option(subzffs[j][0], subzffs[j][2]);
                    }
                  }
            }
        
        }
    } 
    
</script>
 
<%
dim actionx
    actionx=request.QueryString("actionx") 
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

if  actionx="" then actionx=rs("blnedit")
    
select case actionx
        '////////////无或改信息资料
       case "0"
            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
           
            set rss=server.createobject("adodb.recordset")
                rss.open "select * from shop_sheng order by shengidorder",conn,1,1

        response.Write "<br><table width=96% border=0  cellpadding=1 cellspacing=1 bgcolor='#cccccc'>"
        response.Write "<form name=shouhuoxx method=post action=saveuserinfo.asp?action=shouhuoxx>"
        response.write "<tr><td bgcolor='#ffffff'>"
        response.Write "<table width=100%    border=0 align=center cellpadding=1 cellspacing=1 >"
        response.Write "<tr><td align=right><b>收货人姓名：</b></td>"
        response.Write "<td><input name=shouname type=text id=shouname size=12 value="&trim(rs("shouname"))&"> &nbsp;&nbsp;&nbsp;<b>性别：</b>"
        response.Write "<select name=shousex id=shousex>"
        select case rs("shousex")
	       case ""
		  response.write "<option value=0 selected>男</option><option value=1>女</option>"
	       case "0"
		  response.write "<option value=0 selected>男</option><option value=1>女</option>"
	       case "1"
		  response.write "<option value=0 >男</option><option value=1 selected>女</option>"
	end select
        response.Write "</select></td></tr><tr><td align=right>"

        response.write "<b>收货人省份：</b><td><select name=shengshi size=1 id=shengshi onChange='changeshengclass(document.shouhuoxx.shengshi.options[document.shouhuoxx.shengshi.selectedIndex].value)'>"
           do while not rss.eof
        response.write "<option value="&rss("shengid")
           if int(rs("shengshi"))=int(rss("shengid")) then
           response.Write " selected>"
           else
           response.Write ">"
           end if
           response.Write trim(rss("shengname"))&"</option>"
           rss.movenext
           loop
           response.Write "</select>"
           rss.close
           set rss=nothing
        response.Write "&nbsp;&nbsp;&nbsp;"
        
        response.write "<b>城区：</b>" 
           set rs0=server.CreateObject("adodb.recordset")
               rs0.Open "select * from shop_city where shengid=" &int(rs("shengshi"))& " order by cityidorder",conn,1,1
        response.write "<select name=cityclass size=1  id=cityclass  onChange='changecityclass(document.shouhuoxx.cityclass.options[document.shouhuoxx.cityclass.selectedIndex].value)'>"
           do while not rs0.eof
           response.write "<option value="&rs0("cityid")
           if int(rs("city"))=int(rs0("cityid")) then
           response.Write " selected>"
           else
           response.Write ">"
           end if
           response.Write trim(rs0("cityname"))&"</option>"
           rs0.movenext
           loop
           response.Write "</select>"
           rs0.close
           set rs0=nothing
        response.Write "</td></tr>"
        response.Write "<tr><td align=right><b>详细地址：</b></td><td><input name=shouhuodizhi type=text id=shouhuodizhi size=40 value="&trim(rs("shouhuodizhi"))&"></td></tr>"
        response.Write "<tr><td align=right><b>邮编：</b></td><td><input name=youbian type=text id=youbian value="&cstr(rs("youbian"))&" onkeypress	= 'return regInput(this,/^[0-9]*$/,	String.fromCharCode(event.keyCode))' onpaste= 'return regInput(this,/^[0-9]*$/,	window.clipboardData.getData('Text'))'	ondrop= 'return regInput(this,	/^[0-9]*$/,	event.dataTransfer.getData('Text'))'>&nbsp;&nbsp;&nbsp;<b>电话：</b><input name=usertel type=text id=usertel value="&trim(rs("usertel"))&"></td></tr>"
        response.Write "<tr><td align=right><b>送货方式：</b></td><td>"

        '////////////送货方式
           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
            
           dim sid(9,9),i1,i2,i3,i4

           i1=0:i2=0:i4=rs1.recordcount

                '//获得类型的ID地址，并存入数组1列
                do while not rs1.eof
                         sid(i1,0)=rs1("songid")
                rs1.movenext
                i1=i1+1
                loop