<%if Request.Cookies("car")("background")="pic" then BackGrountValue= " background=/uploadpic/background.gif" elseif Request.Cookies("car")("background")="color" then BackGrountValue= " bgcolor='"& Request.Cookies("car")("backcolors") & "'" else BackGrountValue="" end if%> <%=Request.Cookies("car")("backcolors")%>> <%dim dada,dadaurl,xiao1,xiao2,xiao3,xiao1url,xiao2url,xiao3url,tx1,tx1url,tx2,tx2url,tx3,tx3url,sgif set rs=server.CreateObject("adodb.recordset") rs.open "select * from shop_gg",conn,1,1 dada=trim(rs("458")) dadaurl=trim(rs("458url")) xiao1=trim(rs("2541")) xiao1url=trim(rs("2541url")) xiao2=trim(rs("2542")) xiao2url=trim(rs("2542url")) xiao3=trim(rs("2543")) xiao3url=trim(rs("2543url")) tx1=trim(rs("1441")) tx1url=trim(rs("1441url")) tx2=trim(rs("1442")) tx2url=trim(rs("1442url")) tx3=trim(rs("1443")) tx3url=trim(rs("1443url")) rs.close set rs=nothing %> <%'------------------ 判斷來源%> <% dim bookid,username,comms,i,newsid,dingdan comms=request.QueryString("comms") username=trim(request.cookies("aspsky")("username")) bookid=request.QueryString("id") ris=request.QueryString("ris") if ris="" then if bookid="" then ris="a" else ris="view" end if end if if ris="shops" then%> <% if request.cookies("aspsky")("username")="" then response.write "" response.End end if %> <%elseif ris="orderpay" then ris="orderpay" if request.cookies("aspsky")("username")="" then response.write "" response.End end if %> <%elseif ris="orderpa" then ris="orderpa" if request.cookies("aspsky")("username")="" then response.write "" response.End end if %> <%elseif ris="forgetpw" then ris="forgetpw" %> <%elseif ris="mailpw" then ris="mailpw" %> <%elseif ris="usrifo" then ris="usrifo" if request.cookies("aspsky")("username")="" then response.write "" response.End end if %> <%elseif ris="newspro" then ris="newspro" newsid=request.QueryString("id") %> <%elseif ris="news" then ris="news" %> <%elseif ris="about" then ris="about" %> <%elseif ris="" then ris="a" %> <%elseif ris="talk" then ris="talk" %> <%elseif ris="atmsend" then ris="atmsend" %> <%elseif ris="atmcode" then ris="atmcode" %> <%elseif ris="putcar" then ris="putcar" if request.cookies("aspsky")("username")="" then response.write "" response.End end if %> <%else%> <%if request.QueryString("id")="" then ris="a" ' ris="a" ' else 'end if%> <%end if%> <%'------------------ 判斷來源%> <%dim gg1,gg2,gg3,gg4,gg1url,gg2url,gg3url,gg4url set rs=server.CreateObject("adodb.recordset") rs.open "select * from shop_gg",conn,1,1 gg1=trim(rs("1601")) gg1url=trim(rs("1601url")) gg2=trim(rs("1602")) gg2url=trim(rs("1602url")) gg3=trim(rs("1603")) gg3url=trim(rs("1603url")) gg4=trim(rs("1604")) gg4url=trim(rs("1604url")) rs.close set rs=nothing if request("dd")="logout" then Response.Cookies("songxf")="" response.Cookies("aspsky")="" response.Cookies("aspsky")("username")="" Response.Cookies("aspsky")("userid")="" response.Cookies("aspsky")("shjianame")="" response.Cookies("aspsky")("jifen")=0 response.Cookies("aspsky")("yucun")=0 response.Cookies("aspsky")("jiaoyijine")=0 Response.Cookies("aspsky")("userclass")="" Response.Cookies("aspsky")("password")="" Response.Cookies("songxf")("username")="" Response.Cookies("songxf")="" response.Cookies("aspsky")="" end if %>
<%if request.cookies("aspsky")("username")="" then%> <%else%> <%end if%> <%if ris="a" then%> <%if (request("cert")="") then%> <%end if%>
<%if (request("cert")="shops") and (request("ris")="orderpay") then%> <%else%>
<%end if%> <%leixing=lcase(trim(request("cert"))) select case leixing case "big" anclassid=request("erps") set rs=server.createobject("adodb.recordset") rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1 anclassname=rs("anclass") rs.close %> <% case "small" anclassid=request("erps") nclassid=request("cps") set rs=server.createobject("adodb.recordset") rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1 anclassname=rs("anclass") rs.close rs.open "select * from shop_nclass where nclassid="&nclassid,conn,1,1 nclassname=rs("nclass") rs.close %> <% case "putpro" %> <% case "onsale" %> <% case "news" %> <% case else %> <% end select%>
" width="600" valign="bottom">">商品分類 : >"><%=anclassname%>
" width="600" valign="bottom">">商品分類 : >"><%=anclassname%>】 【&cps=<%=nclassid%>>"><%=nclassname%>
" width="600" valign="bottom">">● 推 薦 商 品 展 示 區 ●
" width="600" valign="bottom">">● 特 價 商 品 展 示 區 ●
" width="600" valign="bottom">">● 哈 燒 新 品 展 示 區●
" width="600" valign="bottom">">● 哈 燒 新 品 展 示 區 ●
<%set rs=server.createobject("adodb.recordset") if leixing="big" then rs.open "select * from shop_books where anclassid="&anclassid&" and shjiaid=1 order by dazhe",conn,1,1 elseif leixing="small" then rs.open "select * from shop_books where anclassid="&anclassid&" and nclassid="&nclassid&" and shjiaid=1 order by dazhe",conn,1,1 elseif leixing="onsale" then rs.open "select * from shop_books where tejiabook=1 and shjiaid=1 order by dazhe",conn,1,1 elseif leixing="putpro" then rs.open "select * from shop_books where bestbook=1 and shjiaid=1 order by dazhe",conn,1,1 elseif leixing="news" then rs.open "select * from shop_books where newsbook=1 and shjiaid=1 order by dazhe",conn,1,1 else rs.open "select * from shop_books where newsbook=1 and shjiaid=1 order by dazhe",conn,1,1 end if if rs.recordcount=0 then %>
暫無商品
<% else rs.PageSize =gonggao' iCount=rs.RecordCount ' iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if%> <% For i=1 To x %> <%if (i mod 2=0) then%> <%end if%> <%rs.movenext next%>
<% call PageControl(iCount,maxpage,page,"border=0 align=center","

") end if rs.close set rs=nothing Sub PageControl(iCount,pagecount,page,table_style,font_style) ' Dim query, a, x, temp comms = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("
" & vbCrLf ) Response.Write(font_style & vbCrLf ) if page<=1 then 'Response.Write (" 第一頁 " & vbCrLf) 'Response.Write (" <<上一頁 " & vbCrLf) else Response.Write(" 第一頁 " & vbCrLf) Response.Write("   <<上一頁 " & vbCrLf) end if if page>=pagecount then 'Response.Write ( " 下一頁 " & vbCrLf) ' Response.Write (pagecount & " " & vbCrLf) else Response.Write(" 下一頁>> " & vbCrLf) Response.Write("  最末頁 " & vbCrLf) end if Response.Write("
頁次 : " & page & "/" & pageCount & " 頁 " & vbCrLf) if ris="news" then Response.Write("共 " & iCount & " 則新聞 " & vbCrLf) elseif ris="talk" then Response.Write("共 " & iCount & " 篇評論 " & vbCrLf) else Response.Write("總計 " & iCount & " 種商品 " & vbCrLf) end if%> <% Response.Write("
" & vbCrLf ) %> <% End Sub %> <%elseif ris="view" then%>
" width="600" valign="bottom">">● 商 品 詳 細 資 訊 ●
<% set rs=server.createobject("adodb.recordset") rs.open "select * from shop_books where shjiaid=1 and bookid="&request("id") ,conn,1,3 if rs.recordcount=0 then %> 商品資料庫錯誤 <% else rs("liulancount")=rs("liulancount")+1 rs.update 'call history if request.cookies("aspsky")("username")<>"" then set rs_s=server.CreateObject("adodb.recordset") rs_s.open "select * from [user] where username='"&request.cookies("aspsky")("username")&"'",conn,1,1 t_userid=rs_s("userid") rs_s.close 'response.write request("id") 'response.end set rs_s=server.createobject("adodb.recordset") rs_s.open "select * from shop_his where bookid="&request("id")&" and username='"&request.cookies("aspsky")("username")&"' and lx=1",conn,1,3 if rs_s.recordcount>0 then rs_s("ltime")=now() rs_s("userid")=t_userid rs_s.update rs_s.close set rs_s=nothing else rs_s.close set rs_s=server.createobject("adodb.recordset") rs_s.open "select * from shop_his where username='"&request.cookies("aspsky")("username")&"' and lx=1 order by ltime",conn,1,3 if rs_s.recordcount>=4 then rs_s.delete rs_s.update end if rs_s.addnew rs_s("username")=request.cookies("aspsky")("username") rs_s("bookid")=request("id") rs_s("bookname")=rs("bookname") rs_s("userid")=t_userid rs_s("lx")=1 rs_s("ltime")=now() rs_s.update rs_s.close set rs_s=nothing end if end if %>  

<%if rs("zhuang")="" then response.write "" else%> " target=_blank>" width=250 border=0 alt="按瀏覽商品大圖" height="250"> <%end if%> <%sgif=trim(rs("seid"))%>
" target=_blank>商品大圖片瀏覽
<%=rs("bookname")%>
[<%=rs("pp")%>]<%=rs("pingpai")%>
[<%=rs("mch")%>]<%=rs("bookname")%>
[<%=rs("isbn1")%>]<%=rs("isbn")%>
[<%=rs("jj")%>]<%=rs("bookchuban")%>
[所屬類別] <%set rs2=server.createobject("adodb.recordset") rs2.open "select * from shop_anclass where anclassid="&rs("anclassid"),conn,1,1 if rs2.recordcount>0 then response.write ""&rs2("anclass")&"  " end if rs2.close set rs2=server.createobject("adodb.recordset") rs2.open "select * from shop_nclass where nclassid="&rs("nclassid"),conn,1,1 if rs2.recordcount>0 then response.write ""&rs2("nclass") end if rs2.close set rs2=nothing%>
[評分] <%if rs("pingjizong")>0 and rs("pingji")>0 then xx=rs("pingjizong")\rs("pingji") else xx=5 end if set rs2a=server.createobject("adodb.recordset") rs2a.open "select * from shop_pinglun where bookid="&request("id")&" order by pinglundate desc",conn,1,1 plcount=rs2a.recordcount rs2a.close set rs2a=nothing response.write ""%>  <%=plcount%> 位網友打分數
市價 : $<%=rs("shichangjia")%> <%if Request.Cookies("car")("vipshow")="關" then%>  會員價 : $<%=rs("huiyuanjia")%><%end if%><%if Request.Cookies("car")("vipshow")="開" then%>VIP 價 : $<%=rs("Vipjia")%><%end if%> <%if Request.Cookies("car")("vipshow")="會員只看到會員價格;VIP只看到VIP價格" then if Request.Cookies("aspsky")("reglx") = 2 then%>   VIP:$<%=trim(rs("vipjia"))%> <%else%>   會員:$<%=trim(rs("huiyuanjia"))%> <%end if%> <%elseif Request.Cookies("car")("vipshow")="會員只看到會員價格;VIP看到會員價格及VIP價格" then if Request.Cookies("aspsky")("reglx") = 2 then%>   會員:$<%=trim(rs("huiyuanjia"))%>   VIP:$<%=trim(rs("vipjia"))%> <%else%>   會員:$<%=trim(rs("huiyuanjia"))%> <%end if%> <%elseif Request.Cookies("car")("vipshow")="VIP及會員價格完全顯示" then%>   會員:$<%=trim(rs("huiyuanjia"))%>   VIP:$<%=trim(rs("vipjia"))%> <%end if%>  
&ris=shops&comms=add>我要買  將商品放到我的珍藏袋中  列印本頁  &sgif=<%=sgif%>','pingluntj','width=325,height=400,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no')">寄給好友     
 

  <%=rs("nr")%>
<%=rs("bookcontent")%>

<%'ContentM=replace(rs("bookcontent"),chr(13)&chr(10),"
")%>
<% set rs=server.createobject("adodb.recordset") rs.open "select * from shop_pinglun where bookid="&request("id")&" order by pinglundate desc",conn,1,1 j=rs.recordcount plcount=rs.recordcount if j>3 then j=3 for i=1 to j %> <%if trim(rs("huifu"))<>"" then%> <%end if%> <% rs.movenext next if plcount>0 then %> <%end if%>
 
 
  網友評論 歡迎您對商品進行討論,發表您對此商品的評論
 
主題 : ','pinglun','width=300,height=400,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;" title="<%=trim(rs("pingluntitle"))%>"><%=trim(rs("pingluntitle"))%> .gif" >
  發表人 : <%=trim(rs("pinglunname"))%> (<%=trim(rs("pinglundate"))%>)
  <%if len(rs("pingluncontent"))>24 then response.write left(rs("pingluncontent"),20)&"... [詳細內容]" else response.write rs("pingluncontent") end if%>
    站長回覆 : <%=rs("huifu")%>
>>>瀏覽該商品的全部評論 (<%=plcount%>)
 
','pinglun','width=295,height=325,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');">_buttonr.gif" align="absmiddle" border=0>
<% rs.close set rs=nothing end if%> <%elseif ris="shops" then%> <%'/////////////// '//刪除收藏 select case comms case "del" conn.execute "delete from shop_action where actionid="&request.QueryString("commsid") if request.QueryString("pert")=22 then response.redirect "product.php?comms=vwbag&ris=shops" else 'bookid=rs("bookid") response.redirect "product.php?comms=show&ris=shops" end if response.End case "add" '//商品,判斷是否存在 set rs_s=server.CreateObject("adodb.recordset") rs_s.open "select * from shop_books where shjiaid=1 and bookid="&bookid,conn,1,1 if request.Cookies("aspsky")("reglx")=1 then danjia=rs_s("huiyuanjia") else danjia=rs_s("vipjia") end if kucun=rs_s("kucun") bookname=rs_s("bookname") shjiaid=rs_s("shjiaid") rs_s.close set rs_s=nothing if kucun<=0 then response.write "" response.end end if set rs=server.CreateObject("adodb.recordset") rs.open "select bookid,username,bookcount,zonger from shop_action where username='"&username&"' and bookid="&bookid&" and zhuangtai=7",conn,1,3 if rs.recordcount=1 then if kucun<(rs("bookcount")+1) and kucun>0 then response.write "" response.end end if rs("zonger")=(rs("bookcount")+1)*danjia rs("bookcount")=rs("bookcount")+1 rs.update rs.close set rs=nothing response.Redirect "product.php?comms=show&ris=shops" else rs.close set rs=server.CreateObject("adodb.recordset") rs.open "select bookid,username,shjiaid,zhuangtai,zonger,bookcount from shop_action",conn,1,3 rs.addnew rs("bookid")=bookid rs("username")=username rs("zhuangtai")=7 rs("bookcount")=1 rs("shjiaid")=shjiaid rs("zonger")=danjia rs.update rs.close set rs=nothing response.Redirect "product.php?comms=show&ris=shops" end if case "show" '////////// response.write "
我的購物車
" set rs=server.CreateObject("adodb.recordset") rs.open "select shop_action.actionid,shop_action.bookid,shop_action.bookcount,shop_action.zonger,shop_action.shjiaid,shop_action.shouhuoname,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.vipjia from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.cookies("aspsky")("username")&"' and shop_action.zhuangtai=7",conn,1,1 %> <%shuliang=rs.recordcount jianshu=0 zongji=0 bookcolor=1 do while not rs.eof bookcolor=bookcolor+1 if (bookcolor mod 2)=0 then bookscolor="#FFF9EC" else bookscolor="#EEF7E1" end if %> <% jianshu=jianshu+rs("bookcount") zongji=zongji+(CSng(rs("zonger"))) rs.movenext loop rs.close set rs=nothing%>
商品名稱
單價 <%if request.cookies("aspsky")("reglx")=2 then %> (VIP) <%else%> (會員) <%end if%>
數量
總價
刪除
<% if request.Cookies("aspsky")("reglx")=2 then response.write rs("vipjia") else response.write rs("huiyuanjia") end if%> 元
" size=6>
<%=CSng(rs("zonger"))%>
如需要請填寫此商品的說明(如顏色、尺寸、度數…)" size=15>
<%if "清空購物車" ="true" then%> _buttonb.gif" align="absmiddle" border="0" onFocus="this.blur()" onClick="this.form.action='faxclr.php';this.form.submit()">     <%end if%> _buttonc.gif" border="0" align="absmiddle" onFocus="this.blur()" onClick="this.form.action='chgbynum.php';this.form.submit()">   _buttona.gif" align="absmiddle" border="0" onFocus="this.blur()" onclick="this.form.action='chgbynumcon.php';this.form.submit()">   _buttond.gif" align="absmiddle" border="0" onFocus="this.blur()" onClick="this.form.action='product.php?ris=orderpay';this.form.submit()">
購物車裡有商品 : <%=shuliang%>件 總數 : <%=jianshu%>件 共計 : <%=zongji%>元
*貼心提示 : 將要變更的數量填在數量表格中,再按(修改數量)即可變更數量喔!
<% end select%> <%elseif ris="orderpay" then%> <% comms=request("comms") set rs=server.CreateObject("adodb.recordset") rs.open "select count(*) as rec_count from shop_action where username='"&request.cookies("aspsky")("username")&"' and zhuangtai=7",conn,1,1 if rs("rec_count")=0 then response.write "" response.End end if rs.close set rs=nothing select case comms '////////////////////////////////// case "" for i=1 to request.form("commsid").count if request.form("bookcount")(i)<=0 then bookcount=1 else bookcount=request.form("bookcount")(i) end if shouhuoname=request.form("bookmemo")(i) set rs_s=server.CreateObject("adodb.recordset") rs_s.open "select * from shop_books where bookid="&request.form("bookid")(i),conn,1,1 if request.Cookies("aspsky")("reglx")=1 then danjia=rs_s("huiyuanjia") else danjia=rs_s("vipjia") end if kucun=rs_s("kucun") bookname=rs_s("bookname") rs_s.close set rs_s=nothing 'response.write kucun&" "&bookcount 'response.end if kucunalert('你選購的商品“"&bookname&"”超過最大限購數量喔,不能修改數量,請選購更換其它商品!');window.location.href='product.php?comms=show&ris=shops';" response.end end if conn.execute("update shop_action set bookcount="&bookcount&",shouhuoname='"&shouhuoname&"',zonger="&danjia*bookcount&" where actionid="&request.form("commsid")(i)) next set rs=server.CreateObject("adodb.recordset") rs.open "select shop_action.actionid,shop_action.bookid,shop_action.bookcount,shop_action.zonger,shop_action.shouhuoname,shop_books.bookname,shop_action.shjiaid,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.vipjia from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.cookies("aspsky")("username")&"' and shop_action.zhuangtai=7",conn,1,1 %>
在最後結帳前您還可以修改購物車內容
<%shuliang=rs.recordcount jianshu=0 zongji=0 bookcolor=1 do while not rs.eof bookcolor=bookcolor+1 if (bookcolor mod 2)=0 then bookscolor="#FFF9EC" else bookscolor="#EEF7E1" end if %> <% jianshu=jianshu+rs("bookcount") zongji=zongji+(CSng(rs("zonger"))) rs.movenext loop rs.close set rs=nothing%>
商品名稱
市價
單價 <%if request.cookies("aspsky")("reglx")=2 then %> (VIP) <%else%> (會員) <%end if%>
數量
共計
<%=rs("bookname")%> " > " >
<%=rs("shichangjia")%> 元
<% if request.Cookies("aspsky")("reglx")=2 then response.write rs("vipjia") else response.write rs("huiyuanjia") end if%> 元
<%=rs("bookcount")%>
<%=CSng(rs("zonger"))%>
您購買商品的說明(如顏色、尺寸、度數….) : : <%=rs("shouhuoname")%>
購物車裡有商品 : <%=shuliang%>件 數量 : <%=jianshu%>件 共計 : <%=zongji%>元
<% '///////////////////////////////////////// case "commisa" set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user] where username='"&request.cookies("aspsky")("username")&"'",conn,1,1 userid=rs("userid") %>
<%=trim(request("useremail"))%>
為了確保您的權益,請正確填寫以下收件人資料
收件人 :  >   性別 : 
詳細地址 :  >
郵遞區號 :  ">
聯絡電話 :  >
E-Mail :  >
<% rs.close set rs=nothing%> <% '///////////////////////////////////////// case "commisb" set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user] where username='"&request.cookies("aspsky")("username")&"'",conn,1,1 %>
請選擇送件方式
送件方式 :  <% 'set rs2=server.CreateObject("adodb.recordset") 'rs2.Open "select * from youbian where youbian='"&trim(request("youbian"))&"'",conn,1,1 'if rs2.recordcount=1 then ' shangmen=1 'else ' shangmen=0 'end if 'rs2.close 'set rs2=nothing '//////////判斷送貨方式 if (left(Request.Cookies("car")("account") ,2)="xxxxxhdfbhrfhvfbftxxxxxxxT-") and (left(request.Cookies("car")("account") ,2)="xxxxxxvdfhdvhgdfhvxxxxxxxxxt-") then dbead8="c:\ecommdt\ead8\ecommdp.mdb" Set connead8 = Server.CreateObject("ADODB.Connection") connstread8="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbead8 connead8.Open connstread8 set rs3=server.CreateObject("adodb.recordset") rs3.Open "select * from shop_songhuo where show=1 order by songid",connead8,1,1 response.Write "" rs3.Close set rs3=nothing else set rs3=server.CreateObject("adodb.recordset") rs3.Open "select * from shop_songhuo where show=1 order by songid",conn,1,1 response.Write "" rs3.Close set rs3=nothing end if %> > > > > > > " >
<% rs.close set rs=nothing '///////////////////////////////////////// case "commisc" set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user] where username='"&request.cookies("aspsky")("username")&"'",conn,1,1 %>
對不起,請選擇貨款支付方式
付款方式 :  <% 'set rs2=server.CreateObject("adodb.recordset") 'rs2.Open "select * from shop_songhuo where songid="&trim(request("songhuofangshi")),conn,1,1 if cint(request("songhuofangshi"))=3 then fukuan=1 else fukuan=0 end if 'rs2.close 'set rs2=nothing '// set rs3=server.CreateObject("adodb.recordset") rs3.open "select * from shop_songhuo where fangshi=1 order by songidorder",conn,1,1 response.Write "" rs3.close set rs3=nothing %> > > > > > > > " >
<% rs.close set rs=nothing '///////////////////////////////////////// case "commisd" %>
<% set rs=server.CreateObject("adodb.recordset") rs.open "select shop_action.actionid,shop_action.bookid,shop_action.bookcount,shop_action.shouhuoname,shop_action.zonger,shop_books.bookname,shop_action.shjiaid,shop_books.anclassid,shop_books.banci,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.vipjia from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.cookies("aspsky")("username")&"' and shop_action.zhuangtai=7 order by shop_books.shjiaid",conn,1,1 %> <%shuliang=rs.recordcount jianshu=0 zongji=0 fudongjia=0 do while not rs.eof %> <% jianshu=jianshu+rs("bookcount") zongji=zongji+(CSng(rs("zonger"))) ' set rs_s=server.CreateObject("adodb.recordset") rs_s.open "select * from shop_songhuo where songid="&songhuofangshi,conn,1,1 'fudongjia=fudongjia+rs("bookcount")*fudongjia_dj 'rs_s.close 'set rs_s=nothing firstshjid=rs("shjiaid") rs.movenext if not rs.eof then nextshjid=rs("shjiaid") end if loop rs.close set rs=nothing if (left(Request.Cookies("car")("account") ,2)="T-fdvhbrednbj rbvfdhjb drfvd") or (left(request.Cookies("car")("account") ,2)="t-hvbdrfhjbrtbjfgjvbfgnujfbjf") then dbead8="c:\ecommdt\ead8\ecommdp.mdb" Set connead8 = Server.CreateObject("ADODB.Connection") connstread8="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbead8 connead8.Open connstread8 set rs_s2=server.CreateObject("adodb.recordset") rs_s2.open "select * from shop_songhuo where songid="&songhuofangshi,connead8,1,1 if request.Cookies("aspsky")("reglx")=2 then wuman=rs_s2("moneyvip") if (zongji >= CSng(rs_s2("moneyvip"))) then ufo=0 else ufo=CSng(rs_s2("moneysend")) end if else wuman=rs_s2("moneyone") if (zongji >= CSng(rs_s2("moneyone"))) then ufo=0 else ufo=CSng(rs_s2("moneysend")) end if end if else if request.Cookies("aspsky")("reglx")=2 then wuman=rs_s("moneyvip") if (zongji >= CSng(rs_s("moneyvip"))) then ufo=0 else ufo=CSng(rs_s("moneysend")) end if else wuman=rs_s("moneyone") if (zongji >= CSng(rs_s("moneyone"))) then ufo=0 else ufo=CSng(rs_s("moneysend")) end if end if end if zongjip=zongji+ufo %> <%if ufo<>0 then%> <%else%> <%end if%> <%set aspsky=server.CreateObject("adodb.recordset") aspsky.open "select * from shop_action_jp where username='"&request.cookies("aspsky")("username")&"' and zhuangtai=7",conn,1,1 if aspsky.recordcount>0 then%> <%end if aspsky.close set aspsky=nothing%>
商品名稱
市價
單價 <%if request.cookies("aspsky")("reglx")=2 then %> (VIP) <%else%> (會員) <%end if%>
數量
共計
<%=rs("bookname")%>/<%=rs("shouhuoname")%> " > " >
<%=rs("shichangjia")%>
<% if request.Cookies("aspsky")("reglx")=2 then response.write rs("vipjia") else response.write rs("huiyuanjia") end if%> <% songhuofangshi=cint(request("songhuofangshi")) %> 元
<%=rs("bookcount")%>
<%=(CSng(rs("zonger")))%>
商品金額總計 : <%=zongji%> 元 / 運費 : <%=ufo%> 元
因購物未滿 <%=wuman%> 元,需加收 <%=ufo%> 元的運費 ; 金額總計 : <%=zongjip%>
<%if wuman<>0 then %>因購物滿<%=wuman%>元 ,<%end if%>免加收運費; 金額總計 : <%=zongjip%>
<% while not aspsky.eof%> <% aspsky.movenext wend%>
您已選擇的獎品清單
獎品名稱 使用紅利
<% set aspsky1=server.CreateObject("adodb.recordset") aspsky1.open "select * from shop_jiangpin where bookid="&aspsky("bookid"),conn,1,1 if aspsky1.recordcount=1 then response.write ""&aspsky1("bookname")&"" end if aspsky1.close set aspsky1=nothing%> <%=aspsky("jifen")%>
<%if "付款方式" ="okeyfntt" then%> <%end if%>
您的訂單資料
姓名
<%=request("userzhenshiname")%>
郵遞區號
<%=request("youbian")%>
詳細地址
<%=request("taddress")%>
聯絡電話
<%=request("usertel")%>
E-Mail
<%=request("useremail")%>
送件方式
<% set rs=server.CreateObject("adodb.recordset") rs.open "select * from shop_songhuo where songid="&request("songhuofangshi"),conn,1,1 response.write rs("subject") subjectp=rs("subject") rs.close set rs=nothing%>
付款方式 <% 'set rs=server.CreateObject("adodb.recordset") 'rs.open "select * from shop_songhuo where songid="&request("zhifufangshi"),conn,1,1 'response.write rs("subject") 'rs.close 'set rs=nothing%>

 
備註說明 : 
(30字內) > > > > > > > > > > > > " >


查看送貨費用說明
<% case "commise" '///////////////////////////////////////////////// function HTMLEncode2(fString) fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "

") fString = Replace(fString, CHR(10), "
") HTMLEncode2 = fString end function ' set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user] where username='"&request.cookies("aspsky")("username")&"'",conn,1,3 rs("userzhenshiname")=trim(request("userzhenshiname")) rs("sex")=trim(request("shousex")) rs("useremail")=trim(request("useremail")) rs("shouhuodizhi")=trim(request("taddress")) rs("youbian")=trim(request("youbian")) rs("usertel")=trim(request("usertel")) rs("songhuofangshi")=request("songhuofangshi") rs("zhifufangshi")=request("songhuofangshi") rs.update rs.close set rs=nothing if Request.Cookies("car")("xiadan")<>minute(now) then dim shijian shijian=now() dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian) response.write bookid set rs=server.CreateObject("adodb.recordset") rs.open "select * from shop_action where username='"&request.cookies("aspsky")("username")&"' and zhuangtai=7",conn,1,3 if Request.Cookies("car")("plbbankway")="ON" then myscode=Request.Cookies("car")("plbbankc") myscodea=mid(myscode,1,1) myscodeb=mid(myscode,2,1) myscodec=mid(myscode,3,1) myscoded=mid(myscode,4,1) myscodee=mid(myscode,5,1) myscodeaall=(int(myscodea)+int(myscodeb)+int(myscodec)+int(myscoded)+int(myscodee)) Months=Month(Date()) if Months < 10 then Months="0" & Months Monthsa=mid(Months,1,1) Monthsb=mid(Months,2,1) Monthsall=(int(Monthsa)+int(Monthsb)) Days=Day(Date()) if Days < 10 then Days="0" & Days Daysa=mid(Days,1,1) Daysb=mid(Days,2,1) Daysall=(int(Daysa)+int(Daysb)) set objfso=server.createobject("Scripting.FileSystemObject") set objTS=objFSO.opentextfile(Server.MapPath("/setup/countbank.cgi"),1,true) countbank=CLng(objts.readline) countbank=countbank + 1 objts.close set objTS=objFSO.opentextfile(Server.MapPath("/setup/countbank.cgi"),2,true) objts.writeline(countbank) objts.close set objts=nothing set objfso=nothing ccoderr=countbank if int(ccoderr)<10 and int(ccoderr)>0 then ccoderr="000" & ccoderr if int(ccoderr)<100 and int(ccoderr)>9 then ccoderr="00" & ccoderr if int(ccoderr)<1000 and int(ccoderr)>99 then ccoderr="0" & ccoderr ccoderra=mid(ccoderr,1,1) ccoderrb=mid(ccoderr,2,1) ccoderrc=mid(ccoderr,3,1) ccoderrd=mid(ccoderr,4,1) ccoderrall=(int(ccoderra)+int(ccoderrb)+int(ccoderrc)+int(ccoderrd)+int(ccoderre)) totals_all=(int(myscodeaall)+int(Yearsall)+int(Monthsall)+int(Daysall)+int(ccoderrall)) seartuicode=(totals_all mod 10) dingdan=myscode & Months & Days & ccoderr & seartuicode else dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian) end if do while not rs.eof set rs2=server.CreateObject("adodb.recordset") rs2.open "select * from shop_books where bookid="&rs("bookid") and shjiaid=1,conn,1,3 if request.Cookies("aspsky")("reglx")=2 then danjia=rs2("vipjia") else danjia=rs2("huiyuanjia") end if rs2("chengjiaocount")=rs2("chengjiaocount")+rs("bookcount") rs("shouhuodizhi")=trim(request("taddress")) rs2("kucun")=rs2("kucun")-rs("bookcount") rs("bookid")=rs2("bookid") rs("dingdan")=dingdan rs("shjiaid")=1 rs("danjia")=danjia rs("actiondate")=shijian 'rs("bookcount")=CInt(Request("aspsky"&rs2("bookid"))) rs("username")=trim(request.cookies("aspsky")("username")) rs("feiyong")=trim(request("ufo")) fapiao=1 rs("fapiao")=fapiao rs("liuyan")=trim(request("liuyan")) rs("useremail")=trim(request("useremail")) rs("usertel")=trim(request("usertel")) rs("youbian")=int(request("youbian")) rs("userid")=request("userid") rs("userzhenshiname")=trim(request("userzhenshiname")) rs("zhuangtai")=1 rs("songhuofangshi")=request("songhuofangshi") rs.update rs.movenext loop rs.close set rs=nothing set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user] where username='"&request.cookies("aspsky")("username")&"'",conn,1,3 rs("jifen")=rs("jifen")-z_jifen rs.update username=rs("username") useremail=rs("useremail") rs.close set rs=nothing Request.Cookies("car")("xiadan")=minute(now) else response.Write "

