Asp簡單的制作ajax留言板

2024-09-01 08:30:16

字體：大中小

來源：轉載

供稿：網友

?恍然想起，似乎很久沒有寫Asp了，這下想用Asp簡單的制作ajax留言板竟然感覺有點難度了，整個流程下來竟然耗時我一天，哈哈，有點慢了，還請大師多多指點。

復制代碼代碼如下:

<%@?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

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

??'///?
??'///?每頁記錄數
??'///?頁碼
??'///?判斷值
??'///?排序
??'///?返回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

??'///?
??'///?需要內容
??'///?替換關鍵字
??'///?格式化后內容
??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?=?"?跳轉：??"

???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

??'///?

??'///?執行ExecuteNonQuery
??'///?

??'///?連接字符
??'///?sql命令
??Public?Function?ExecuteNonQuery(connString,cmdText)

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

??End?Function

??'///?

??'///?執行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

??'///?

??'///?執行Recordset
??'///?
?then>?>?>?>?>

??'///?連接字符
??'///?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
%>?then>?>?>?>?>

小編帶來的這篇Asp簡單的制作ajax留言板，是不是特別的實用呢，更多相關的內容，可以多多關注下錯新技術頻道，我們會不斷的更

?