主頁 > 知識庫 > asp簡單的ajax留言板(采用三層模式)

asp簡單的ajax留言板(采用三層模式)

好久沒有寫過asp了,這回寫個留言板還真覺得有點(diǎn)難度,競?cè)粚懥苏惶?哈哈.
就只有留言其它的都什么也沒寫,采用三層結(jié)構(gòu)(不知道算不算,本來對三層的概念很糊涂)

演示www.zj55.com的留言板,希望各位大哥大姐如果發(fā)現(xiàn)有漏洞的話請在這里告訴我,千萬不要黑我的網(wǎng)站,在這里小弟先謝過了.

index.asp
%@ 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=SAVEcontent='+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=""?tCMD=DELId="objRS("Id")""">刪除/a>"
    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>
  '/// 統(tǒng)計信息
  '/// /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>
  '/// 根據(jù)條件列出所有信息(帶有分頁)
  '/// /summary>
  '/// param name="PageSize">每頁記錄數(shù)/param>
  '/// param name="CurrentPage">頁碼/param>
  '/// param name="WhereValue">判斷值/param>
  '/// param name="OrderValue">排序/param>
  '/// returns>返回objRS/returns>
  Public Function FindByPage(PageSize,CurrentPage,WhereValue,OrderValue)

   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
%
'/// summary>
'/// 摘要說明。
'/// /summary>
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
%
'/// summary>
'/// 摘要說明
'/// /summary>
Class Common

  '/// summary>
  '/// 獲得信息
  '/// /summary>
  '/// param name="Id">需要內(nèi)容/param>
  '/// param name="Id">替換關(guān)鍵字/param>
  '/// returns>格式化后內(nèi)容/returns>
  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 = "合計STRONG>FONT color=""red"">{0}/FONT>/STRONG>篇nbsp;|"
   const C_FIRSTPAGE1 = "nbsp;a href=""#"" onclick=""$('{0}PageNo={1}')"">首頁/a>"
   const C_FIRSTPAGE2 = "nbsp;首頁"
   const C_PREVPAGE1 = "nbsp;a href=""#"" onclick=""$('{0}PageNo={1}')"">上一頁/a>"
   const C_PREVPAGE2 = "nbsp;上一頁"
   const C_NEXTPAGE1 = "nbsp;a href=""#"" onclick=""$('{0}PageNo={1}')"">下一頁/a>"
   const C_NEXTPAGE2 = "nbsp;下一頁"
   const C_LASTPAGE1 = "nbsp;a href=""#"" onclick=""$('{0}PageNo={1}')"">尾頁/a>"
   const C_LASTPAGE2 = "nbsp;尾頁"
   const C_CURRENTPAGE = "nbsp;頁次：STRONG>FONT color=""red"">{0}/FONT>/{1}/STRONG>頁"
   const C_PAGESIZE = "nbsp;STRONG>{0}/STRONG>篇/頁nbsp;nbsp;"
   const C_GOTOPAGE = "nbsp;跳轉(zhuǎn)：input type=""text"" name=""goto"" value=""{1}"" onchange=""$('{0}PageNo='+this.value)"" style=""width:20px;border:1px""/>nbsp;nbsp;"

   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)PageCount Then
    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=lRecordCountlFirstpagelPrevpagelNextpagelLastpagelCurrentpagelPagesizelGotopage
   Page = p

End Function

End Class
%>

AccHelper.asp
%
'/// summary>
'/// AccHelper 的摘要說明。
'/// /summary>
Class AccHelper

Public CONN_STRING

  '/// summary>
  '/// 執(zhí)行ExecuteNonQuery
  '/// /summary>
  '/// param name="connString">連接字符/param>
  '/// param name="cmdText">sql命令/param>
  Public Function ExecuteNonQuery(connString,cmdText)

   Dim objConn
   Set objConn = Server.CreateObject("ADODB.Connection")
   objConn.Open connString
   objConn.Execute(cmdText)

End Function

  '/// summary>
  '/// 執(zhí)行ExecuteReader
  '/// /summary>
  '/// param name="connString">連接字符/param>
  '/// param name="cmdText">sql命令/param>
  '/// returns>RS/returns>
  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

  '/// summary>
  '/// 執(zhí)行Recordset
  '/// /summary>
  '/// param name="connString">連接字符/param>
  '/// param name="cmdText">sql命令/param>
  '/// returns>RS/returns>
  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
%>
ajax.js

復(fù)制代碼代碼如下:

var http_request = false; 

function makeRequest(obj,url) { 

    http_request = false; 

    if (window.XMLHttpRequest) { // Mozilla, Safari,... 
        http_request = new XMLHttpRequest(); 
        if (http_request.overrideMimeType) { 
            http_request.overrideMimeType('text/xml'); 
        } 
    } else if (window.ActiveXObject) { // IE 
        try { 
            http_request = new ActiveXObject("Msxml2.XMLHTTP"); 
        } catch (e) { 
            try { 
            http_request = new ActiveXObject("Microsoft.XMLHTTP"); 
            } catch (e) {} 
        } 
    } 

    if (!http_request) { 
        alert('Giving up :( Cannot create an XMLHTTP instance'); 
        return false; 
    } 

    http_request.onreadystatechange = function() 
    { 
        if (http_request.readyState == 4) { 
            if (http_request.status == 200) { 
                updateObj(obj,http_request.responseText); 
            } 
            else 
            { 
                updateObj(obj,""); 
            } 
        } 
    } 
    http_request.open('GET', url, true); 
    http_request.send(null); 
} 

function updateObj(obj,data){ 
    obj.innerHTML = data; 
}
function $(url){ 
    var obj = document.getElementById("content"); 
    obj.style.display='block'; 
    document.getElementById("container").style.margin="10px auto 0px"; 
    obj.innerHTML = "Loading…"; 
    makeRequest(obj,url); 
}

html調(diào)用方法：

復(fù)制代碼代碼如下:

a href="#" onclick="$('news.html')">新聞/a>a href="#" onclick="$('product.html')">產(chǎn)品/a>a href="#" onclick="$('case.html')">案例/a>a href="#" onclick="$('contact.html')">聯(lián)系/a>a >博客/a>

您可能感興趣的文章:

php+ajax制作無刷新留言板
本人ajax留言板的源程序不錯的應(yīng)用js
找到一款不錯的基于AJAX留言板源碼(PHP版、ASP版)提供下載了
asp簡單的ajax留言板
Ajax與mysql數(shù)據(jù)交互制作留言板功能（全）

標(biāo)簽：廣元江蘇大理衢州衡水蚌埠棗莊萍鄉(xiāng)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp簡單的ajax留言板(采用三層模式)》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。