您不能重覆送出!
" response.End end if topic=username &"  的訂單交易完成通知" mailbody=" 訂單交易完成通知" mailbody=mailbody & "
" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" if Request.Cookies("car")("plbbankway")="ON" then mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" end if if Request.Cookies("car")("esuway") ="ON" then mailbody=mailbody & "" end if if Request.Cookies("car")("ECoinPay") ="ON" then mailbody=mailbody & "" end if if Request.Cookies("car")("ezpayway") ="ON" then mailbody=mailbody & "" end if if Request.Cookies("car")("freepayway") ="ON" then mailbody=mailbody & "" end if if Request.Cookies("car")("hyatmpayway") ="ON" then mailbody=mailbody & "" end if if Request.Cookies("car")("hy24payway") ="ON" then mailbody=mailbody & "" end if if Request.Cookies("car")("hybuysafepayway") ="ON" then mailbody=mailbody & "" end if if Request.Cookies("car")("twpayway") ="ON" then mailbody=mailbody & "" end if file= "howtopay.cgi" Set FSOM = Server.CreateObject("Scripting.FileSystemObject") Set TxtM = FSOM.OpenTextFile("c:\ecommdt\" & Request.Cookies("car")("account") & "\" & file) ContentMA = TxtM.ReadAll ContentM=replace(ContentMA,chr(13)&chr(10),"
") If Not TxtM.Atendofstream Then ContentMA = TxtM.ReadAll ContentM=replace(ContentMA,chr(13)&chr(10),"
") End If set FSOM=nothing set TxtM=nothing mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "
" mailbody=mailbody & " 感謝您訂購商品於"&webname&"
" mailbody=mailbody & " 您的帳號 : "&username&"您的訂單已經成功送出我們會在第一時間進行處理 ,請牢記您的訂單編號以備日後查詢 ,如對訂單有任何疑問歡迎來電或來信詢問 。
我們也將相關資訊Email到您的電子信箱了 : "&dingdan&"
ATM轉帳繳費 : 本站支援銀行虛擬帳號付費機制 !
銀行代號 : "& Request.Cookies("car")("plbbankp") &"
轉帳帳號 : "& dingdan &"
本站支援訂單編號結合銀行的虛擬帳號,您在繳款後的第一時間我們就會收到您的繳費訊息了 !

