<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage = "65001"%> <%response.charset="utf-8" %> <%'以下是2013-6-29增加的鼠标放上去有提示的代码 %> <%'以上是2013-6-29增加的鼠标放上去有提示的代码 %> 新加坡计算 <% a=MakedownName() set rst1=conn.execute("select max(id) from info") sz1=rst1(0)+1 rst1.close set rst1=nothing %> <% function MakedownName() dim fname fname = now() fname = replace(fname,"-","") fname = replace(fname," ","") fname = replace(fname,":","") fname = replace(fname,"PM","") fname = replace(fname,"AM","") fname = replace(fname,"上午","") fname = replace(fname,"下午","") fname = replace(fname,"/","") fname = int(fname) + int((10-1+1)*Rnd + 1) MakedownName=fname end function dim act act=request("act") if act="add" then set rst=conn.execute("select type_ from member where username='"&session("admini")&"'") if rst.eof then ts("非法参数,请重新操作!") end if jb=rst("type_") rst.close set rst=nothing a1=request.Form("a1") a3=request.Form("a3") a4=request.Form("a4") a5=request.Form("a5") a6=request.Form("a6") a7=request.Form("a7") a8=request.Form("a8") a9=request.Form("a9") a10=request.Form("a10") a11=request.Form("a11") a12=request.Form("a12") a13=request.Form("a13") a14=request.Form("a14") a15=request.Form("a15") a16=request.Form("a16") a17=request.Form("a17") a18=request.Form("a18") a19=request.Form("a19") a20=request.Form("a20") a21=request.Form("a21") a22=request.Form("a22") a23=request.Form("a23") a24=request.Form("a24") a25=request.Form("a25") a26=request.Form("a26") a27=request.Form("a27") a28=request.Form("a28") a29=request.Form("a29") a30=request.Form("a30") a31=request.Form("a31") a32=request.Form("a32") a33=request.Form("a33") a34=request.Form("a34") a35=request.Form("a35") a42=request.Form("a42") b1=request.Form("b1") b2=request.Form("b2") b3=request.Form("b3") b4=request.Form("b4") b5=request.Form("b5") b6=request.Form("b6") b7=request.Form("b7") b8=request.Form("b8") b17=request.Form("b17") b18=request.Form("b18") b19=request.Form("b19") b20=request.Form("b20") b21=request.Form("b21") b22=request.Form("b22") b23=request.Form("b23") b24=request.Form("b24") b25=request.Form("b25") b26=request.Form("b26") b27=request.Form("b27") b28=request.Form("b28") b29=request.Form("b29") b30=request.Form("b30") b31=request.Form("b31") b32=request.Form("b32") b33=request.Form("b33") b34=request.Form("b34") b35=request.Form("b35") b36=request.Form("b36") b37=request.Form("b37") b38=request.Form("b38") b39=request.Form("b39") b40=request.Form("b40") b41=request.Form("b41") b43=request.Form("b43") b44=request.Form("b44") b45=request.Form("b45") b46=request.Form("b46") b47=request.Form("b47") b48=request.Form("b48") b49=request.Form("b49") b50=request.Form("b50") b51=request.Form("b51") b52=request.Form("b52") b53=request.Form("b53") b54=request.Form("b54") b55=request.Form("b55") b56=request.Form("b56") b57=request.Form("b57") b58=request.Form("b58") b59=request.Form("b59") b60=request.Form("b60") b61=request.Form("b61") b62=request.Form("b62") b63=request.Form("b63") b64=request.Form("b64") b65=request.Form("b65") b66=request.Form("b66") b67=request.Form("b67") b68=request.Form("b68") b69=request.Form("b69") b70=request.Form("b70") b71=request.Form("b71") b72=request.Form("b72") b73=request.Form("b73") b74=request.Form("b74") b75=request.Form("b75") b76=request.Form("b76") b77=request.Form("b77") b78=request.Form("b78") b79=request.Form("b79") b80=request.Form("b80") b81=request.Form("b81") b82=request.Form("b82") b83=request.Form("b83") b84=request.Form("b84") b85=request.Form("b85") b86=request.Form("b86") b87=request.Form("b87") b88=request.Form("b88") b89=request.Form("b89") b90=request.Form("b90") b91=request.Form("b91") b92=request.Form("b92") b93=request.Form("b93") b94=request.Form("b94") b95=request.Form("b95") b96=request.Form("b96") b97=request.Form("b97") b98=request.Form("b98") b99=request.Form("b99") b100=request.Form("b100") b101=request.Form("b101") b102=request.Form("b102") b103=request.Form("b103") b104=request.Form("b104") b105=request.Form("b105") b106=request.Form("b106") b107=request.Form("b107") b108=request.Form("b108") b109=request.Form("b109") b110=request.Form("b110") b111=request.Form("b111") b112=request.Form("b112") b113=request.Form("b113") b114=request.Form("b114") b115=request.Form("b115") b116=request.Form("b116") b117=request.Form("b117") b118=request.Form("b118") b119=request.Form("b119") b120=request.Form("b120") b121=request.Form("b121") b122=request.Form("b122") b123=request.Form("b123") b124=request.Form("b124") b125=request.Form("b125") b126=request.Form("b126") b127=request.Form("b127") b128=request.Form("b128") b129=request.Form("b129") b130=request.Form("b130") b131=request.Form("b131") b132=request.Form("b132") b133=request.Form("b133") b134=request.Form("b134") b135=request.Form("b135") b136=request.Form("b136") b137=request.Form("b137") b138=request.Form("b138") b139=request.Form("b139") b140=request.Form("b140") b141=request.Form("b141") b142=request.Form("b142") b143=request.Form("b143") b144=request.Form("b144") b145=request.Form("b145") b146=request.Form("b146") b147=request.Form("b147") b148=request.Form("b148") b149=request.Form("b149") b150=request.Form("b150") b151=request.Form("b151") b152=request.Form("b152") b153=request.Form("b153") b154=request.Form("b154") b155=request.Form("b155") b156=request.Form("b156") b157=request.Form("b157") b158=request.Form("b158") b159=request.Form("b159") b160=request.Form("b160") b161=request.Form("b161") b162=request.Form("b162") b163=request.Form("b163") b164=request.Form("b164") b165=request.Form("b165") b166=request.Form("b166") b167=request.Form("b167") b168=request.Form("b168") b169=request.Form("b169") b170=request.Form("b170") city=request.Form("city") city1=request.Form("city1") newlocation=request.Form("newlocation") newlocation1=request.Form("newlocation1") newlocation3=request.Form("newlocation3") if a1="" or newlocation="" or newlocation3="" or a8="" or a9="" then response.Write("") response.end() end if set rs=server.CreateObject("adodb.recordset") rs.open"select * from info where a1='"&a1&"'",conn,1,3 if not rs.eof then response.Write("") response.end() else rs.addnew rs("username")=session("admini") rs("cname")=session("cname") rs("sz")=sz1 rs("cw53")=city rs("cw56")=newlocation rs("cw55")=city rs("a2")=newlocation3 rs("a1")=a1 rs("a3")=a3 rs("a4")=a4 rs("a5")=a5 rs("a6")=a6 rs("a7")=a7 rs("a8")=a8 rs("a9")=a9 rs("a10")=a10 rs("a11")=a11 rs("a12")=a12 rs("a13")=a13 rs("a14")=a14 rs("a15")=a15 rs("a16")=a16 rs("a17")=a17 ccc18=split(a18,",") rs("a18")=ccc18(0) rs("CW37")=ccc18(2) rs("CW38")=ccc18(3) rs("a19")=a19 rs("a20")=a20 rs("a21")=a21 rs("a22")=a22 rs("a23")=a23 rs("a24")=a24 rs("a25")=a25 rs("a26")=a26 rs("a27")=a27 rs("a28")=a28 rs("a29")=a29 rs("a30")=a30 rs("a31")=a31 rs("a32")=a32 rs("a33")=a33 rs("a34")=a34 rs("a35")=a35 rs("a42")=a42 rs("b1")=b1 rs("b2")=b2 rs("b3")=b3 rs("b4")=b4 rs("b5")=b5 rs("b6")=b6 rs("b7")=b7 rs("b8")=b8 rs("b17")=b17 rs("b18")=b18 rs("b19")=b19 rs("b20")=b20 rs("b21")=b21 rs("b22")=b22 rs("b23")=b23 rs("b24")=b24 rs("b25")=b25 rs("b26")=b26 rs("b27")=b27 rs("b28")=b28 rs("b29")=b29 rs("b30")=b30 rs("b31")=b31 rs("b32")=b32 rs("b33")=b33 rs("b34")=b34 rs("b35")=b35 rs("b36")=b36 rs("b37")=b37 rs("b38")=b38 rs("b39")=b39 rs("b40")=b40 rs("b41")=b41 rs("b43")=b43 rs("b44")=b44 rs("b45")=b45 rs("b46")=b46 rs("b47")=b47 rs("b48")=b48 rs("b49")=b49 rs("b50")=b50 rs("b51")=b51 rs("b52")=b52 rs("b53")=b53 rs("b54")=b54 rs("b55")=b55 rs("b56")=b56 rs("b57")=b57 rs("b58")=b58 rs("b59")=b59 rs("b60")=b60 rs("b61")=b61 rs("b62")=b62 rs("b63")=b63 rs("b64")=b64 rs("b65")=b65 rs("b66")=b66 rs("b67")=b67 rs("b68")=b68 rs("b69")=b69 rs("b70")=b70 rs("b71")=b71 rs("b72")=b72 rs("b73")=b73 rs("b74")=b74 rs("b75")=b75 rs("b76")=b76 rs("b77")=b77 rs("b78")=b78 rs("b79")=b79 rs("b80")=b80 rs("b81")=b81 rs("b82")=b82 rs("b83")=b83 rs("b84")=b84 rs("b85")=b85 rs("b86")=b86 rs("b87")=b87 rs("b88")=b88 rs("b89")=b89 rs("b90")=b90 rs("b91")=b91 rs("b92")=b92 rs("b93")=b93 rs("b94")=b94 rs("b95")=b95 rs("b96")=b96 rs("b97")=b97 rs("b98")=b98 rs("b99")=b99 rs("b100")=b100 rs("b101")=b101 rs("b102")=b102 rs("b103")=b103 rs("b104")=b104 rs("b105")=b105 rs("b106")=b106 rs("b107")=b107 rs("b108")=b108 rs("b109")=b109 rs("b110")=b110 rs("b111")=b111 rs("b112")=b112 rs("b113")=b113 rs("b114")=b114 rs("b115")=b115 rs("b116")=b116 rs("b117")=b117 rs("b118")=b118 rs("b119")=b119 rs("b120")=b120 rs("b121")=b121 rs("b122")=b122 rs("b123")=b123 rs("b124")=b124 rs("b125")=b125 rs("b126")=b126 rs("b127")=b127 rs("b128")=b128 rs("b129")=b129 rs("b130")=b130 rs("b131")=b131 rs("b132")=b132 rs("b133")=b133 rs("b134")=b134 rs("b135")=b135 rs("b136")=b136 rs("b137")=b137 rs("b138")=b138 rs("b139")=b139 rs("b140")=b140 rs("b141")=b141 rs("b142")=b142 rs("b143")=b143 rs("b144")=b144 rs("b145")=b145 rs("b146")=b146 rs("b147")=b147 rs("b148")=b148 rs("b149")=b149 rs("b150")=b150 rs("b151")=b151 rs("b152")=b152 rs("b153")=b153 rs("b154")=b154 rs("b155")=b155 rs("b156")=b156 rs("b157")=b157 rs("b158")=b158 rs("b159")=b159 rs("b160")=b160 rs("b161")=b161 rs("b162")=b162 rs("b163")=b163 rs("b164")=b164 rs("b165")=b165 rs("b166")=b166 rs("b167")=b167 rs("b168")=b168 rs("b169")=b169 rs("b170")=b170 rs("a103")=year(a3)&month(a3) rs("addtime")=now() rs.update end if rs.close set rs=nothing set rs=conn.execute("select top 1 id from info order by id desc") if not rs.eof then id=rs("id") end if send(id) response.Write("") end if %>
新加坡海运全包送货费用查询
请选择目的港或国外城市↓
<% response.write "" %>
请输入体积(单位为CBM)↓<% Randomize a=int(10000*rnd()+10) response.Write(a) %><% Randomize a=int(10000*rnd()+1) response.Write(a) %><% Randomize a=int(10000*rnd()+1) response.Write(a) %>
*
请输入重量(单位为KG)↓
*
运费查询结果↓<% Randomize a=int(10000*rnd()+1) response.Write(a) %><% Randomize a=int(10000*rnd()+1) response.Write(a) %> <% Randomize a=int(10000*rnd()+1) response.Write(a) %>
点击查看最低收费标准