<%@LANGUAGE="VBSCRIPT"%>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<%
' *** Cancel A Session Variable
' *** MagicBeat Server Behavior - 2008 - by Jag S. Sidhu - www.magicbeat.com
If (Session("OrderID") <> "") Then
Session("OrderID") = ""
end if
%>
<%
set rsLINES = Server.CreateObject("ADODB.Recordset")
rsLINES.ActiveConnection = MM_connOLE_STRING
rsLINES.Source = "SELECT L_LINE,L_ID FROM dbo.LINES WHERE L_RECOMMAND='推荐' ORDER BY L_ID DESC"
rsLINES.CursorType = 0
rsLINES.CursorLocation = 2
rsLINES.LockType = 3
rsLINES.Open()
rsLINES_numRows = 0
%>
<%
set rsHotel = Server.CreateObject("ADODB.Recordset")
rsHotel.ActiveConnection = MM_connOLE_STRING
rsHotel.Source = "SELECT H_CITY, H_NAME,H_ID FROM dbo.HOTEL WHERE H_RECOMMAND='推荐' ORDER BY H_ID DESC"
rsHotel.CursorType = 0
rsHotel.CursorLocation = 2
rsHotel.LockType = 3
rsHotel.Open()
rsHotel_numRows = 0
%>
<%
set rsPLANE = Server.CreateObject("ADODB.Recordset")
rsPLANE.ActiveConnection = MM_connOLE_STRING
rsPLANE.Source = "SELECT P_FROM, P_TO, P_DAN_TOUDENG, P_DAN_GONGWU, P_DAN_JINGJI, P_SHUANG_TOUDENG, P_SHUANG_GONGWU, P_SHUANG_JINGJI,P_ID,P_NAME FROM dbo.PLANE WHERE P_RECOMMAND='推荐' ORDER BY P_ID DESC"
rsPLANE.CursorType = 0
rsPLANE.CursorLocation = 2
rsPLANE.LockType = 3
rsPLANE.Open()
rsPLANE_numRows = 0
%>
<%
set rsDAOYOU = Server.CreateObject("ADODB.Recordset")
rsDAOYOU.ActiveConnection = MM_connOLE_STRING
rsDAOYOU.Source = "SELECT D_NAME, D_COMPANY,D_ID FROM dbo.DAOYOU WHERE D_RECOMMAND='推荐' ORDER BY D_ID DESC"
rsDAOYOU.CursorType = 0
rsDAOYOU.CursorLocation = 2
rsDAOYOU.LockType = 3
rsDAOYOU.Open()
rsDAOYOU_numRows = 0
%>
<%
set rsShow = Server.CreateObject("ADODB.Recordset")
rsShow.ActiveConnection = MM_connOLE_STRING
rsShow.Source = "SELECT S_CITY, S_NAME,S_ID FROM dbo.SHOW WHERE S_RECOMMAND='推荐'"
rsShow.CursorType = 0
rsShow.CursorLocation = 2
rsShow.LockType = 3
rsShow.Open()
rsShow_numRows = 0
%>
<%
set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.ActiveConnection = MM_connOLE_STRING
rsNews.Source = "SELECT N_ID, N_TITLE FROM dbo.NEWS ORDER BY N_ID DESC"
rsNews.CursorType = 0
rsNews.CursorLocation = 2
rsNews.LockType = 3
rsNews.Open()
rsNews_numRows = 0
%>
<%
set rsBussiness = Server.CreateObject("ADODB.Recordset")
rsBussiness.ActiveConnection = MM_connOLE_STRING
rsBussiness.Source = "SELECT B_ID, B_NAME FROM dbo.BUSSINESS ORDER BY B_ID DESC"
rsBussiness.CursorType = 0
rsBussiness.CursorLocation = 2
rsBussiness.LockType = 3
rsBussiness.Open()
rsBussiness_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = 5
Dim Repeat1__index
Repeat1__index = 0
rsLINES_numRows = rsLINES_numRows + Repeat1__numRows
%>
<%
Dim Repeat3__numRows
Repeat3__numRows = 5
Dim Repeat3__index
Repeat3__index = 0
rsHotel_numRows = rsHotel_numRows + Repeat3__numRows
%>
<%
Dim Repeat4__numRows
Repeat4__numRows = 4
Dim Repeat4__index
Repeat4__index = 0
rsPLANE_numRows = rsPLANE_numRows + Repeat4__numRows
%>
<%
Dim Repeat5__numRows
Repeat5__numRows = 3
Dim Repeat5__index
Repeat5__index = 0
rsDAOYOU_numRows = rsDAOYOU_numRows + Repeat5__numRows
%>
<%
Dim Repeat17__numRows
Repeat17__numRows = 6
Dim Repeat17__index
Repeat17__index = 0
rsBussiness_numRows = rsBussiness_numRows + Repeat17__numRows
%>
<%
Dim Repeat16__numRows
Repeat16__numRows = 5
Dim Repeat16__index
Repeat16__index = 0
rsNews_numRows = rsNews_numRows + Repeat16__numRows
%>
<%
Dim Repeat2__numRows
Repeat2__numRows = 5
Dim Repeat2__index
Repeat2__index = 0
rsShow_numRows = rsShow_numRows + Repeat2__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
%>
搜新疆—旅游天地
Copyright © 2006 Soxj.com Inc. All rights
reserved. 版权所有
<%
rsLINES.Close()
%>
<%
rsHotel.Close()
%>
<%
rsPLANE.Close()
%>
<%
rsDAOYOU.Close()
%>
<%
rsShow.Close()
%>
<%
rsNews.Close()
%>
<%
rsBussiness.Close()
%>