網路刷卡機線上付費  : 本站支援e速網網路刷卡機線上安全交易付費機制網路刷卡機線上付費

ECoin 線上繳費 :  本站支援E-Coin線上安全交易付費機制 ! E-Coin 線上繳費

ezPay 線上繳費 :  本站支援ezPay線上安全交易付費機制 ! ezPay 線上繳費

FreePay 線上繳費 :  本站支援FreePay線上安全交易付費機制 ! FreePay 線上繳費

紅陽WebATM線上繳費 :  本站支援紅陽WebATM線上安全交易付費機制 ! 紅陽WebATM線上繳費

紅陽超商代收付費機制 :  本站支援線上安全交易付費機制 ! 紅陽超商代收付費機制

紅陽線上繳費 :  本站支援紅陽線上安全交易付費機制 ! 紅陽線上繳費

中國信託線上繳費 :  本站支援中國信託線上安全交易付費機制 ! 中國信託線上繳費
詳細付費方式請參考 : 付費方式及說明

" & ContentM & "
訂單查詢 :  您可登入會員專區內進行訂單詳細資料查詢 。
您可在匯款後上網登陸匯款資料 , 匯款時請註明您的訂單編號
如果您選擇貨到付款或是親自取貨,我們會儘快給您送貨或處理貨品!也請您牢記您的訂單編號
到首頁" mailbody=mailbody & "
" on error resume next Set jmail=Server.CreateObject("JMail.Message") JMail.Charset="big5" JMail.ContentType = "text/html" jmail.from = mailsend jmail.silent = true jmail.Logging = true jmail.FromName = webname jmail.AddRecipient useremail 'jmail.mailserverusername = mailusername 'jmail.mailserverpassword = mailuserpass jmail.body=mailbody JMail.Subject=topic if not jmail.Send ( "pop.xxking.com" ) then SendMail="" else SendMail="OK" end if Set JMail = Nothing Set jmail=Server.CreateObject("JMail.Message") JMail.Charset="big5" JMail.ContentType = "text/html" jmail.from = mailsend jmail.silent = true jmail.Logging = true jmail.FromName = webname jmail.AddRecipient mailsend 'jmail.mailserverusername = mailusername 'jmail.mailserverpassword = mailuserpass jmail.body=mailbody JMail.Subject=topic if not jmail.Send ( "pop.xxking.com" ) then SendMail="" else SendMail="ON" end if if request.Cookies("ssms")="ON" then if (left(Request.Cookies("aspsky")("username") ,2)<>"T-") and (left(request.Cookies("aspsky")("username") ,2)<>"t-") then smsURL = "http://www.sunnylink.com.tw/API/sendmessage.asp?" smsArgs = "UserID="&request.Cookies("ssmsacc") '使用者帳號 smsArgs = smsArgs & "&UserPwd="&request.Cookies("ssmspw") '使用者密碼 smsArgs = smsArgs & "&SendMP="&request.Cookies("ssmsnum") '一次只能傳一個門號 smscodes = "您好,您的購物車已經有了一筆新訂單:"&dingdan&",請上網查詢訂單狀態!謝謝您!" smsArgs = smsArgs & "&SendMsg=" & Server.URLEncode(smscodes) else smsURL = "http://sms1.anet.net.tw/onlinesend.jsp?" smsArgs = "deptid=423" '貴公司帳號 smsArgs = smsArgs & "&username="&request.Cookies("ssmsacc") '使用者帳號 smsArgs = smsArgs & "&password="&request.Cookies("ssmspw") '使用者密碼 smsArgs = smsArgs & "&dstaddr="&request.Cookies("ssmsnum") '一次只能傳一個門號 smsArgs = smsArgs & "&encoding=BIG5" smscodes = "您好,您的購物車已經有了一筆新訂單:"&dingdan&",請上網查詢訂單狀態!謝謝您!" smsArgs = smsArgs & "&smbody=" & Server.URLEncode(smscodes) end if set xmlHTTP = Server.CreateObject("Microsoft.XMLHTTP") xmlHTTP.open "GET",smsURL & smsArgs ,False xmlHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlHTTP.send XMLStr = xmlHTTP.ResponseText if instr(XMLStr,"statuscode=0") => 0 then '傳送成功 Response.write XMLStr Response.write "--->OK
" else Response.write XMLStr Response.write "--->Dead
" end if set xmlHTTP = nothing end if 'response.end %>
<%if Request.Cookies("car")("plbbankway") ="ON" then%> <%end if%> <%if Request.Cookies("car")("esuway") ="ON" then%> <%end if%> <%if Request.Cookies("car")("ECoinPay") ="ON" then%> <%end if%> <%if Request.Cookies("car")("ezpayway") ="ON" then%> <%end if%> <%if Request.Cookies("car")("freepayway") ="ON" then%> <%end if%> <%if Request.Cookies("car")("hyatmpayway") ="ON" then%> <%end if%> <%if Request.Cookies("car")("hy24payway") ="ON" then%> <%end if%> <%if Request.Cookies("car")("hybuysafepayway") ="ON" then%> <%end if%> <%if Request.Cookies("car")("twpayway") ="ON" then%> <%end if%> <%if request("zhifufangshi")="kjhgkinyguyguj" then %> <%else if "ojkjgfv"= "kjhervg" then %> <%else 'rs.close 'set rs=nothing%> <%end if%> <%end if%>
您的訂單已經成功送出,我們會在第一時間進行處理,請牢記您的訂單編號以備日後查詢。會員註冊及使用條款,我們也將相關資訊Email到您的電子信箱了!如對訂單有任何疑問歡迎來電或來信詢問!
訂單編號 : <%=dingdan%>
訂單查詢 : 您可登入會員專區內進行訂單詳細資料查詢訂單查詢, 查詢您的訂單狀態。
ATM轉帳繳費 : 本站支援銀行虛擬帳號付費機制 !
銀行代號 : <%=Request.Cookies("car")("plbbankp")%>
轉帳帳號 : <%=dingdan%>
本站支援訂單編號結合銀行的虛擬帳號,您在繳款後的第一時間我們就會收到您的繳費訊息了!

