Asp简单的制作ajax留言板

 恍然想起，似乎很久没有写Asp了，这下想用Asp简单的制作ajax留言板竟然感觉有点难度了，整个流程下来竟然耗时我一天，哈哈，有点慢了，还请大师多多指点。

 Class BLL_Guest

  Private mycom,mymod,mydal

  Private LI,UL

  Private DEL

  '获取信息
  Public Sub GetGuest()

   mydal.GetGuest(Id)

  End Sub

  '新增信息
  Public Sub Insert()

   mymod.Content = Request("content")
   mymod.re = Request("Re")
   mymod.Addtime = Now()
   mymod.Ip = request.servervariables("HTTP_X_FORWARDED_FOR")
   If len(mymod.Ip)<=0 Then mymod.Ip = request.servervariables("REMOTE_ADDR")

   Call mydal.Insert(mymod)

  End Sub

  '更新信息
  Public Sub Update()

   Call mydal.Update(mymod)

  End Sub

  '删除信息
  Public Sub Delete()

   mydal.Delete(Request("Id"))

  End Sub

  '查找信息
  Public Function FindByPage()

   Dim PageSize,CurrentPage,WhereValue,OrderValue,RecordCount
   Dim objRS
   Dim tmp1,tmp2,tmp3,parms,i
   Dim tCMD
   tCMD = Request("tCMD")
   PageSize = "8"
   CurrentPage = Request("PageNo")
   If Len(CurrentPage)<=0 Then
    CurrentPage=1
   End If
   WhereValue = ""
   OrderValue = "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 = "删除"
    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 = " >

• {0} {1}
  作者:{2} {3} {4} >
• " & vbCrLf
     UL = "
  • {0}
  • {1}
  "
     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
  <%
   '/// 
   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
  
    '/// 
    '/// 判断字段
    '/// 信息体
    Public Function GetGuest(Id)
  
     Dim parms,SQL,objRS
     parms = Array(Id)
     SQL  = mycom.Format(SQL_01,parms)
     Set objRS = myacc.ExecuteReader(myacc.CONN_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
  
    '/// 
    '/// 信息体
    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
  
    '/// 
    '/// 信息体
    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
  
    '/// 
    '/// 信息体
    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
  
    '/// 
    '/// 信息体
    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
  
    '/// 
    '/// 每页记录数
    '/// 页码
    '/// 判断值
    '/// 排序
    '/// 返回objRS
    Public Function FindByPage(PageSize,CurrentPage,WhereValue,OrderValue)
  
     Dim parms,SQL,objRS
     Dim s1
     If CurrentPage="0" Then   
      s1 =  PageSize & "|" + OrderValue & "|" & WhereValue
      parms = Split(s1,"|")
      SQL = mycom.Format(SQL_05,parms)
     Else
      s1 = PageSize & "|" & OrderValue & "|" + WhereValue & "|" & CurrentPage*PageSize
      parms = Split(s1,"|")
      SQL = mycom.Format(SQL_06,parms)
     End If
  
     Set objRS = myacc.ExecuteReader(myacc.CONN_STRING,SQL)
     Set FindByPage = objRS
  
    End Function
  
  
    Private Sub Class_Initialize()
  
     SQL_01 = "Select * From [Guest] Where Id = {0}"
     SQL_02 = "Insert into [Guest] ([Content],[Re],[Addtime],[Ip]) values('{0}','{1}','{2}','{3}')"
     SQL_03 = "Update [Guest] Set [Content]='{1}',[Re]='{2}',[Addtime]='{3}',[Ip]='{4}' Where Id = {0}"
     SQL_04 = "Delete From [Guest] Where Id In ({0})"
     SQL_05 = "Select Top {0} * From [Guest] Where Content Like '%{2}%' Order By {1} Desc,Id Desc"
     SQL_06 = "Select Top {0} * From [Guest] Where Content Like '%{2}%' And Id Not IN(Select Top {3} Id From [Guest] Where Content Like '%{2}%' Order By {1} Desc,Id Desc) Order By {1} Desc,Id Desc"
     SQL_07 = "Select * From [Guest] Where Content Like '%{0}%' "
  
     Set mycom = new Common
     Set myacc = new AccHelper
     Set mymod = new MOD_Guest
  
    End Sub
  
    Private Sub Class_Terminate()
  
     Set mycom = Nothing
     Set myacc = Nothing
     Set mymod = Nothing
  
    End Sub
  
   End Class
  %>
  
  MOD_Guest.asp
  <%
   '/// 
   Class MOD_Guest
  
    Public Id
    Public Content
    Public Re
    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
  <%
   '/// 
   Class Common
  
    '/// 
    '/// 需要内容
    '/// 替换关键字
    '/// 格式化后内容
    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 = "合计{0}篇 |"
     const C_FIRSTPAGE1 = " 首页"
     const C_FIRSTPAGE2 = " 首页"
     const C_PREVPAGE1 = " 上一页"
     const C_PREVPAGE2 = " 上一页"
     const C_NEXTPAGE1 = " 下一页"
     const C_NEXTPAGE2 = " 下一页"
     const C_LASTPAGE1 = " 尾页"
     const C_LASTPAGE2 = " 尾页"
     const C_CURRENTPAGE = " 页次：{0}/{1}页"
     const C_PAGESIZE = " {0}篇/页  "
     const C_GOTOPAGE = " 跳转：  "
  
     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)    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
  <%> "  
   '/// AccHelper 的摘要说明。
   '/// 
   Class AccHelper
  
    Public CONN_STRING
  
    '/// 
  
    '/// 执行ExecuteNonQuery
    '/// 
  
    '/// 连接字符
    '/// sql命令
    Public Function ExecuteNonQuery(connString,cmdText)
  
     Dim objConn
     Set objConn = Server.CreateObject("ADODB.Connection")
     objConn.Open connString
     objConn.Execute(cmdText)
  
    End Function
  
    '/// 
  
    '/// 执行ExecuteReader
    '/// 
  
    '/// 连接字符
    '/// sql命令
    '/// RS
    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
  
    '/// 
  
    '/// 执行Recordset
    '/// 
   then> > > > >

  
    '/// 连接字符
    '/// sql命令
    '/// RS
    Public Function Recordset(connString,cmdText)
  
     Dim objConn,objRS
     Set objConn = Server.CreateObject("ADODB.Connection")
     objConn.Open connString
     Set objRS = Server.CreateObject("ADODB.RecordSet")
     objRS.Open cmdText,objConn,1,3
     Set Recordset = objRS
  
    End Function
  
    Private Sub Class_Initialize()
     CONN_STRING = "provider = microsoft.jet.oledb.4.0;data source=" & Server.Mappath("db.mdb")
    End Sub
  
   End Class
  %> then> > > > >

  小编带来的这篇Asp简单的制作ajax留言板，是不是特别的实用呢，更多相关的内容，可以多多关注下爱站技术频道，我们会不断的更