为什么没有人帮我啊

我以前作的，今天翻出来了，和你的要求不大一样，自己改吧！
www.mantou001.com

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<%
Dim Recordset1__MMColParam
If (Request.QueryString("lanmuid") <> "") Then
Recordset1__MMColParam = Request.QueryString("lanmuid")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_article_STRING
Recordset1.Source = "SELECT * FROM article WHERE lanmuid = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY id DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request.QueryString("lanmuid") <> "") Then
Recordset2__MMColParam = Request.QueryString("lanmuid")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_article_STRING
Recordset2.Source = "SELECT * FROM lanmu WHERE lanmuid = " + Replace(Recordset2__MMColParam, "'", "''") + ""
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<%
Dim Recordset4__MMColParam
Recordset4__MMColParam = "4"
If (Request("MM_Emptyvalue") <> "") Then
Recordset4__MMColParam = Request("MM_Emptyvalue")
End If
%>
<%
Dim Recordset4
Dim Recordset4_numRows

Set Recordset4 = Server.CreateObject("ADODB.Recordset")
Recordset4.ActiveConnection = MM_readcount_STRING
Recordset4.Source = "SELECT * FROM readcounter WHERE id = " + Replace(Recordset4__MMColParam, "'", "''") + ""
Recordset4.CursorType = 0
Recordset4.CursorLocation = 2
Recordset4.LockType = 1
Recordset4.Open()

Recordset4_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 20
dim MM_size
MM_size=Repeat1__numRows
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>








<%
Dim Recordset1_total
Recordset1_total = Recordset1.RecordCount
While (Not Recordset1.EOF)
Recordset1_total = Recordset1_total + 1
Recordset1.MoveNext
Wend
%>

您现在的位置→馒头网/<%=(Recordset2.Fields.Item("lanmu").value)%>/<%=(Recordset4.Fields.Item("pagereadcounter").value)%>人访问      一共有<%=Recordset1_total+1%>篇文章

<%     dim mantoutotal     dim mantoui     mantoutotal = Recordset1_total     Recordset1_total = Recordset1.RecordCount     Recordset1.MoveFirst()     if request.QueryString("offset")<>"" Then     for mantoui=0 to request.QueryString("offset")*2-1      Recordset1.MoveNext()      mantoui=mantoui+1     next     end if %> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %> ◆　&keyzi=<%=(Recordset1.Fields.Item("keyzi").value)%>"><%=(Recordset1.Fields.Item("title").value)%>  <%=(Recordset1.Fields.Item("time").value)%> 跳转到< <% dim pici for pici=MM_size to mantoutotal+MM_size step MM_size %> &offset=<%if (pici-MM_size)=0 then response.Write("-1") else response.Write(pici-MM_size)%>"><%=pici/MM_size%> <%next%> >页

<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset4.Close()
Set Recordset4 = Nothing
%>