<% Dim Action Action=Trim(Request("Action")) %>
 
<%Select Case Action Case "FaLv" Response.Write "" Case "ZhiFu" Response.Write "" Case "PeiSong" Response.Write "" Case "Shopping" Response.Write "" Case "TiaoKuan" Response.Write "" Case "JiFen" Response.Write "" Case "VIP" Response.Write "" Case "ShuoMing" Response.Write "" Case "BaoMi" Response.Write "" Case "FuWu" Response.Write "" Case "WenTi" Response.Write "" End Select %>
Home >> <%Select Case Action Case "FaLv" Response.Write "法律和版权声明" Case "ZhiFu" Response.Write "支付方式" Case "PeiSong" Response.Write "配送问题" Case "Shopping" Response.Write "购物流程" Case "TiaoKuan" Response.Write "交易条款" Case "JiFen" Response.Write "积分奖励" Case "VIP" Response.Write "VIP特惠" Case "ShuoMing" Response.Write "运输说明" Case "BaoMi" Response.Write "保密安全" Case "FuWu" Response.Write "商品销售和售后服务" Case "WenTi" Response.Write "常见问题" End Select %>
 
<%Select Case Action Case "FaLv" %> <%Case "ZhiFu"%> <%Case "PeiSong"%> <%Case "Shopping"%> <%Case "TiaoKuan"%> <%Case "JiFen"%> <%Case "VIP"%> <%Case "ShuoMing"%> <%Case "BaoMi"%> <%Case "FuWu"%> <%Case "WenTi"%> <%End Select%>
<%Set Rs=Server.CreateObject("adodb.recordset") Rs.Open "Select shiyongfalv from shop_config",Conn,1,1 Response.Write Trim(Rs("shiyongfalv")) Rs.Close Set Rs=Nothing %>
<%Set Rs=Server.CreateObject("adodb.recordset") Rs.Open "Select huikuanfangshi from shop_config",Conn,1,1 Response.Write Trim(Rs("huikuanfangshi")) Rs.Close Set Rs=Nothing %>
<%Set Rs=Server.CreateObject("adodb.recordset") Rs.Open "Select songhuofeiyong from shop_config",Conn,1,1 Response.Write Trim(Rs("songhuofeiyong")) Rs.Close Set Rs=Nothing %>
<%Set Rs=Server.CreateObject("adodb.recordset") Rs.Open "Select gouwuliucheng from shop_config",Conn,1,1 Response.Write Trim(Rs("gouwuliucheng")) Rs.Close Set Rs=Nothing %>
<%Set Rs=Server.CreateObject("adodb.recordset") Rs.Open "Select jiaoyitiaokuan from shop_config",Conn,1,1 Response.Write Trim(Rs("jiaoyitiaokuan")) Rs.Close Set Rs=Nothing %>
<%Set Rs=Server.CreateObject("adodb.recordset") Rs.Open "Select jifen from shop_config",Conn,1,1 Response.Write Trim(Rs("jifen")) Rs.Close Set Rs=Nothing %>
<%Set Rs=Server.CreateObject("adodb.recordset") Rs.Open "Select vip from shop_config",Conn,1,1 Response.Write Trim(Rs("vip")) Rs.Close Set Rs=Nothing %>
<%Set Rs=Server.CreateObject("adodb.recordset") Rs.Open "Select yunshushuoming from shop_config",Conn,1,1 Response.Write Trim(Rs("yunshushuoming")) Rs.Close Set Rs=Nothing %>
<%Set Rs=Server.CreateObject("adodb.recordset") Rs.Open "Select baomi from shop_config",Conn,1,1 Response.Write Trim(Rs("baomi")) Rs.Close Set Rs=Nothing %>
<%Set Rs=Server.CreateObject("adodb.recordset") Rs.Open "Select shouhoufuwu from shop_config",Conn,1,1 Response.Write Trim(Rs("shouhoufuwu")) Rs.Close Set Rs=Nothing %>
<%Set Rs=Server.CreateObject("adodb.recordset") Rs.Open "Select changjianwenti from shop_config",Conn,1,1 Response.Write Trim(Rs("changjianwenti")) Rs.Close Set Rs=Nothing %>
<% CloseConn() %>