<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim country_A__MMColParam country_A__MMColParam = "1" if (Request("MM_EmptyValue") <> "") then country_A__MMColParam = Request("MM_EmptyValue") %> <% set country_A = Server.CreateObject("ADODB.Recordset") country_A.ActiveConnection = MM_visa_STRING country_A.Source = "SELECT * FROM vise WHERE type_id = " + Replace(country_A__MMColParam, "'", "''") + " ORDER BY Q_country DESC" country_A.CursorType = 0 country_A.CursorLocation = 2 country_A.LockType = 3 country_A.Open() country_A_numRows = 0 %> <% Dim country_E__MMColParam country_E__MMColParam = "2" if (Request("MM_EmptyValue") <> "") then country_E__MMColParam = Request("MM_EmptyValue") %> <% set country_E = Server.CreateObject("ADODB.Recordset") country_E.ActiveConnection = MM_visa_STRING country_E.Source = "SELECT * FROM vise WHERE type_id = " + Replace(country_E__MMColParam, "'", "''") + " ORDER BY Q_country DESC" country_E.CursorType = 0 country_E.CursorLocation = 2 country_E.LockType = 3 country_E.Open() country_E_numRows = 0 %> <% set visa_down = Server.CreateObject("ADODB.Recordset") visa_down.ActiveConnection = MM_visa_STRING visa_down.Source = "SELECT * FROM down" visa_down.CursorType = 0 visa_down.CursorLocation = 2 visa_down.LockType = 3 visa_down.Open() visa_down_numRows = 0 %> <% set visa_type = Server.CreateObject("ADODB.Recordset") visa_type.ActiveConnection = MM_visa_STRING visa_type.Source = "SELECT * FROM type" visa_type.CursorType = 0 visa_type.CursorLocation = 2 visa_type.LockType = 3 visa_type.Open() visa_type_numRows = 0 %> <% Dim country_America__MMColParam country_America__MMColParam = "3" if (Request("MM_EmptyValue") <> "") then country_America__MMColParam = Request("MM_EmptyValue") %> <% set country_America = Server.CreateObject("ADODB.Recordset") country_America.ActiveConnection = MM_visa_STRING country_America.Source = "SELECT Q_id, Q_country, Q_type, Q_time, Q_price, Down_id, type_id, Q_Remarks1 FROM vise WHERE type_id = " + Replace(country_America__MMColParam, "'", "''") + " ORDER BY Q_country DESC" country_America.CursorType = 0 country_America.CursorLocation = 2 country_America.LockType = 3 country_America.Open() country_America_numRows = 0 %> <% Dim country_Africa__MMColParam country_Africa__MMColParam = "4" if (Request("MM_EmptyValue") <> "") then country_Africa__MMColParam = Request("MM_EmptyValue") %> <% set country_Africa = Server.CreateObject("ADODB.Recordset") country_Africa.ActiveConnection = MM_visa_STRING country_Africa.Source = "SELECT Q_id, Q_country, Q_type, Q_time, Q_price, Down_id, type_id, Q_Remarks1 FROM vise WHERE type_id = " + Replace(country_Africa__MMColParam, "'", "''") + " ORDER BY Q_country DESC" country_Africa.CursorType = 0 country_Africa.CursorLocation = 2 country_Africa.LockType = 3 country_Africa.Open() country_Africa_numRows = 0 %> <% Dim country_Australia__MMColParam country_Australia__MMColParam = "5" if (Request("MM_EmptyValue") <> "") then country_Australia__MMColParam = Request("MM_EmptyValue") %> <% set country_Australia = Server.CreateObject("ADODB.Recordset") country_Australia.ActiveConnection = MM_visa_STRING country_Australia.Source = "SELECT Q_id, Q_country, Q_type, Q_time, Q_price, Down_id, date, Q_Remarks1 FROM vise WHERE type_id = " + Replace(country_Australia__MMColParam, "'", "''") + " ORDER BY Q_country DESC" country_Australia.CursorType = 0 country_Australia.CursorLocation = 2 country_Australia.LockType = 3 country_Australia.Open() country_Australia_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 country_A_numRows = country_A_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 country_E_numRows = country_E_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 country_America_numRows = country_America_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Repeat4__numRows = -1 Dim Repeat4__index Repeat4__index = 0 country_Africa_numRows = country_Africa_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Repeat5__numRows = -1 Dim Repeat5__index Repeat5__index = 0 country_Australia_numRows = country_Australia_numRows + Repeat5__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 机票预订 打折机票 酒店预订 旅游度假 - 易网通旅行网 - 签证专家
 
亚洲
欧洲
美洲
中东及非洲地区
澳新地区
  
<% While ((Repeat1__numRows <> 0) AND (NOT country_A.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 country_A.MoveNext() Wend %>
签证国家 签证种类 工作日 单签价格 备注
" target="_blank" class="redcou"><%=(country_A.Fields.Item("Q_country").Value)%> <%=(country_A.Fields.Item("Q_type").Value)%> <%=(country_A.Fields.Item("Q_time").Value)%> <%=(country_A.Fields.Item("Q_price").Value)%> <%=(country_A.Fields.Item("Q_Remarks1").Value)%>
易网通旅行 <% country_A.Close() %> <% country_E.Close() %> <% visa_down.Close() %> <% visa_type.Close() %> <% country_America.Close() %> <% country_Africa.Close() %> <% country_Australia.Close() %>