<%Set Rtop = connCon.Execute("SELECT * FROM system Where mem_auto = 4")%> <%=Rtop("top")%> <% Session("SERVER_NAME") = Request.ServerVariables("SERVER_NAME") '網址 Session("QUERY_STRING") = Request.ServerVariables("QUERY_STRING") '?後的資料 %> " hreflang="zh-TW" /> <% IF Request.Cookies("GodspeedCookies") = "" Then '設定同一個訂單編號 curdate=now() order_num = "GSC"&right("0" & year(curdate),4)&""&right("0" & month(curdate),2)&""&right("0" & day(curdate),2)&""&right("0" & hour(curdate),2)&""&right("0" & minute(curdate),2)&""&right("0" & second(curdate),2) Response.Cookies("GodspeedCookies") = order_num Response.Cookies("GodspeedCookies").Expires=date()+30 End IF %> <% 'Alert("回到首頁", "index.asp", 0) 'Alert("關閉此視窗", "ClOsE", 0) 'Alert("照片上傳專用", "UpLoAd", 0) 'Alert("回到上一頁", 0, 0) 'Alert("延遲十秒轉到下載頁", "download.asp", 10) 'Alert("不動作", "Nothing", 0) Public Function Alert(Msg, Url, sTime) Dim Href IF Url = "ClOsE" Then Response.Write("") Response.End() End IF IF Url = "UpLoAd" Then Response.Write("") Response.End() End IF If IsNumeric(Url) Then Href = "history.go(-1);" Else Href = "location.href='" & Url & "';" End If Response.Write("") Response.End() End Function %>