真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

asp怎么實現(xiàn)簡單的ajax留言板

這篇文章主要介紹“asp怎么實現(xiàn)簡單的ajax留言板”，在日常操作中，相信很多人在asp怎么實現(xiàn)簡單的ajax留言板問題上存在疑惑，小編查閱了各式資料，整理出簡單好用的操作方法，希望對大家解答”asp怎么實現(xiàn)簡單的ajax留言板”的疑惑有所幫助！接下來，請跟著小編一起來學(xué)習(xí)吧！

在東安等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都網(wǎng)站設(shè)計、成都做網(wǎng)站、外貿(mào)網(wǎng)站建設(shè) 網(wǎng)站設(shè)計制作按需策劃,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站設(shè)計,成都全網(wǎng)營銷,外貿(mào)營銷網(wǎng)站建設(shè),東安網(wǎng)站建設(shè)費用合理。

代碼如下:


<%@ 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
<%
 '/// 
 '/// 摘要說明。
 '/// 
 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 = "刪除"
    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 = "
  • {0} {1}作者:{2} {3} {4}
    • " & vbCrLf
       UL = "
      {0}
    • {1}
    "
       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
    <%
     '/// 
     '/// 摘要說明。
     '/// 
     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

      '/// 
      '/// 獲得信息
      '/// 
      '/// 判斷字段
      '/// 信息體
      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

      '/// 
      '/// 插入信息
      '/// 
      '/// 信息體
      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

      '/// 
      '/// 更新信息
      '/// 
      '/// 信息體
      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

      '/// 
      '/// 刪除信息
      '/// 
      '/// 信息體
      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

      '/// 
      '/// 統(tǒng)計信息
      '/// 
      '/// 信息體
      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

      '/// 
      '/// 根據(jù)條件列出所有信息(帶有分頁)
      '/// 
      '/// 每頁記錄數(shù)
      '/// 頁碼
      '/// 判斷值
      '/// 排序
      '/// 返回objRS
      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 Sub

      Private Sub Class_Terminate()

       Set mycom = Nothing
       Set myacc = Nothing
       Set mymod = Nothing

      End Sub

     End Class
    %>

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

      '/// 
      '/// 獲得信息
      '/// 
      '/// 需要內(nèi)容
      '/// 替換關(guān)鍵字
      '/// 格式化后內(nèi)容
      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 = "合計{0}篇 |"
       const C_FIRSTPAGE1 = " 首頁"
       const C_FIRSTPAGE2 = " 首頁"
       const C_PREVPAGE1 = " 上一頁"
       const C_PREVPAGE2 = " 上一頁"
       const C_NEXTPAGE1 = " 下一頁"
       const C_NEXTPAGE2 = " 下一頁"
       const C_LASTPAGE1 = " 尾頁"
       const C_LASTPAGE2 = " 尾頁"
       const C_CURRENTPAGE = " 頁次：{0}/{1}頁"
       const C_PAGESIZE = " {0}篇/頁  "
       const C_GOTOPAGE = " 跳轉(zhuǎn)：  "

       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)    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=lRecordCount&lFirstpage&lPrevpage&lNextpage&lLastpage&lCurrentpage&lPagesize&lGotopage
       Page = p

      End Function

     End Class
    %>

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

      Public CONN_STRING

      '/// 
      '/// 執(zhí)行ExecuteNonQuery
      '/// 
      '/// 連接字符
      '/// sql命令
      Public Function ExecuteNonQuery(connString,cmdText)

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

      End Function

      '/// 
      '/// 執(zhí)行ExecuteReader
      '/// 
      '/// 連接字符
      '/// sql命令
      '/// RS
      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

      '/// 
      '/// 執(zhí)行Recordset
      '/// 
      '/// 連接字符
      '/// sql命令
      '/// RS
      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
    %>

    到此，關(guān)于“asp怎么實現(xiàn)簡單的ajax留言板”的學(xué)習(xí)就結(jié)束了，希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學(xué)習(xí)，快去試試吧！若想繼續(xù)學(xué)習(xí)更多相關(guān)知識，請繼續(xù)關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編會繼續(xù)努力為大家?guī)砀鄬嵱玫奈恼拢?/p>
    新聞名稱：asp怎么實現(xiàn)簡單的ajax留言板
    文章網(wǎng)址：http://weahome.cn/article/gidscp.html

    其他資訊

    在線咨詢

    微信咨詢

    電話咨詢

    028-86922220（工作日）

    18980820575（7×24）

    提交需求

    返回頂部