<%
Dim Rs3
Dim Rs3_numRows
Set Rs3 = Server.CreateObject("ADODB.Recordset")
Rs3.ActiveConnection = MM_webmana_STRING
Rs3.Source = "SELECT * FROM conews ORDER BY nid DESC"
Rs3.CursorType = 0
Rs3.CursorLocation = 2
Rs3.LockType = 1
Rs3.Open()
Rs3_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = 12
Repeat2__index = 0
Rs3_numRows = Rs3_numRows + Repeat2__numRows
%>
<%
Rs3_total = Rs3.RecordCount
If (Rs3_numRows < 0) Then
Rs3_numRows = Rs3_total
Elseif (Rs3_numRows = 0) Then
Rs3_numRows = 1
End If
Rs3_first = 1
Rs3_last = Rs3_first + Rs3_numRows - 1
If (Rs3_total <> -1) Then
If (Rs3_first > Rs3_total) Then Rs3_first = Rs3_total
If (Rs3_last > Rs3_total) Then Rs3_last = Rs3_total
If (Rs3_numRows > Rs3_total) Then Rs3_numRows = Rs3_total
End If
%>
<%
If (Rs3_total = -1) Then
Rs3_total=0
While (Not Rs3.EOF)
Rs3_total = Rs3_total + 1
Rs3.MoveNext
Wend
If (Rs3.CursorType > 0) Then
Rs3.MoveFirst
Else
Rs3.Requery
End If
If (Rs3_numRows < 0 Or Rs3_numRows > Rs3_total) Then
Rs3_numRows = Rs3_total
End If
Rs3_first = 1
Rs3_last = Rs3_first + Rs3_numRows - 1
If (Rs3_first > Rs3_total) Then Rs3_first = Rs3_total
If (Rs3_last > Rs3_total) Then Rs3_last = Rs3_total
End If
%>
<%
Dim MM_paramName
%>
<%
Set MM_rs = Rs3
MM_rsCount = Rs3_total
MM_size = Rs3_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
if (Not MM_paramIsDefined And MM_rsCount <> 0) then
r = Request.QueryString("index")
If r = "" Then r = Request.QueryString("offset")
If r <> "" Then MM_offset = Int(r)
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
i = 0
While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
i = i + 1
Wend
If (MM_rs.EOF) Then MM_offset = i
End If
%>
<%
If (MM_rsCount = -1) Then
i = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
MM_rs.MoveNext
i = i + 1
Wend
If (MM_rs.EOF) Then
MM_rsCount = i
If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
End If
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If
i = 0
While (Not MM_rs.EOF And i < MM_offset)
MM_rs.MoveNext
i = i + 1
Wend
End If
%>
<%
Rs3_first = MM_offset + 1
Rs3_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (Rs3_first > MM_rsCount) Then Rs3_first = MM_rsCount
If (Rs3_last > MM_rsCount) Then Rs3_last = MM_rsCount
End If
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
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
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
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)
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
If (MM_size > 0) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
params = Split(MM_keepMove, "&")
MM_keepMove = ""
For i = 0 To UBound(params)
nextItem = Left(params(i), InStr(params(i),"=") - 1)
If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & params(i)
End If
Next
If (MM_keepMove <> "") Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If
If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast = urlStr & "-1"
MM_moveNext = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev = urlStr & Cstr(prev)
%>
<%
Dim Rs3_TFMcurrentPage
Dim Rs3_TFMtotalPages
If MM_size > 0 Then
Rs3_TFMcurrentPage = Round(Rs3_last/MM_size + .4999)
Rs3_TFMtotalPages = Round(Rs3_total/MM_size + .4999)
End If
%>
ZHEJIANG WINSUN INDUSTRY CO.,LTD
<% If Rs3_total > 12 Then %>
<%
If MM_offset > 12 Or MM_offset/MM_size - int(12/1) > 0 Then
TFM_Previous = MM_offset - 12 * MM_size
If TFM_Previous < 0 then TFM_Previous = 0
Response.Write("")
Response.Write("Previous")
Response.Write(" | ")
End If
%>
<%
TFM_MiddlePages = 12
TFM_startLink = MM_offset/MM_size - int(TFM_middlePages/2)
TFM_endLink = MM_offset/MM_size + int(TFM_middlePages/2)
If TFM_MiddlePages/2 <> int(TFM_MiddlePages/2) Then TFM_endLink = TFM_endLink + 1
If TFM_startLink < 0 then
TFM_startLink = 0
TFM_endLink = TFM_middlePages
End If
TFM_LimitCounter = 0
For i = 1 to Rs3_total Step MM_size
TFM_LimitCounter = TFM_LimitCounter + 1
TFM_LimitPageEndCount = i + MM_size - 1
if TFM_LimitPageEndCount > Rs3_total Then TFM_LimitPageEndCount = Rs3_total
If TFM_LimitCounter > TFM_startLink AND TFM_LimitCounter <= TFM_endLink Then
if i <> MM_offset + 1 Then
Response.Write("")
Response.Write(TFM_LimitCounter & "")
else
Response.Write("" & TFM_LimitCounter & "")
End if
if(TM_LimitPageEndCount <> Rs3_total AND TFM_endLink <> TFM_LimitCounter) then Response.Write(" | ")
end if
next
%>
<%
If MM_offset < Rs3_total - 12 Then
Response.Write(" ")
Response.Write("Next")
End If
%>
<% End If %>
