<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim R1__MMColParam
R1__MMColParam = "工作动态"
If (Request("MM_EmptyValue") <> "") Then
R1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim R1
Dim R1_numRows
Set R1 = Server.CreateObject("ADODB.Recordset")
R1.ActiveConnection = MM_hndmwDB_STRING
R1.Source = "SELECT * FROM DM_INFO WHERE DM_TYPE1 = '" + Replace(R1__MMColParam, "'", "''") + "' ORDER BY DM_ID DESC"
R1.CursorType = 0
R1.CursorLocation = 2
R1.LockType = 1
R1.Open()
R1_numRows = 0
%>
<%
Dim R2__MMColParam
R2__MMColParam = "地名文化-乡镇地名"
If (Request("MM_EmptyValue") <> "") Then
R2__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim R2
Dim R2_numRows
Set R2 = Server.CreateObject("ADODB.Recordset")
R2.ActiveConnection = MM_hndmwDB_STRING
R2.Source = "SELECT * FROM DM_INFO WHERE DM_TYPE1 = '" + Replace(R2__MMColParam, "'", "''") + "' ORDER BY DM_ID DESC"
R2.CursorType = 0
R2.CursorLocation = 2
R2.LockType = 1
R2.Open()
R2_numRows = 0
%>
<%
Dim R3__MMColParam
R3__MMColParam = "地名公告"
If (Request("MM_EmptyValue") <> "") Then
R3__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim R3
Dim R3_numRows
Set R3 = Server.CreateObject("ADODB.Recordset")
R3.ActiveConnection = MM_hndmwDB_STRING
R3.Source = "SELECT * FROM DM_INFO WHERE DM_TYPE1 = '" + Replace(R3__MMColParam, "'", "''") + "' ORDER BY DM_ID DESC"
R3.CursorType = 0
R3.CursorLocation = 2
R3.LockType = 1
R3.Open()
R3_numRows = 0
%>
<%
Dim R4__MMColParam
R4__MMColParam = "地名要闻"
If (Request("MM_EmptyValue") <> "") Then
R4__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim R4
Dim R4_numRows
Set R4 = Server.CreateObject("ADODB.Recordset")
R4.ActiveConnection = MM_hndmwDB_STRING
R4.Source = "SELECT * FROM DM_INFO WHERE DM_TYPE1 = '" + Replace(R4__MMColParam, "'", "''") + "' ORDER BY DM_ID DESC"
R4.CursorType = 0
R4.CursorLocation = 2
R4.LockType = 1
R4.Open()
R4_numRows = 0
%>
<%
Dim R5__MMColParam
R5__MMColParam = "政策法规"
If (Request("MM_EmptyValue") <> "") Then
R5__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim R5
Dim R5_numRows
Set R5 = Server.CreateObject("ADODB.Recordset")
R5.ActiveConnection = MM_hndmwDB_STRING
R5.Source = "SELECT * FROM DM_INFO WHERE DM_TYPE1 > '" + Replace(R5__MMColParam, "'", "''") + "' ORDER BY DM_ID DESC"
R5.CursorType = 0
R5.CursorLocation = 2
R5.LockType = 1
R5.Open()
R5_numRows = 0
%>
<%
Dim R6__MMColParam
R6__MMColParam = "地名文化-地名故事"
If (Request("MM_EmptyValue") <> "") Then
R6__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim R6
Dim R6_numRows
Set R6 = Server.CreateObject("ADODB.Recordset")
R6.ActiveConnection = MM_hndmwDB_STRING
R6.Source = "SELECT * FROM DM_INFO WHERE DM_TYPE1 = '" + Replace(R6__MMColParam, "'", "''") + "' ORDER BY DM_ID DESC"
R6.CursorType = 0
R6.CursorLocation = 2
R6.LockType = 1
R6.Open()
R6_numRows = 0
%>
<%
Dim R7__MMColParam
R7__MMColParam = "地名文化-地名研究"
If (Request("MM_EmptyValue") <> "") Then
R7__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim R7
Dim R7_numRows
Set R7 = Server.CreateObject("ADODB.Recordset")
R7.ActiveConnection = MM_hndmwDB_STRING
R7.Source = "SELECT * FROM DM_INFO WHERE DM_TYPE1 = '" + Replace(R7__MMColParam, "'", "''") + "' ORDER BY DM_ID DESC"
R7.CursorType = 0
R7.CursorLocation = 2
R7.LockType = 1
R7.Open()
R7_numRows = 0
%>
<%
Dim R8__MMColParam
R8__MMColParam = "地名文化-地名标志"
If (Request("MM_EmptyValue") <> "") Then
R8__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim R8
Dim R8_numRows
Set R8 = Server.CreateObject("ADODB.Recordset")
R8.ActiveConnection = MM_hndmwDB_STRING
R8.Source = "SELECT * FROM DM_INFO WHERE DM_TYPE1 = '" + Replace(R8__MMColParam, "'", "''") + "' ORDER BY DM_ID DESC"
R8.CursorType = 0
R8.CursorLocation = 2
R8.LockType = 1
R8.Open()
R8_numRows = 0
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = 8
Repeat3__index = 0
R3_numRows = R3_numRows + Repeat3__numRows
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 7
Repeat1__index = 0
R1_numRows = R1_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = 7
Repeat2__index = 0
R2_numRows = R2_numRows + Repeat2__numRows
%>
<%
Dim Repeat6__numRows
Dim Repeat6__index
Repeat6__numRows = 7
Repeat6__index = 0
R7_numRows = R7_numRows + Repeat6__numRows
%>
<%
Dim Repeat7__numRows
Dim Repeat7__index
Repeat7__numRows = 7
Repeat7__index = 0
R8_numRows = R8_numRows + Repeat7__numRows
%>
<%
Dim Repeat4__numRows
Dim Repeat4__index
Repeat4__numRows = 7
Repeat4__index = 0
R4_numRows = R4_numRows + Repeat4__numRows
%>
<%
Dim Repeat5__numRows
Dim Repeat5__index
Repeat5__numRows = 7
Repeat5__index = 0
R5_numRows = R5_numRows + Repeat5__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_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)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' 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
%>
海宁地名网
