asp简单的ajax留言板(采用三层模式)(3)

'/// <summary>
  '/// 获得信息
  '/// </summary>
  '/// <param>需要内容</param>
  '/// <param>替换关键字</param>
  '/// <returns>格式化后内容</returns>
  Public Function Format(str,arr)

Dim r,i
   r = str   
   For i = 0 To UBound(arr)
    r = Replace(r,"{"&i&"}",arr(i))
   Next
   Format = r

End Function

Public Function Page(PageSize,CurrentPage,RecordCount,PageUrl)

   const C_RECORDCOUNT = "合计<STRONG><FONT color=""red"">{0}</FONT></STRONG>篇&nbsp;|"
   const C_FIRSTPAGE1 = "&nbsp;<a href=""#""$('{0}&amp;PageNo={1}')"">首页</a>"
   const C_FIRSTPAGE2 = "&nbsp;首页"
   const C_PREVPAGE1 = "&nbsp;<a href=""#""$('{0}&amp;PageNo={1}')"">上一页</a>"
   const C_PREVPAGE2 = "&nbsp;上一页"
   const C_NEXTPAGE1 = "&nbsp;<a href=""#""$('{0}&amp;PageNo={1}')"">下一页</a>"
   const C_NEXTPAGE2 = "&nbsp;下一页"
   const C_LASTPAGE1 = "&nbsp;<a href=""#""$('{0}&amp;PageNo={1}')"">尾页</a>"
   const C_LASTPAGE2 = "&nbsp;尾页"
   const C_CURRENTPAGE = "&nbsp;页次：<STRONG><FONT color=""red"">{0}</FONT>/{1}</STRONG>页"
   const C_PAGESIZE = "&nbsp;<STRONG>{0}</STRONG>篇/页&nbsp;&nbsp;"
   const C_GOTOPAGE = "&nbsp;跳转：<input type=""text""goto"" value=""{1}"" onchange=""$('{0}&amp;PageNo='+this.value)""width:20px;border:1px""/>&nbsp;&nbsp;"

   Dim PageCount,pages
   Dim lRecordCount,lFirstpage,lPrevpage,lNextpage,lLastpage,lCurrentpage,lPagesize,lGotopage
   Dim p,parms

If RecordCount Mod PageSize <> 0 Then
    pages = 1
   else
    pages = 0
   End If
   PageCount=CInt(RecordCount/PageSize + pages)

   parms=Array(RecordCount)
   lRecordCount = Format(C_RECORDCOUNT,parms)

if CInt(CurrentPage)>1 Then
    parms=Array(Pageurl,1)
    lFirstpage = Format(C_FIRSTPAGE1,parms)
    parms=Array(Pageurl,CInt(CurrentPage)-1)
    lPrevpage = Format(C_PREVPAGE1,parms)
   Else
    lFirstpage=C_FIRSTPAGE2
    lPrevpage=C_PREVPAGE2
   End If

if CInt(CurrentPage)<PageCount Then
    parms=Array(Pageurl,CInt(CurrentPage)+1)
    lNextpage = Format(C_NEXTPAGE1,parms)
    parms=Array(Pageurl,CInt(CurrentPage)+1)
    lLastpage = Format(C_LASTPAGE1,parms)
   Else   
    lNextpage=C_NEXTPAGE2
    lLastpage=C_LASTPAGE2
   End If

parms=Array(CurrentPage,PageCount)
   lCurrentpage = Format(C_CURRENTPAGE,parms)
   parms=Array(PageSize)
   lPagesize = Format(C_PAGESIZE,parms)
   parms=Array(Pageurl,CurrentPage)
   lGotopage = Format(C_GOTOPAGE,parms)

   p=lRecordCount&lFirstpage&lPrevpage&lNextpage&lLastpage&lCurrentpage&lPagesize&lGotopage
   Page = p

End Function

End Class
%>

AccHelper.asp
<%
 '/// <summary>
 '/// AccHelper 的摘要说明。
 '/// </summary>
 Class AccHelper

Public CONN_STRING

'/// <summary>
  '/// 执行ExecuteNonQuery
  '/// </summary>
  '/// <param>连接字符</param>
  '/// <param>sql命令</param>
  Public Function ExecuteNonQuery(connString,cmdText)

   Dim objConn
   Set objConn = Server.CreateObject("ADODB.Connection")
   objConn.Open connString
   objConn.Execute(cmdText)

End Function

'/// <summary>
  '/// 执行ExecuteReader
  '/// </summary>
  '/// <param>连接字符</param>
  '/// <param>sql命令</param>
  '/// <returns>RS</returns>
  Public Function ExecuteReader(connString,cmdText)

   Dim objConn,objRS
   Set objConn = Server.CreateObject("ADODB.Connection")
   objConn.Open connString
   Set objRS = objConn.Execute(cmdText)
   Set ExecuteReader = objRS

End Function