神马品牌网win8专业版怎么激活:ASP高手请指教
来源：百度文库 编辑：神马品牌网 时间：2024/05/04 16:33:17
<!-- #include file="ADOFunctions.asp" -->
<HTML>
<BODY>
<CENTER><IMG SRC="fig.jpg"></CENTER>
<%
'ShowPage子程序负责设置表格颜色及插图，然后显示PageNo参数所指定的页次的所有记录
Sub ShowPage(objRS, PageNo)
'设置表格背景颜色及插图文件，同时加上Randomize使每次产生不同顺序的图形文件
ReDim Fig(objRS.PageSize - 1 ), BG(objRS.PageSize - 1 )
Randomize
For I = 0 to objRS.PageSize - 1
Fig(I) = INT(RND * 9) + 1 & ".gif"
Next
BG(0) = "#D9D9FF"
BG(1) = "#FFCAEE"
BG(2) = "#FFFFCC"
BG(3) = "#B9EEB9"
BG(4) = "#B9E9FF"
'显示留言并加以格式化
Response.Write "<TABLE ALIGN='CENTER' WIDTH='90%'>"
objRS.AbsolutePage = PageNo
For I = 1 To objRS.PageSize
Response.Write "<TR BGCOLOR=" & BG(I - 1) & ">"
Response.Write "<TD WIDTH='15%'><IMG SRC=" & Fig(I - 1) & "></TD>"
'显示留言的作者、主题及时间，至于内容则设计为连接至ShowNews.asp的超链接
Response.Write "<TD WIDTH='85%'>作者：" & objRS("作者") & "<BR>主题：" & objRS("主题") & "<BR>时间：" & objRS("时间") & _
"<BR><A HREF='ShowNews.asp?Title=" & objRS("主题") & "'>阅读留言与加入讨论</A></TD></TR>"
objRS.MoveNext
If objRS.EOF Then Exit For
Next
Response.Write "</TABLE>"
End Sub
%>
<%
'读取数据表的所有记录并依照时间递减顺序排列
strSQL = "SELECT * FROM 留言板 ORDER BY 时间 DESC"
Set objRS = GetSQLRecordset(strSQL, "Books.mdb", "留言板")
'设置分页大小，您可视实际情况设置其他数值
objRS.PageSize = 5
'显示页次超链接
PageNo = Request("PageNo") '读取浏览者所点取的页次超链接
Response.Write "["
For I = 1 To objRS.PageCount
If I = CInt(PageNo) Then '若到浏览者所点取的页次超链接，便不再当成超链接
Response.Write I & " | "
Else
Response.Write "<A HREF='NewsGroup.asp?PageNo=" & I & "'>" & _
I & "</A>" & " | " '超链接到NewsGroup.asp并将页次当成参数传送
End If
Next
Response.Write "]<HR>"
%>
<%
'根据页次调用ShowPage子程序来显示留言，若没有指定页次，就显示第1页
If PageNo <> "" Then
ShowPage objRS, PageNo
Else
ShowPage objRS, 1
End If
'关闭数据库连接并释放对象
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</BODY>
</HTML>
<!-- #include file="ADOFunctions.asp" -->
<HTML>
<BODY>
<CENTER><IMG SRC="fig.jpg"></CENTER>
<%
'ShowPage子程序负责设置表格颜色及插图，然后显示PageNo参数所指定的页次的所有记录
Sub ShowPage(objRS, PageNo)
'设置表格背景颜色及插图文件，同时加上Randomize使每次产生不同顺序的图形文件
ReDim Fig(objRS.PageSize - 1 ), BG(objRS.PageSize - 1 )
Randomize
For I = 0 to objRS.PageSize - 1
Fig(I) = INT(RND * 9) + 1 & ".gif"
Next
BG(0) = "#D9D9FF"
BG(1) = "#FFCAEE"
BG(2) = "#FFFFCC"
BG(3) = "#B9EEB9"
BG(4) = "#B9E9FF"
'显示留言并加以格式化
Response.Write "<TABLE ALIGN='CENTER' WIDTH='90%'>"
objRS.AbsolutePage = PageNo
For I = 1 To objRS.PageSize
Response.Write "<TR BGCOLOR=" & BG(I - 1) & ">"
Response.Write "<TD WIDTH='15%'><IMG SRC=" & Fig(I - 1) & "></TD>"
'显示留言的作者、主题及时间，至于内容则设计为连接至ShowNews.asp的超链接
Response.Write "<TD WIDTH='85%'>作者：" & objRS("作者") & "<BR>主题：" & objRS("主题") & "<BR>时间：" & objRS("时间") & _
"<BR><A HREF='ShowNews.asp?Title=" & objRS("主题") & "'>阅读留言与加入讨论</A></TD></TR>"
objRS.MoveNext
If objRS.EOF Then Exit For
Next
Response.Write "</TABLE>"
End Sub
%>
<%
'读取数据表的所有记录并依照时间递减顺序排列
strSQL = "SELECT * FROM 留言板 ORDER BY 时间 DESC"
Set objRS = GetSQLRecordset(strSQL, "Books.mdb", "留言板")
'设置分页大小，您可视实际情况设置其他数值
objRS.PageSize = 5
'显示页次超链接
PageNo = Request("PageNo") '读取浏览者所点取的页次超链接
%>
<%
'根据页次调用ShowPage子程序来显示留言，若没有指定页次，就显示第1页
If PageNo <> "" Then
ShowPage objRS, PageNo
Else
ShowPage objRS, 1
End If
Response.Write "["
For I = 1 To objRS.PageCount
If I = CInt(PageNo) Then '若到浏览者所点取的页次超链接，便不再当成超链接
Response.Write I & " | "
Else
Response.Write "<A HREF='NewsGroup.asp?PageNo=" & I & "'>" & _
I & "</A>" & " | " '超链接到NewsGroup.asp并将页次当成参数传送
End If
Next
Response.Write "]<HR>"
'关闭数据库连接并释放对象
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</BODY>
</HTML>
这样就好了。
在分页代码前面加上<table><tr><td>，后面加上</td></tr></table>
样例：
<table><tr><td>
<%
'读取数据表的所有记录并依照时间递减顺序排列
strSQL = "SELECT * FROM 留言板 ORDER BY 时间 DESC"
Set objRS = GetSQLRecordset(strSQL, "Books.mdb", "留言板")
'设置分页大小，您可视实际情况设置其他数值
objRS.PageSize = 5
'显示页次超链接
PageNo = Request("PageNo") '读取浏览者所点取的页次超链接
Response.Write "["
For I = 1 To objRS.PageCount
If I = CInt(PageNo) Then '若到浏览者所点取的页次超链接，便不再当成超链接
Response.Write I & " | "
Else
Response.Write "<A HREF='NewsGroup.asp?PageNo=" & I & "'>" & _
I & "</A>" & " | " '超链接到NewsGroup.asp并将页次当成参数传送
End If
Next
Response.Write "]<HR>"
%>
<%
'根据页次调用ShowPage子程序来显示留言，若没有指定页次，就显示第1页
If PageNo <> "" Then
ShowPage objRS, PageNo
Else
ShowPage objRS, 1
End If
'关闭数据库连接并释放对象
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</td></tr></table>