请问如何生成文章的内部分页呢？如文章是3页的话生成1_1.html，1_2.html,1_3.html.谢谢。

<!--#include file="../../Inc/conn.asp"-->

<!--#include file="../../Inc/ubb.asp"-->

<!--#include file="../../Inc/fenye.asp"-->

<!--#include file="../../Inc.asp"-->

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

<%

Const HTML_Article_Path = "html/"

ID=request("id")

Page = Request.QueryString("Page")

If Page = "" Then Page = 1

Call Article_Page_Html(ID,Page)

Private Sub Article_Page_Html(ID,iPage)

	If Page = 1 Then

		FilePath = "../" & HTML_Article_Path & ID & ".html"

	Else

		FilePath = "../" & HTML_Article_Path & ID & "_" & Page & ".html"

	End If



		FromURL =  "http://"&request.ServerVariables("Server_NAME")&""&SitePath&"list.asp?id=" & ID & "&Page=" & iPage & "&rnd=" & Now()

	

	Call ToHtml(FromURL,FilePath)	

End Sub



Private Sub ToHtml(FromURL,FilePath)

	Response.Write("<a href=""" & FilePath & """ target=""_blank"">" & FilePath & " --> Ok</a><br>")

	FilePath = Server.MapPath(FilePath)

	Set objXmlHttp=Server.createObject("Microsoft." & "XMLHTTP")

	objXmlHttp.open "GET",FromURL,false

	objXmlHttp.send()

	binFileData=objXmlHttp.responseBody

	Set objXmlHttp = Nothing

	Set objAdoStream=Server.createObject("ADODB." & "Stream")

	objAdoStream.Type=1

	objAdoStream.Open()

	objAdoStream.Write(binFileData)

	objAdoStream.SaveToFile FilePath,2

	objAdoStream.Close()

	Set objAdoStream = Nothing

End Sub

%>