asp简单的ajax留言板

rderValue = "Id"
   Set objRS = mydal.FindByPage(PageSize,CurrentPage-1,WhereValue,OrderValue)
   i = 1
   RecordCount = mydal.Count(WhereValue)
   Do While Not objRS.EOF
    If tCMD="DEL" Then
     DEL = "<a href=""?tCMD=DEL&Id="&objRS("Id")&""">删除</a>"
    Else
     DEL = ""
    End If
    parms=Array(i,objRS("content"),objRS("ip"),objRS("addtime"),DEL)
    tmp1 = tmp1 & mycom.Format(LI,parms)
    objRs.Movenext
    i = i + 1
   Loop
   tmp3 = mycom.Page(PageSize,CurrentPage,RecordCount,"guest/index.asp?tCMD=LIST")
   parms=Array(tmp1,tmp3)
   tmp2 = tmp2 & mycom.Format(UL,parms)

   FindByPage = tmp2

  End Function

  Private Sub Class_Initialize()

   LI = "<li><span>{0}</span> <span>{1}</span><br /><span>作者:{2}</span> <span>{3}</span> <span>{4}</span></li>" & vbCrLf
   UL = "<UL>{0}<li>{1}</li></UL>"
   DEL = ""

   Set mycom = new Common
   set mymod = new MOD_Guest
   set mydal = new DAL_Guest

  End Sub

  Private Sub Class_Terminate()

   Set mycom = Nothing
   Set mymod = Nothing
   set mydal = Nothing

  End Sub

 End Class
%>

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

  Private SQL_01
  Private SQL_02
  Private SQL_03
  Private SQL_04
  Private SQL_05
  Private SQL_06
  Private SQL_07

  Private mycom,myacc,mymod

  ''/// <summary>
  ''/// 获得信息
  ''/// </summary>
  ''/// <param name="Id">判断字段</param>
  ''/// <returns>信息体</returns>
  Public Function GetGuest(Id)

   Dim parms,SQL,objRS
   parms = Array(Id)
   SQL  = mycom.Format(SQL_01,parms)
   Set objRS = myacc.ExecuteReader(myacc.C