<% Set FSO_helpc = Server.CreateObject("Scripting.FileSystemObject") Set txt_helpc = FSO_helpc.OpenTextFile(Server.MapPath("/setup/myhelpc.cgi")) Content_helpc = txt_helpc.ReadAll Response.Cookies("car")("helpc")=Content_helpc %> <% on error resume next Set FSO_payway = Server.CreateObject("Scripting.FileSystemObject") Set txt_payway = FSO_payway.OpenTextFile(Server.MapPath("/setup/helppa.cgi")) Content_helppa = txt_payway.ReadAll Response.Cookies("car")("helppa")=Content_helppa set FSO_payway=nothing set txt_payway=nothing Set FSO_payway = Server.CreateObject("Scripting.FileSystemObject") Set txt_payway = FSO_payway.OpenTextFile(Server.MapPath("/setup/helppb.cgi")) Content_helppb = txt_payway.ReadAll Response.Cookies("car")("helppb")=Content_helppb set FSO_payway=nothing set txt_payway=nothing Set FSO_payway = Server.CreateObject("Scripting.FileSystemObject") Set txt_payway = FSO_payway.OpenTextFile(Server.MapPath("/setup/helppc.cgi")) Content_helppc = txt_payway.ReadAll Response.Cookies("car")("helppc")=Content_helppc set FSO_payway=nothing set txt_payway=nothing Set FSO_payway = Server.CreateObject("Scripting.FileSystemObject") Set txt_payway = FSO_payway.OpenTextFile(Server.MapPath("/setup/helppd.cgi")) Content_helppd = txt_payway.ReadAll Response.Cookies("car")("helppd")=Content_helppd set FSO_payway=nothing set txt_payway=nothing Set FSO_payway = Server.CreateObject("Scripting.FileSystemObject") Set txt_payway = FSO_payway.OpenTextFile(Server.MapPath("/setup/helppe.cgi")) Content_helppe = txt_payway.ReadAll Response.Cookies("car")("helppe")=Content_helppe set FSO_payway=nothing set txt_payway=nothing Set FSO_payway = Server.CreateObject("Scripting.FileSystemObject") Set txt_payway = FSO_payway.OpenTextFile(Server.MapPath("/setup/helppf.cgi")) Content_helppf = txt_payway.ReadAll Response.Cookies("car")("helppf")=Content_helppf set FSO_payway=nothing set txt_payway=nothing Set FSO_payway = Server.CreateObject("Scripting.FileSystemObject") Set txt_payway = FSO_payway.OpenTextFile(Server.MapPath("/setup/helppg.cgi")) Content_helppg = txt_payway.ReadAll Response.Cookies("car")("helppg")=Content_helppg set FSO_payway=nothing set txt_payway=nothing Set FSO_payway = Server.CreateObject("Scripting.FileSystemObject") Set txt_payway = FSO_payway.OpenTextFile(Server.MapPath("/setup/helpph.cgi")) Content_helpph = txt_payway.ReadAll Response.Cookies("car")("helpph")=Content_helpph set FSO_payway=nothing set txt_payway=nothing Set FSO_payway = Server.CreateObject("Scripting.FileSystemObject") Set txt_payway = FSO_payway.OpenTextFile(Server.MapPath("/setup/helppi.cgi")) Content_helppi = txt_payway.ReadAll Response.Cookies("car")("helppi")=Content_helppi set FSO_payway=nothing set txt_payway=nothing Set FSO_payway = Server.CreateObject("Scripting.FileSystemObject") Set txt_payway = FSO_payway.OpenTextFile(Server.MapPath("/setup/helppj.cgi")) Content_helppj = txt_payway.ReadAll Response.Cookies("car")("helppj")=Content_helppj set FSO_payway=nothing set txt_payway=nothing Response.Cookies("car")("npicshow")="" dim comms comms=request.QueryString("comms") if comms="howtopay" then msgga="付款方式" mspic="help_a.gif" file= "howtopay.cgi" if Request.Cookies("car")("helpph")<>"" then Response.Cookies("car")("npicshow")="OK" elseif comms="buyflow" then msgga="購物流程" mspic="help_b.gif" file= "buyflow.cgi" if Request.Cookies("car")("helppb")<>"" then Response.Cookies("car")("npicshow")="OK" elseif comms="reglaw" then msgga="會員註冊及使用條款" file= "reglaw.cgi" mspic="help_c.gif" if Request.Cookies("car")("helppi")<>"" then Response.Cookies("car")("npicshow")="OK" elseif comms="access" then msgga="隱私權保護" mspic="help_d.gif" file= "access.cgi" if Request.Cookies("car")("helppe")<>"" then Response.Cookies("car")("npicshow")="OK" elseif comms="afterbuy" then msgga="商品銷售和售後服務" file= "afterbuy.cgi" mspic="help_e.gif" if Request.Cookies("car")("helppc")<>"" then Response.Cookies("car")("npicshow")="OK" elseif comms="sendtou" then msgga="送貨方式及運費" 'if (left(request.Cookies("car")("account") ,2)<>"T-") and (left(request.Cookies("car")("account") ,2)<>"t-") then file= "sendtou.cgi" 'else ' Set txt_esucb = FSO_esucb.OpenTextFile("c:\ecars\ead8\setup\sendtou.cgi") 'end if mspic="help_f.gif" if Request.Cookies("car")("helppj")<>"" then Response.Cookies("car")("npicshow")="OK" elseif comms="aboutwe" then msgga="關於我們" mspic="help_g.gif" file= "aboutwe.cgi" Response.Cookies("car")("npicshow")="OK" elseif comms="howtovip" then msgga="如何成為VIP及優惠" file= "howtovip.cgi" mspic="help_h.gif" if Request.Cookies("car")("helppg")<>"" then Response.Cookies("car")("npicshow")="OK" elseif comms="connus" then msgga="聯絡我們" file= "connus.cgi" mspic="help_i.gif" Response.Cookies("car")("npicshow")="OK" elseif comms="buyerlaw" then msgga="交易條款" mspic="help_j.gif" file= "buyerlaw.cgi" if Request.Cookies("car")("helppa")<>"" then Response.Cookies("car")("npicshow")="OK" elseif comms="helpfile" then file= "helpfile.cgi" msgga="常見問題" mspic="help_k.gif" if Request.Cookies("car")("helppd")<>"" then Response.Cookies("car")("npicshow")="OK" elseif comms="law" then file= "law.cgi" mspic="help_l.gif" msgga="適用法律和版權聲明" if Request.Cookies("car")("helppf")<>"" then Response.Cookies("car")("npicshow")="OK" else comms="homes" msgga="歡迎來到" & webname mspic="help_g.gif" file= "aboutwe.cgi" Response.Cookies("car")("npicshow")="OK" end if 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 %>
<%=msgga%>
<%=ContentM%>

<%if comms="homes" then%>
<%end if%>
購物說明
關於我們
購物流程 <%if Request.Cookies("car")("helppi")<>"" then%>
會員註冊及使用條款 <%end if%> <%if Request.Cookies("car")("helppe")<>"" then%>
隱私權保護 <%end if%> <%if Request.Cookies("car")("helppc")<>"" then%>
商品銷售和售後服務 <%end if%>
送貨方式及運費 <%if Request.Cookies("car")("vipshow")="開" then%>
如何成為VIP及優惠 <%end if%>
付款方式
聯絡我們 <%if Request.Cookies("car")("helppa")<>"" then%>
交易條款 <%end if%> <%if Request.Cookies("car")("helppd")<>"" then%>
常見問題 <%end if%> <%if Request.Cookies("car")("helppf")<>"" then%>
適用法律和版權聲明 <%end if%>