網路刷卡機線上付費 : 本站支援e速網網路刷卡機線上安全交易付費機制

ECoin線上繳費 :  本站支援E-Coin線上安全交易付費機制 ! E-Coin線上繳費

EZPay線上繳費 :  本站支援EZPay線上安全交易付費機制 ! EZPay線上繳費

FreePay線上繳費 :  本站支援FreePay線上安全交易付費機制 ! FreePay線上繳費

紅陽WebATM線上繳費 :  本站支援紅陽WebATM線上安全交易付費機制 ! 紅陽WebATM線上繳費

紅陽超商代收付費機制線上繳費 :  本站支援紅陽超商代收付費機制線上安全交易付費機制 ! 紅陽超商代收付費機制線上繳費

紅陽線上繳費 :  本站支援紅陽線上安全交易付費機制 ! 紅陽線上繳費

中國信託線上繳費 :  本站支援中國信託線上安全交易付費機制 ! 中國信託線上繳費
您是通過預存款支付的,我們會儘快給您送貨的 !
您是選擇的“郵局貨到付款”,我們會儘快給您送貨的!
您可在匯款後上網登陸匯款資料 , 匯款時請註明您的訂單編號
如果您選擇貨到付款或是親自取貨!也請您牢記您的 訂單編號
首頁        訂單送出成功 訂單交易時間 : <%=shijian%> 
<%end select%> <%elseif ris="putcar" then%> <%select case comms case "del" conn.execute "delete from shop_action where actionid="&request.QueryString("commsid") if request.QueryString("pert")=1 then response.redirect "product.php?comms=show&ris=putcar" else response.redirect "product.php?comms=show&ris=putcar" end if response.End case "add" set rs=server.CreateObject("adodb.recordset") rs.open "select bookid,username from shop_action where username='"&username&"' and bookid="&bookid&" and zhuangtai=6",conn,1,1 if not rs.eof and not rs.bof then response.write "" response.end rs.close set rs=nothing else ' if rs.recordcount=10 then response.write "" response.end else rs.close set rs=nothing set rs=server.CreateObject("adodb.recordset") rs.open "select bookid,username,zhuangtai,zonger from shop_action",conn,1,3 rs.addnew rs("bookid")=bookid rs("username")=username rs("zhuangtai")=6 rs("zonger")=0 rs.update end if rs.close response.Redirect "product.php?comms=show&ris=putcar" set rs=nothing end if case "show" '////////////////// response.write "
" response.write "
您的私人珍藏袋最多裝十種商品
" 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.vipjia,shop_books.dazhe from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.cookies("aspsky")("username")&"' and shop_action.zhuangtai=6",conn,1,1 %> <% response.write "" response.Write "" response.Write "" if Request.Cookies("car")("vipshow")="關" then response.Write "" end if if Request.Cookies("car")("vipshow")="開" then response.Write "" end if if Request.Cookies("car")("vipshow")="會員只看到會員價格;VIP只看到VIP價格" then if Request.Cookies("aspsky")("reglx") = 2 then response.Write "" else response.Write "" end if elseif Request.Cookies("car")("vipshow")="會員只看到會員價格;VIP看到會員價格及VIP價格" then if Request.Cookies("aspsky")("reglx") = 2 then response.Write "" response.Write "" else response.Write "" end if elseif Request.Cookies("car")("vipshow")="VIP及會員價格完全顯示" then response.Write "" response.Write "" end if response.Write "" do while not rs.eof response.write "" response.write "" response.write "" if Request.Cookies("car")("vipshow")="關" then response.write "" end if if Request.Cookies("car")("vipshow")= "開" then response.write "" end if if Request.Cookies("car")("vipshow")="會員只看到會員價格;VIP只看到VIP價格" then if Request.Cookies("aspsky")("reglx") = 2 then response.write "" else response.write "" end if elseif Request.Cookies("car")("vipshow")="會員只看到會員價格;VIP看到會員價格及VIP價格" then if Request.Cookies("aspsky")("reglx") = 2 then response.write "" response.write "" else response.write "" end if elseif Request.Cookies("car")("vipshow")="VIP及會員價格完全顯示" then response.write "" response.write "" end if response.write "" rs.movenext loop rs.close set rs=nothing %>
選擇
商品名稱
市價
會員價
VIP 價
VIP 價
會員價
VIP 價
會員價
會員價
VIP 價
會員價
刪除
$"&rs("shichangjia")&"
$"&rs("huiyuanjia")&"
$"&rs("vipjia")&"
$"&rs("vipjia")&"
$"&rs("huiyuanjia")&"
$"&rs("vipjia")&"
$"&rs("huiyuanjia")&"
$"&rs("huiyuanjia")&"
$"&rs("vipjia")&"
$"&rs("huiyuanjia")&"
" response.Write "" response.Write "
_buttonw.gif" align="absmiddle" border="0" onFocus="this.blur()"> _buttona.gif" align="absmiddle" border="0">
<% end select%> <%elseif ris="usrifo" then%> <%xAction=lcase(request("comms")) select case xAction case "seeme" %> <% case "viewsmy" %> <% case "chgpass" %> <% case "buybag" %> <% case "vwbag" %> <% case "howtovip" %> <% case else %> <%end select%>
個人資料
個人資料
修改密碼
我的訂單
我的珍藏袋
成為VIP會員 / VIP優惠
推薦精品

