asp简单的ajax留言板

答案：
复制代码 代码如下:

<%@ codepage=65001%> 
<% 
option explicit 
%> 
<% Response.Charset="utf-8"%> 
<% Session.CodePage=65001 %> 
<!-- #include file="AccHelper.asp" --> 
<!-- #include file="Common.asp"--> 
<!-- #include file="DAL_Guest.asp" --> 
<!-- #include file="MOD_Guest.asp" --> 
<!-- #include file="BLL_Guest.asp" --> 
<% 
 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() 
%> 
<h2>客户留言</h2> 
<p> 
<form name="subForm" id="subForm"> 
 <textarea id="con" name="con" cols="56" rows="6" wrap="VIRTUAL"></textarea> 
 <input type="button" name="submit" value="提交留言" onclick="$('guest/index.asp?tCMD=SAVE&content='+escape(this.form.con.value))" /> 
</form> 
</p> 
<%=myList%> 

BLL_Guest.asp 
<% 
 '/// <summary> 
 '/// 摘要说明。 
 '/// </summary> 
 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 = "<a href=>    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.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 

  '/// <summary> 
  '/// 插入信息 
  '/// </summary> 
  '/// <param name="">信息体</param> 
  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 

  '/// <summary> 
  '/// 更新信息 
  '/// </summary> 
  '/// <param name="">信息体</param> 
  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 

  '/// <summary> 
  '/// 删除信息 
  '/// </summary> 
  '/// <param name="">信息体</param> 
  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 

  '/// <summary> 
  '/// 统计信息 
  '/// </summary> 
  '/// <param name="">信息体</param> 
  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 

  '/// <summary> 
  '/// 根据条件列出所有信息(带有分页) 
  '/// </summary> 
  '/// <param name="PageSize">每页记录数</param> 
  '/// <param name="CurrentPage">页码</param> 
  '/// <param name="WhereValue">判断值</param> 
  '/// <param name="OrderValue">排序</param> 
  '/// <returns>返回objRS</returns> 
  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 S

上一个：发布三个ajax相关的函数，包括无刷新提交表单等
下一个：AJAX请求类