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

ClassBLL_Guest

Privatemycom,mymod,mydal

PrivateLI,UL

PrivateDEL

'获取信息
PublicSubGetGuest()

mydal.GetGuest(Id)

EndSub

'新增信息
PublicSubInsert()

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

Callmydal.Insert(mymod)

EndSub

'更新信息
PublicSubUpdate()

Callmydal.Update(mymod)

EndSub

'删除信息
PublicSubDelete()

mydal.Delete(Request("Id"))

EndSub

'查找信息
PublicFunctionFindByPage()

DimPageSize,CurrentPage,WhereValue,OrderValue,RecordCount
DimobjRS
Dimtmp1,tmp2,tmp3,parms,i
DimtCMD
tCMD=Request("tCMD")
PageSize="8"
CurrentPage=Request("PageNo")
IfLen(CurrentPage)<=0Then
CurrentPage=1
EndIf
WhereValue=""
OrderValue="Id"
SetobjRS=mydal.FindByPage(PageSize,CurrentPage-1,WhereValue,OrderValue)
i=1
RecordCount=mydal.Count(WhereValue)
DoWhileNotobjRS.EOF
IftCMD="DEL"Then
DEL="删除"
Else
DEL=""
EndIf
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

EndFunction

PrivateSubClass_Initialize()

LI=">

• {0}{1}
  作者:{2}{3}{4}>