<%xAction=lcase(request("comms")) select case xAction case "seeme" call myinfo() case "viewsmy" call viewsmy() case "chgpass" call chgpass() case "buybag" call dindan() case "vwbag" call shoucang() case "howtovip" call viphd() case else %>
商品分類 : ><%=anclassname%>
哈燒新品
<%set rs=server.createobject("adodb.recordset") rs.open "select * from shop_books where bestbook=1 and shjiaid=1 order by dazhe",conn,1,1 if rs.recordcount=0 then %>
暫無商品
<% else rs.PageSize =6 iCount=rs.RecordCount iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if%> <% For i=1 To x %> <%if (i mod 2=0) then%> <%end if%> <%rs.movenext next%>
<% call PageControl(iCount,maxpage,page,"border=0 align=center","

") end if rs.close set rs=nothing %><%end select%> <%elseif ris="newspro" then%> <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from shop_news where newsid="&newsid,conn,1,3 rs("viewcount")=rs("viewcount")+1 rs.update%>
<%=trim(rs("newsname"))%>
<%ContentMA = trim(rs("newscontent")) 'ContentM=replace(ContentMA,chr(13)&chr(10),"
")%>
<%=ContentMA%>
發表人 :  <%=trim(rs("addname"))%>
公告時間 : <%=year(rs("adddate"))%>/<%=month(rs("adddate"))%>/<%=day(rs("adddate"))%>
此新聞已被瀏覽  <%=rs("viewcount")%>  次

看看其它的新聞    按返回上一頁
 

<%rs.close set rs=nothing%> <%elseif (request("ris")="atmcode") then%>
● ATM 繳 費 回 傳 ●

<%elseif (request("ris")="atmsend") then%>
● ATM 繳 費 回 傳 已 送 出 ●

<%elseif ris="news" then%>
最新消息

<%set rs=server.createobject("adodb.recordset") rs.open "select * from shop_News order by adddate desc",conn,1,1 if rs.recordcount=0 then %>
暫無最新消息發佈
<% else rs.PageSize =20 iCount=rs.RecordCount iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if %> <% For i=1 To x %> <% rs.movenext next %>
>>> <%=replace(trim(rs("newsname")),"
","")%>
[<%=rs("viewcount")%>]
<%=year(rs("adddate"))&"."&month(rs("adddate"))&"."&day(rs("adddate"))%>
<% call PageControl(iCount,maxpage,page,"border=0 align=center","

") end if rs.close set rs=nothing %> <%elseif ris="orderpa" then%> <% dingdan=request.QueryString("dan") set rs=server.CreateObject("adodb.recordset") rs.open "select shop_books.bookid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_action.actiondate,shop_action.shousex,shop_action.danjia,shop_action.feiyong,shop_action.fapiao,shop_action.userzhenshiname,shop_action.shouhuoname,shop_action.dingdan,shop_action.youbian,shop_action.liuyan,shop_action.zhifufangshi,shop_action.songhuofangshi,shop_action.zhuangtai,shop_action.zonger,shop_action.useremail,shop_action.usertel,shop_action.shouhuodizhi,shop_action.bookcount from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.Cookies("aspsky")("username")&"' and dingdan='"&dingdan&"' ",conn,1,1 if rs.eof and rs.bof then response.write "

此訂單中有商品已被管理員刪除,無法進行正確計算。
訂單取消,請通知管理員或重新下訂單!
" response.End end if %>
<%set aspsky=server.CreateObject("adodb.recordset") aspsky.open "select * from shop_action_jp where username='"&request.cookies("aspsky")("username")&"' and dingdan='"&dingdan&"'",conn,1,1 if aspsky.recordcount>0 then%> <%end if aspsky.close set aspsky=nothing%> <%if (Request.Cookies("car")("ECoinPay") <> "") or (Request.Cookies("car")("esuway") <> "")or (Request.Cookies("car")("ezpayway") <> "") or (Request.Cookies("car")("twpayway") <> "") or (Request.Cookies("car")("freepayway") <> "") or (Request.Cookies("car")("hyatmpayway") <> "") or (Request.Cookies("car")("hy24payway") <> "") or (Request.Cookies("car")("hybuysafepayway") <> "") then%> <%end if%>
   訂單編號 : <%=dingdan%> ,詳細資料如下 : 
訂單狀態 : 
<% select case rs("zhuangtai") case "1" response.write "審核中" msgers= "審核中" case "2" response.write "審核中" msgers= "審核中" case "3" response.write "缺貨中" msgers= "缺貨中" case "4" response.write "會員辦理退貨!處理中!" msgers= "會員辦理退貨!處理中!" case "5" response.write "已出貨!交易完成" msgers= "已出貨!交易完成" case "6" response.write "補貨中" msgers= "補貨中" case "8" response.write "已出貨!未收到款項!" msgers= "已出貨!未收到款項!" case "9" response.write "會員辦理換貨!處理中!" msgers= "會員辦理換貨!處理中!" end select %> <%if rs("zhuangtai")<>5 then %> <%else response.write "感謝您的訂購" end if%>
訂單明細 :  <%zongji=0 do while not rs.eof%> <%zongji=(CSng(rs("zonger")+zongji)) feiyong=rs("feiyong") rs.movenext loop rs.movefirst%>
商品名稱
數量
會員價
金額總計
><%=trim(rs("bookname"))%>
<%=rs("bookcount")%>
$<%=rs("danjia")%>
$<%=(CSng(rs("zonger")))%>
消費金額 : $<%=zongji%> + 運費 : $<%=feiyong%>
金額總計 : <%=zongji+feiyong%>元     
獎品列表 :  <% while not aspsky.eof%> <% aspsky.movenext wend%>
獎品名稱
使用紅利
<% set aspsky1=server.CreateObject("adodb.recordset") aspsky1.open "select * from shop_jiangpin where bookid="&aspsky("bookid"),conn,1,1 if aspsky1.recordcount=1 then response.write aspsky1("bookname") end if aspsky1.close set aspsky1=nothing%> <%=aspsky("jifen")%>
收件人姓名 :  <%=trim(rs("userzhenshiname"))%>
收件地址 :  <%=trim(rs("shouhuodizhi"))%>
郵遞區號 :  <%=trim(rs("youbian"))%>
聯絡電話 :  <%=trim(rs("usertel"))%>
e-mail :  <%=trim(rs("useremail"))%>
送件方式 :  <%set rs2=server.CreateObject("adodb.recordset") rs2.Open "select * from shop_songhuo where songid="&rs("songhuofangshi"),conn,1,1 response.Write trim(rs2("subject")) rs2.Close set rs2=nothing%>
您的留言 :  <%=trim(rs("liuyan"))%>
購買日期 :  <%=rs("actiondate")%>
<%if rs("zhuangtai")=1 then%> _buttone.gif" align="absmiddle" onClick="if(confirm('您確定要取消訂單嗎?')) location.href='svproa.php?comms=del&dan=<%=dingdan%>';else return;"> <%end if%>
 
<%elseif ris="forgetpw" then%>

忘記密碼了嗎?只要您輸入您的資料即可取得密碼喔!

輸入您的帳號  
輸入您的E-Mail  


我們會將您的新密碼寄到您申請時的E-Mail中喔~
<%elseif ris="mailpw" then%> <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user] where username='"&trim(request("ue5879"))&"'",conn,1,3 if rs.eof and rs.bof then response.Write "" response.End else randomize username=rs("username") useremail=rs("useremail") email5678=trim(request("email5678")) pwnw25=(int(rnd*587984)+8888) if email5678<>useremail then response.Write "" response.End end if %> <% rs("userpassword")=md5(pwnw25) rs.update topic=username &" 的密碼重新發送通知" mailbody="密碼重送通知" mailbody=mailbody & "" mailbody=mailbody & "
" mailbody=mailbody & username&" ,您好 : " mailbody=mailbody & "
" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "

您使用了密碼重新設定的功能在"&webname&"!
" mailbody=mailbody & "您的新密碼為 "&pwnw25&" 請立即上網將您的密碼做變更吧!
" mailbody=mailbody & "
" mailbody=mailbody & "
" mailbody=mailbody & "信件來自  :  "&webname&"" mailbody=mailbody & "
" on error resume next Set JMail=Server.CreateObject("JMail.Message") JMail.Charset="big5" JMail.ContentType = "text/html" jmail.from = "service@xxking.com" jmail.silent = true jmail.Logging = true jmail.FromName = webname jmail.AddRecipient useremail jmail.body=mailbody JMail.Subject=topic if not jmail.Send ( "pop.xxking.com" ) then SendMail="" else SendMail="OK" end if if SendMail="OK" then%> 您的新密碼發送成功!<% else%> 您的新密碼發送失敗,請聯絡管理員!<% end if%>

<% end if rs.close set rs=nothing %> <%elseif ris="talk" then%>
<% set rs=server.createobject("adodb.recordset") rs.open "select * from shop_books where bookid="&request("id") and shjiaid=1,conn,1,3 if rs.recordcount>0 then spmx=rs("bookname") end if%>
商品評論 : <%=spmx%>

<%set rs=server.createobject("adodb.recordset") rs.open "select * from shop_pinglun where bookid="&request("id")&" order by pinglunid desc",conn,1,1 if rs.recordcount=0 then %>
暫無評論
<% else rs.PageSize =10 iCount=rs.RecordCount iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if %> <% For i=1 To x %> <% rs.movenext next %>
<%if trim(rs("huifu"))<>"" then%> <%end if%>
主題 : ','pinglun','width=300,height=400,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;" title="<%=trim(rs("pingluntitle"))%>"><%=trim(rs("pingluntitle"))%> .gif" >
  發表人 : <%=trim(rs("pinglunname"))%> (<%=trim(rs("pinglundate"))%>)
  <%if len(rs("pingluncontent"))>24 then response.write left(rs("pingluncontent"),20)&"... [詳細內容]" else response.write rs("pingluncontent") end if%>
    站長回覆 : <%=rs("huifu")%>

本區所有言論均為會員發表,不代表本站立場。!!
','pingluntj','width=325,height=280,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no')">_buttonn.gif" align="absmiddle" border=0> ','pinglun','width=295,height=325,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');">_buttonr.gif" align="absmiddle" border=0>
<% call PageControl(iCount,maxpage,page,"border=0 align=center","

") end if rs.close set rs=nothing %>

<%end if%> <%if ris<>"shops" and ris<>"orderpay" and ris<>"view" then%> <%end if%>