WEB开发网
开发学院WEB开发Ajax asp简单的ajax留言板(采用三层模式) 阅读

asp简单的ajax留言板(采用三层模式)

 2006-05-27 11:16:16 来源:WEB开发网   
核心提示:好久没有写过asp了,这回写个留言板还真觉得有点难度,竞然写了整整一天,哈哈.就只有留言其它的都什么也没写,采用三层结构(不知道算不算,本来对三层的概念很糊涂)演示www.zj55.com的留言板,希望各位大哥大姐如果发现有漏洞的话请在这里告诉我,千万不要黑我的网站,在这里小弟先谢过了.index.asp<%@

好久没有写过asp了,这回写个留言板还真觉得有点难度,竞然写了整整一天,哈哈.
就只有留言其它的都什么也没写,采用三层结构(不知道算不算,本来对三层的概念很糊涂)

演示www.zj55.com的留言板,希望各位大哥大姐如果发现有漏洞的话请在这里告诉我,千万不要黑我的网站,在这里小弟先谢过了.

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="提交留言" />
</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=DEL&Id="&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>
  '/// 统计信息
  '/// </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 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">需要内容</param>
  '/// <param name="Id">替换关键字</param>
  '/// <returns>格式化后内容</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>篇 |"
  const C_FIRSTPAGE1 = " <a href=""#"" onclick=""$('{0}&PageNo={1}')"">首页</a>"
  const C_FIRSTPAGE2 = " 首页"
  const C_PREVPAGE1 = " <a href=""#"" onclick=""$('{0}&PageNo={1}')"">上一页</a>"
  const C_PREVPAGE2 = " 上一页"
  const C_NEXTPAGE1 = " <a href=""#"" onclick=""$('{0}&PageNo={1}')"">下一页</a>"
  const C_NEXTPAGE2 = " 下一页"
  const C_LASTPAGE1 = " <a href=""#"" onclick=""$('{0}&PageNo={1}')"">尾页</a>"
  const C_LASTPAGE2 = " 尾页"
  const C_CURRENTPAGE = " 页次:<STRONG><FONT color=""red"">{0}</FONT>/{1}</STRONG>页"
  const C_PAGESIZE = " <STRONG>{0}</STRONG>篇/页 "
  const C_GOTOPAGE = " 跳转:<input type=""text"" name=""goto"" value=""{1}"" onchange=""$('{0}&PageNo='+this.value)"" style=""width:20px;border:1px""/> "
 
  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=lRecordCount&lFirstpage&lPrevpage&lNextpage&lLastpage&lCurrentpage&lPagesize&lGotopage
  Page = p

  End Function

 End Class
%>

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

  Public CONN_STRING

  '/// <summary>
  '/// 执行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>
  '/// 执行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>
  '/// 执行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
%>

Tags:asp 简单 ajax

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接