• "&vbCrLf
  UL="
  • {0}
  • {1}
  "
  DEL=""
  
  Setmycom=newCommon
  setmymod=newMOD_Guest
  setmydal=newDAL_Guest
  
  EndSub
  
  PrivateSubClass_Terminate()
  
  Setmycom=Nothing
  Setmymod=Nothing
  setmydal=Nothing
  
  EndSub
  
  EndClass
  %>
  
  DAL_Guest.asp
  <%
  '///
  ClassDAL_Guest
  
  PrivateSQL_01
  PrivateSQL_02
  PrivateSQL_03
  PrivateSQL_04
  PrivateSQL_05
  PrivateSQL_06
  PrivateSQL_07
  
  Privatemycom,myacc,mymod
  
  '///
  '///判断字段
  '///信息体
  PublicFunctionGetGuest(Id)
  
  Dimparms,SQL,objRS
  parms=Array(Id)
  SQL=mycom.Format(SQL_01,parms)
  SetobjRS=myacc.ExecuteReader(myacc.CONN_STRING,SQL)
  IfNotobjRS.EOFthen
  Callmymod.SetVar(objRs("Id"),objRs("Content"),objRs("Re"),objRs("Addtime"),objRs("Ip"))
  SetGetGuest=mymod
  Else
  GetGuest=Null
  EndIf
  
  EndFunction
  
  '///
  '///信息体
  PublicSubInsert(vmod)
  
  Dimparms,SQL
  parms=Array(vmod.Content,vmod.Re,vmod.Addtime,vmod.Ip)
  SQL=mycom.Format(SQL_02,parms)
  Callmyacc.ExecuteReader(myacc.CONN_STRING,SQL)
  
  EndSub
  
  '///
  '///信息体
  PublicSubUpdate(vmod)
  
  Dimparms,SQL
  parms=Array(vmod.Id,vmod.Content,vmod.Re,vmod.Addtime,vmod.Ip)
  SQL=mycom.Format(SQL_03,parms)
  Callmyacc.ExecuteReader(myacc.CONN_STRING,SQL)
  
  EndSub
  
  '///
  '///信息体
  PublicSubDelete(Id)
  
  Dimparms,SQL
  parms=Array(Id)
  SQL=mycom.Format(SQL_04,parms)
  Callmyacc.ExecuteNonQuery(myacc.CONN_STRING,SQL)
  
  EndSub
  
  '///
  '///信息体
  PublicFunctionCount(WhereValue)
  
  Dimparms,SQL,objRS
  parms=Array(WhereValue)
  SQL=mycom.Format(SQL_07,parms)
  SetobjRS=myacc.Recordset(myacc.CONN_STRING,SQL)
  Count=objRS.RecordCount
  
  EndFunction
  
  '///
  '///每页记录数
  '///页码
  '///判断值
  '///排序
  '///返回objRS
  PublicFunctionFindByPage(PageSize,CurrentPage,WhereValue,OrderValue)
  
  Dimparms,SQL,objRS
  Dims1
  IfCurrentPage="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)
  EndIf
  
  SetobjRS=myacc.ExecuteReader(myacc.CONN_STRING,SQL)
  SetFindByPage=objRS
  
  EndFunction
  
  
  PrivateSubClass_Initialize()
  
  SQL_01="Select*From[Guest]WhereId={0}"
  SQL_02="Insertinto[Guest]([Content],[Re],[Addtime],[Ip])values('{0}','{1}','{2}','{3}')"
  SQL_03="Update[Guest]Set[Content]='{1}',[Re]='{2}',[Addtime]='{3}',[Ip]='{4}'WhereId={0}"
  SQL_04="DeleteFrom[Guest]WhereIdIn({0})"
  SQL_05="SelectTop{0}*From[Guest]WhereContentLike'%{2}%'OrderBy{1}Desc,IdDesc"
  SQL_06="SelectTop{0}*From[Guest]WhereContentLike'%{2}%'AndIdNotIN(SelectTop{3}IdFrom[Guest]WhereContentLike'%{2}%'OrderBy{1}Desc,IdDesc)OrderBy{1}Desc,IdDesc"
  SQL_07="Select*From[Guest]WhereContentLike'%{0}%'"
  
  Setmycom=newCommon
  Setmyacc=newAccHelper
  Setmymod=newMOD_Guest
  
  EndSub
  
  PrivateSubClass_Terminate()
  
  Setmycom=Nothing
  Setmyacc=Nothing
  Setmymod=Nothing
  
  EndSub
  
  EndClass
  %>
  
  MOD_Guest.asp
  <%
  '///
  ClassMOD_Guest
  
  PublicId
  PublicContent
  PublicRe
  PublicAddtime
  PublicIp
  
  PublicSubSetVar(vId,vContent,vRe,vAddtime,vIp)
  Id=vId
  Content=vContent
  Re=vContent
  Addtime=vAddtime
  Ip=vIp
  EndSub
  
  EndClass
  %>
  
  Common.asp
  <%
  '///
  ClassCommon
  
  '///
  '///需要内容
  '///替换关键字
  '///格式化后内容
  PublicFunctionFormat(str,arr)
  
  Dimr,i
  r=str
  Fori=0ToUBound(arr)
  r=Replace(r,"{"&i&"}",arr(i))
  Next
  Format=r
  
  EndFunction
  
  PublicFunctionPage(PageSize,CurrentPage,RecordCount,PageUrl)
  
  constC_RECORDCOUNT="合计{0}篇|"
  constC_FIRSTPAGE1="首页"
  constC_FIRSTPAGE2="首页"
  constC_PREVPAGE1="上一页"
  constC_PREVPAGE2="上一页"
  constC_NEXTPAGE1="下一页"
  constC_NEXTPAGE2="下一页"
  constC_LASTPAGE1="尾页"
  constC_LASTPAGE2="尾页"
  constC_CURRENTPAGE="页次：{0}/{1}页"
  constC_PAGESIZE="{0}篇/页"
  constC_GOTOPAGE="跳转："
  
  DimPageCount,pages
  DimlRecordCount,lFirstpage,lPrevpage,lNextpage,lLastpage,lCurrentpage,lPagesize,lGotopage
  Dimp,parms
  
  IfRecordCountModPageSize<>0Then
  pages=1
  else
  pages=0
  EndIf
  PageCount=CInt(RecordCount/PageSize+pages)
  
  parms=Array(RecordCount)
  lRecordCount=Format(C_RECORDCOUNT,parms)
  
  ifCInt(CurrentPage)>1Then
  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
  EndIf
  
  ifCInt(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
  EndIf
  
  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
  
  EndFunction
  
  EndClass
  %>
  
  AccHelper.asp
  <%>"
  '///AccHelper的摘要说明。
  '///
  ClassAccHelper
  
  PublicCONN_STRING
  
  '///
  
  '///执行ExecuteNonQuery
  '///
  
  '///连接字符
  '///sql命令
  PublicFunctionExecuteNonQuery(connString,cmdText)
  
  DimobjConn
  SetobjConn=Server.CreateObject("ADODB.Connection")
  objConn.OpenconnString
  objConn.Execute(cmdText)
  
  EndFunction
  
  '///
  
  '///执行ExecuteReader
  '///
  
  '///连接字符
  '///sql命令
  '///RS
  PublicFunctionExecuteReader(connString,cmdText)
  
  DimobjConn,objRS
  SetobjConn=Server.CreateObject("ADODB.Connection")
  objConn.OpenconnString
  SetobjRS=objConn.Execute(cmdText)
  SetExecuteReader=objRS
  
  EndFunction
  
  '///
  
  '///执行Recordset
  '///
  then>>>>>

  
  '///连接字符
  '///sql命令
  '///RS
  PublicFunctionRecordset(connString,cmdText)
  
  DimobjConn,objRS
  SetobjConn=Server.CreateObject("ADODB.Connection")
  objConn.OpenconnString
  SetobjRS=Server.CreateObject("ADODB.RecordSet")
  objRS.OpencmdText,objConn,1,3
  SetRecordset=objRS
  
  EndFunction
  
  PrivateSubClass_Initialize()
  CONN_STRING="provider=microsoft.jet.oledb.4.0;datasource="&Server.Mappath("db.mdb")
  EndSub
  
  EndClass
  %>then>>>>>

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