ASP简单的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()
　　%>
　　

客户留言

BLL_Guest.asp

　　<%
　　'///

　　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