asp简单的ajax留言板

ONN_STRING,SQL)
   If  Not objRS.EOF then
    Call mymod.SetVar(objRs("Id"),objRs("Content"),objRs("Re"),objRs("Addtime"),objRs("Ip"))
    Set GetGuest = mymod
   Else
    GetGuest = Null
   End If

  End Function

  ''/// <summary>
  ''/// 插入信息
  ''/// </summary>
  ''/// <param name="">信息体</param>
  Public Sub Insert(vmod)

   Dim parms,SQL
   parms = Array(vmod.Content,vmod.Re,vmod.Addtime,vmod.Ip)
   SQL  = mycom.Format(SQL_02,parms)
   Call myacc.ExecuteReader(myacc.CONN_STRING,SQL)

  End Sub

  ''/// <summary>
  ''/// 更新信息
  ''/// </summary>
  ''/// <param name="">信息体</param>
  Public Sub Update(vmod)

   Dim parms,SQL
   parms = Array(vmod.Id,vmod.Content,vmod.Re,vmod.Addtime,vmod.Ip)
   SQL  = mycom.Format(SQL_03,parms)
   Call myacc.ExecuteReader(myacc.CONN_STRING,SQL)

  End Sub

  ''/// <summary>
  ''/// 删除信息
  ''/// </summary>
  ''/// <param name="">信息体</param>
  Public Sub Delete(Id)

   Dim parms,SQL
   parms = Array(Id)
   SQL  = mycom.Format(SQL_04,parms)
   Call myacc.ExecuteNonQuery(myacc.CONN_STRING,SQL)

  End Sub

  ''/// <summary>
  ''/// 统计信息
  ''/// </summary>
  ''/// <param name="">信息体</param>
  Public Function Count(WhereValue)

   Dim parms,SQL,objRS
   parms = Array(WhereValue)
   SQL  = mycom.Format(SQL_07,parms)
   Set objRS = myacc.Recordset(myacc.CONN_STRING,SQL)
   Count = objRS.RecordCount

  End Function

  ''/// <summary>
  ''/// 根据条件列出所有信息(带有分页)
  ''/// </summary>
  ''/// <param name="PageSize">每页记录数</param>
  ''/// <param name="CurrentPage">页码</param>
  ''/// <param name="WhereValue">判断值</param>
  ''/// <param name="OrderValue">排序</param>
  ''/// <returns>返回objRS</returns>
  Public&nbs