asp生成靜態頁面並對靜態頁面內容分頁

因爲公司要開發一個新聞系統，要用到生成靜態頁面，生成的同時並對靜態頁面內容分頁。用了不到半天的時間搞定了，目前只能實現上下頁，沒有頁碼跳轉（形如123……）。但對這段代碼繼續完善一下就能達到頁碼分頁的效果。

  <%'接受傳遞值
Title=request.form("Title")
BidMeetingTime=request.form("BidMeetingTime")''''''''''''''展會時間
BidMeetingLocation=request.form("BidMeetingLocation")''''''''''''展會地點
'response.write title
'response.end()
Author=request.form("Author")
Keyword_1=request.form("Keyword_1")
Keyword_2=request.form("Keyword_2")
Keyword_3=request.form("Keyword_3")
Keyword_4=request.form("Keyword_4")
Keyword_5=request.form("Keyword_5")
Froms=request.form("Froms")
CreateTime=request.form("CreateTime")
ViewTimes=request.form("ViewTimes")
FirstClass=request.form("FirstClass")
SecondClass=request.form("SecondClass")
ThirdClass=request.form("ThirdClass")
'response.write SecondClass
'response.End()
'ThirdClass=request.form("ThirdClass")
Content1=request.form("Content1")
IsCheckPass=request.form("IsCheckPass")
IsHotPoint=request.form("IsHotPoint")
IsRecommend=request.form("IsRecommend")

%>
<%'生成HTML文件名，建立文件夾，指定文件路徑
fname = makefilename(now()) 'makefilename爲自定義函數 
StaticFilePath=date()&"/"&fname&".shtml"'存儲在數據庫中的路徑
folder = "../../allfiles/NewsInfo/newsfile/"&date()&"/"
filepath = folder&fname

%>

  <%'將接受值及路徑保持至數據庫表
sql = "insert into  inNews(Title,Author,Keyword_1,Keyword_2,Keyword_3,Keyword_4,Keyword_5,Froms,FirstClass,SecondClass,ThirdClass,Content1,IsCheckPass,IsHotPoint,IsRecommend,StaticFilePath,BidMeetingTime,BidMeetingLocation) values('"&Title&"','"&Author&"','"&Keyword_1&"','"&Keyword_2&"','"&Keyword_3&"','"&Keyword_4&"','"&Keyword_5&"','"&Froms&"','"&FirstClass&"','"&SecondClass&"','"&ThirdClass&"','"&Content1&"','"&IsCheckPass&"','"&IsHotPoint&"','"&IsRecommend&"','"&StaticFilePath&"','"&BidMeetingTime&"','"&BidMeetingLocation&"')"
'response.write sql
'response.end
Set rsinsert = Server.CreateObject ("ADODB.Recordset")
rsinsert.Open sql,conn,1,3
Set rsinsert = Nothing

%>

  <%
  ContentStr=split(Content1,"|||")
  PageNumber=ubound(ContentStr)
  'response.write PageNumber
  'response.end()
  'if PageNumber=0 then
 
For p = 0 to ubound(ContentStr)
  '打開模板代碼，並將其中特殊代碼轉變爲接受值
Dim fso,fin
'創建文件系統對象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Model="../../allfiles/NewsInfo/news/Topic_civil_tec.shtml"

Set fin=fso.OpenTextFile(Server.MapPath(""&Model&""))
mb_code=fin.ReadAll
fin.close

Title=htmlencode(Title)
Content=htmlencode(Content)
mb_code=replace(mb_code,"$Title",Title)
mb_code=replace(mb_code,"$Author",Author)
mb_code=replace(mb_code,"$Keyword_1",Keyword_1)
mb_code=replace(mb_code,"$Keyword_2",Keyword_2)
mb_code=replace(mb_code,"$Keyword_3",Keyword_3)
mb_code=replace(mb_code,"$Keyword_4",Keyword_4)
mb_code=replace(mb_code,"$Keyword_5",Keyword_5)
mb_code=replace(mb_code,"$Froms",Froms)
mb_code=replace(mb_code,"$CreateTime",formatdatetime(now(),2))
if ThirdClass<>"" then
mb_code=replace(mb_code,"$ThirdNewsClassId",ThirdClass)''''''替換模板中js中的特殊字符
end if
'mb_code=replace(mb_code,"$ViewTimes",ViewTimes)
mb_code=replace(mb_code,"$Content1",ContentStr(p))

if PageNumber>0 then
MyPagerTable="<table width=""60%"" border=""0"" cellpadding=""0"" cellspacing=""1""><tr><td height=""25""><a href=""$UrlUp""><font color=""ff0000""><strong>[上一頁]</strong></font></a></td><td height=""30""><a href=""$UrlDown""><font color=""ff0000""><strong>[下一頁]</strong></font></a></td></tr></table>"''''''''''下一頁代碼，用於替換
if p<=1 then''''''''''分頁
MyPagerTable=replace(MyPagerTable,"$UrlUp",fname&".shtml")
if p=PageNumber then
MyPagerTable=replace(MyPagerTable,"$UrlDown",fname&"_"&p&".shtml")
else
MyPagerTable=replace(MyPagerTable,"$UrlDown",fname&"_"&p+1&".shtml")
end if
else
MyPagerTable=replace(MyPagerTable,"$UrlUp",fname&"_"&p-1&".shtml")
if p=PageNumber then
MyPagerTable=replace(MyPagerTable,"$UrlDown",fname&"_"&p&".shtml")
else
MyPagerTable=replace(MyPagerTable,"$UrlDown",fname&"_"&p+1&".shtml")
end if
end if
mb_code=replace(mb_code,"$MyPager",MyPagerTable)
else
mb_code=replace(mb_code,"$MyPager","")
end if
'mb_code=replace(mb_code,"$FirstClass",FirstClass)
'mb_code=replace(mb_code,"$SecondClass",SecondClass)
'mb_code=replace(mb_code,"$ThirdClasses",ThirdClasses)
'選出新添加的新聞的id
set rsid=server.createobject("adodb.recordset")
sql="select top 1 NewsId from inNews order by NewsId desc"
rsid.open sql,conn,1,3
mb_code=replace(mb_code,"$NewsId",rsid("NewsId"))'替換瀏覽次數中的編號
rsid.close
set rsid=nothing
%>

  <%'生成HTML頁面
'Set fso = Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next '容錯處理
fso.CreateFolder(Server.MapPath(folder))
if p=0 then
Set fout = fso.CreateTextFile(Server.MapPath(filepath&".shtml"))
else
Set fout = fso.CreateTextFile(Server.MapPath(filepath&"_"&p&".shtml"))
end if
fout.WriteLine mb_code
fout.close
next
%>