ASP簡(jiǎn)單的ajax留言板(采用三層模式)

index.asp
    <%@ codepage=65001%>
    <%
    option explicit
    %>
    <% Response.Charset="utf-8"%>
    <% Session.CodePage=65001 %>
    
    <%
    Dim mybll
    Dim myList
    Set mybll = new BLL_Guest
    Select Case Request("tCMD")
    Case "SAVE"
    mybll.Insert()
    Case "DEL"
    mybll.Delete()
    End Select
    myList = mybll.FindByPage()
    %>
    客戶留言
    

    
    
    

    <%=myList%>
    BLL_Guest.asp
    <%
    '///

    '/// 摘要說(shuō)明。
    '///

    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