asp簡單的ajax留言板

來源:互聯網
上載者:User
ajax  

好久沒有寫過asp了,這回寫個留言板還真覺得有點難度,競然寫了整整一天,哈哈.
就只有留言其它的都什麼也沒寫,採用三層結構(不知道算不算,本來對三層的概念很糊塗)

示範的留言板,希望各位大哥大姐如果發現有漏洞的話請在這裡告訴我,千萬不要黑我的網站,在這裡小弟先謝過了.

index.asp
<%@codepage=65001%>
<%
optionexplicit
%>
<%Response.Charset="utf-8"%>
<%Session.CodePage=65001%>
<!--#includefile="AccHelper.asp"-->
<!--#includefile="Common.asp"-->
<!--#includefile="DAL_Guest.asp"-->
<!--#includefile="MOD_Guest.asp"-->
<!--#includefile="BLL_Guest.asp"-->
<%
 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

相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。