asp简单的ajax留言板(采用三层模式)1
点击次数：12 次 发布日期：2008-11-26 11:42:06 作者：源代码网
|
源代码网推荐 就只有留言其它的都什么也没写,采用三层结构(不知道算不算,本来对三层的概念很糊涂) 源代码网推荐 源代码网推荐 演示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="提交留言" onclick="$("guest/index.asp?tCMD=SAVE&content="+escape(this.form.con.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 源代码网推荐 源代码网推荐 源代码网推荐 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
