message.asp

一个ＡＳＰ网站博克程序

<%

	Class Message
	
		'留言簿管理列表
		Public Sub MessageExplor(strSQL, intPage)
			Dim objDBMS
			Dim intCount
			Set objDBMS = New LarrixDBMS
			objDBMS.Open strSQL, 1
			If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
				%><table width="580" cellpadding="0" cellspacing="0" border="0"><%
				%><tr align="left" valign="middle"><%
				%><td width="100%" class="ground">当前还没有任何留言！</td><%
				%></tr><%
				%></table><%
				%><br>&nbsp;<br><%
			Else
				objDBMS.objRSET.PageSize = 25
				If Trim(Request.QueryString("page")) = "" Or IsNumeric(Trim(Request.QueryString("page"))) = False Then
					intPage = 1
				Else
					intPage = CInt(Trim(Request.QueryString("page")))
					If intPage < 1 Then
						intPage = 1
					End If
					If intPage > objDBMS.objRSET.PageCount Then
						intPage = objDBMS.objRSET.PageCount
					End If
				End If
				objDBMS.objRSET.AbsolutePage = intPage
				For intCount = 1 To objDBMS.objRSET.PageSize
					If objDBMS.objRSET.EOF Then
						Exit For
					End If
					%><table width="580" cellpadding="0" cellspacing="0" border="0"><%
					%><tr align="left" valign="middle"><%
					%><td width="100%" class="weblog">时间：<% = objDBMS.objRSET("MessageDTM") %> &nbsp;|&nbsp; 作者：<a href="mailto:<% = Server.HTMLEncode(objDBMS.objRSET("MessageEML")) %>"><% = Server.HTMLEncode(objDBMS.objRSET("MessageUSR")) %></a> &nbsp;|&nbsp; IP地址：<% = Server.HTMLEncode(objDBMS.objRSET("MessageURL")) %></td><%
					%></tr><%
					%><tr align="left" valign="middle"><%
					%><td width="100%" class="ground">留言内容：<br><% = Server.HTMLEncode(objDBMS.objRSET("MessageLAB")) %></td><%
					%></tr><%
					%><form name="message" action="MessageModify.asp" method="post" onsubmit="return (message.value.value!='');"><%
					%><input type="hidden" name="id" value="<% = objDBMS.objRSET("MessageID") %>"><%
					%><tr align="left" valign="middle"><%
					%><td width="100%" class="ground">管理回复：</td><%
					%></tr><%
					%><tr align="left" valign="middle"><%
					%><td width="100%" class="ground"><textarea name="value" rows="10" cols="30"><% = objDBMS.objRSET("MessageVAL") %></textarea></td><%
					%></tr><%
					%><tr align="left" valign="middle"><%
					%><td width="100%" class="ground"><input type="submit" value="回复留言" class="button">&nbsp; <input type="button" value="删除留言" class="button" onclick="location.assign('MessageDelete.asp?id=<% = objDBMS.objRSET("MessageID") %>');"></td><%
					%></tr><%
					%></form><%
					%></table><%
					%><br>&nbsp;<br><%
					objDBMS.objRSET.MoveNext
				Next
				If intPage > 1 Then
					%><a href="MessageExplor.asp?page=1">首页</a>&nbsp; <a href="MessageExplor.asp?page=<% = intPage - 1 %>">上一页</a>&nbsp; <%
				Else
					%>首页&nbsp; 上一页&nbsp; <%
				End If
				If intPage > 6 Then
					%>...&nbsp; <%
				End If
				For intCount = intPage - 5 To intPage + 5
					If intCount >= 1 And intCount <= objDBMS.objRSET.PageCount Then
						%><a href="MessageExplor.asp?page=<% = intCount %>"><% = intCount %></a>&nbsp; <%
					End If
				Next 
				If intPage < objDBMS.objRSET.PageCount - 5 Then
					%>...&nbsp; <%
				End If
				If intPage < objDBMS.objRSET.PageCount Then
					%><a href="MessageExplor.asp?page=<% = intPage + 1 %>">下一页</a>&nbsp; <a href="MessageExplor.asp?page=<% = objDBMS.objRSET.PageCount %>">尾页</a><%
				Else
					%>下一页&nbsp; 尾页<%
				End If
			End If
			objDBMS.Close
			Set objDBMS = Nothing
		End Sub
		
	End Class

%>