asp简单的ajax留言板(采用三层模式)2
点击次数：18 次 发布日期：2008-11-26 11:42:07 作者：源代码网
|
源代码网推荐 "/// 删除信息 源代码网推荐 "/// </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 源代码网推荐 %> 源代码网推荐 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
