asp简单的ajax留言板

  Public Addtime
  Public Ip

  Public Sub SetVar(vId,vContent,vRe,vAddtime,vIp)
   Id=vId
   Content=vContent
   Re=vContent
   Addtime=vAddtime
   Ip=vIp
  End Sub

 End Class
%>

Common.asp
<%
 ''/// <summary>
 ''/// 摘要说明
 ''/// </summary>
 Class Common

  ''/// <summary>
  ''/// 获得信息
  ''/// </summary>
  ''/// <param name="Id">需要内容</param>
  ''/// <param name="Id">替换关键字</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>篇 |"
   const C_FIRSTPAGE1 = " <a href=""#"" onclick=""$(''{0}&PageNo={1}'')"">首页</a>"
   const C_FIRSTPAGE2 = " 首页"
   const C_PREVPAGE1 = " <a href=""#"" onclick=""$(''{0}&PageNo={1}'')""></a>"
   const C_PREVPAGE2 = " "
   const C_NEXTPAGE1 = " <a href=""#"" onclick=""$(''{0}&PageNo={1}'')""></a>"
   const C_NEXTPAGE2 = " "
   const C_LASTPAGE1 = " <a href=""#"" onclick=""$(''{0}&PageNo={1}'')"">尾页</a>"
   const C_LASTPAGE2 = " 尾页"
   const C_CURRENTPAGE = " 页次：<STRONG><FONT color=""red"">{0}</FONT>/{1}</STRONG>页"
   const C_PAGESIZE = " <STRONG>{0}</STRONG>篇/页  "
   const C_GOTOPAGE = " 跳转：<input type=""text"" name=""goto"" value=""{1}"" onchange=""$(''{0}&PageNo=''+this.value)"" style=""width:20px;border:1px""/>  "

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

   If RecordCount Mod PageSize <> 0 Th