复制代码 代码如下:
<%@codepage=65001%>
<%
optionexplicit
%>
<%Response.Charset="utf-8"%>
<%Session.CodePage=65001%>
<>
<>
<>
<>
<>
<%
Dimmybll
DimmyList
Setmybll=newBLL_Guest
SelectCaseRequest("tCMD")
Case"SAVE"
mybll.Insert()
Case"DEL"
mybll.Delete()
EndSelect
myList=mybll.FindByPage()
%>
<h2>客户留言</h2>
<p>
<formname="subForm"id="subForm">
<textareaid="con"name="con"cols="56"rows="6"wrap="VIRTUAL"></textarea>
<inputtype="button"name="submit"value="提交留言"onclick="$('guest/index.asp?tCMD=SAVE&content='+escape(this.form.con.value))"/>
</form>
</p>
<%=myList%>
BLL_Guest.asp
<%
'///<summary>
'///摘要说明。
'///</summary>
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="<ahref=""?tCMD=DEL&Id="&objRS("Id")&""">删除</a>"
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="<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=""
Setmycom=newCommon
setmymod=newMOD_Guest
setmydal=newDAL_Guest
EndSub
PrivateSubClass_Terminate()
Setmycom=Nothing
Setmymod=Nothing
setmydal=Nothing
EndSub
EndClass
%>
DAL_Guest.asp
<%
'///<summary>
'///摘要说明。
'///</summary>
ClassDAL_Guest
PrivateSQL_01
PrivateSQL_02
PrivateSQL_03
PrivateSQL_04
PrivateSQL_05
PrivateSQL_06
PrivateSQL_07
Privatemycom,myacc,mymod
'///<summary>
'///获得信息
'///</summary>
'///<paramname="Id">判断字段</param>
'///<returns>信息体</returns>
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
'///<summary>
'///插入信息
'///</summary>
'///<paramname="">信息体</param>
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
'///<summary>
'///更新信息
'///</summary>
'///<paramname="">信息体</param>
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
'///<summary>
'///删除信息
'///</summary>
'///<paramname="">信息体</param>
PublicSubDelete(Id)
Dimparms,SQL
parms=Array(Id)
SQL=mycom.Format(SQL_04,parms)
Callmyacc.ExecuteNonQuery(myacc.CONN_STRING,SQL)
EndSub
'///<summary>
'///统计信息
'///</summary>
'///<paramname="">信息体</param>
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
'///<summary>
'///根据条件列出所有信息(带有分页)
'///</summary>
'///<paramname="PageSize">每页记录数</param>
'///<paramname="CurrentPage">页码</param>
'///<paramname="WhereValue">判断值</param>
'///<paramname="OrderValue">排序</param>
'///<returns>返回objRS</returns>
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
<%
'///<summary>
'///摘要说明。
'///</summary>
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
<%
'///<summary>
'///摘要说明
'///</summary>
ClassCommon
'///<summary>
'///获得信息
'///</summary>
'///<paramname="Id">需要内容</param>
'///<paramname="Id">替换关键字</param>
'///<returns>格式化后内容</returns>
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="合计<STRONG><FONTcolor=""red"">{0}</FONT></STRONG>篇|"
constC_FIRSTPAGE1="<ahref=""#""onclick=""$('{0}&PageNo={1}')"">首页</a>"
constC_FIRSTPAGE2="首页"
constC_PREVPAGE1="<ahref=""#""onclick=""$('{0}&PageNo={1}')"">上一页</a>"
constC_PREVPAGE2="上一页"
constC_NEXTPAGE1="<ahref=""#""onclick=""$('{0}&PageNo={1}')"">下一页</a>"
constC_NEXTPAGE2="下一页"
constC_LASTPAGE1="<ahref=""#""onclick=""$('{0}&PageNo={1}')"">尾页</a>"
constC_LASTPAGE2="尾页"
constC_CURRENTPAGE="页次：<STRONG><FONTcolor=""red"">{0}</FONT>/{1}</STRONG>页"
constC_PAGESIZE="<STRONG>{0}</STRONG>篇/页"
constC_GOTOPAGE="跳转：<inputtype=""text""name=""goto""value=""{1}""onchange=""$('{0}&PageNo='+this.value)""style=""width:20px;border:1px""/>"
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)<PageCountThen
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
<%
'///<summary>
'///AccHelper的摘要说明。
'///</summary>
ClassAccHelper
PublicCONN_STRING
'///<summary>
'///执行ExecuteNonQuery
'///</summary>
'///<paramname="connString">连接字符</param>
'///<paramname="cmdText">sql命令</param>
PublicFunctionExecuteNonQuery(connString,cmdText)
DimobjConn
SetobjConn=Server.CreateObject("ADODB.Connection")
objConn.OpenconnString
objConn.Execute(cmdText)
EndFunction
'///<summary>
'///执行ExecuteReader
'///</summary>
'///<paramname="connString">连接字符</param>
'///<paramname="cmdText">sql命令</param>
'///<returns>RS</returns>
PublicFunctionExecuteReader(connString,cmdText)
DimobjConn,objRS
SetobjConn=Server.CreateObject("ADODB.Connection")
objConn.OpenconnString
SetobjRS=objConn.Execute(cmdText)
SetExecuteReader=objRS
EndFunction
'///<summary>
'///执行Recordset
'///</summary>
'///<paramname="connString">连接字符</param>
'///<paramname="cmdText">sql命令</param>
'///<returns>RS</returns>
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
%>
【asp简单的ajax留言板】相关文章：
★ ajax应用