<%
Dim MM_TableName
Dim MM_SqlQuery
MM_TableName = "news"
MM_SqlKey = "sqlindex"
MM_SqlValue = Request.Form("MM_recordId")
Dim MM_FindSql
Dim MM_Count
Dim MM_re_count
Dim MM_re_number1
Dim MM_re_number2
Dim MM_NowPage
Dim MM_NowPagePath
MM_NowPagePath = CStr(Request.ServerVariables("SCRIPT_NAME"))
MM_NowPage = Request.QueryString("page")
MM_FindSql = "select * from " & MM_TableName & " order by sqldate desc"
MM_Count = 10
set re = conn.Execute(MM_FindSql)
MM_re_count = re.RecordCount
If (MM_re_count = -1) Then
MM_re_count=0
While (Not re.EOF)
MM_re_count = MM_re_count + 1
re.MoveNext
Wend
if MM_re_count > 0 then
re.MoveFirst
end if
end if
if MM_NowPage = "" then
MM_NowPage = 1
end if
Temp = MM_re_Count/MM_count
MaxPage = Cint(Temp)
if Temp > MaxPage then
MaxPage = MaxPage + 1
end if
%>
<%
StrLen = 50
TheIndex = 0
dim TheIndex
TheIndex = 0
While (NOT re.EOF)
mystr = re.Fields.Item("sqltitle")
if CheckStringLength(mystr) > StrLen then
mystr = InterceptString(mystr,(StrLen - 2)) & "..."
end if
TheIndex = TheIndex + 1
if (TheIndex > (MM_NowPage*MM_Count)-MM_Count) and (TheIndex <= (MM_NowPage*MM_Count)) then %>
