<% '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 "" objRS.AbsolutePage = PageNo For I = 1 To objRS.PageSize Response.Write "" Response.Write "" '显示留言的作者、主题及时间，至于内容则设计为连接至ShowNews.asp的超链接 Response.Write "" objRS.MoveNext If objRS.EOF Then Exit For Next Response.Write "
作者：" & objRS("作者") & "
主题：" & objRS("主题") & "
时间：" & objRS("时间") & _ "
阅读留言与加入讨论
" 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 "" & _ I & "" & " | " '超链接到NewsGroup.asp并将页次当成参数传送 End If Next Response.Write "]
" %> <% '根据页次调用ShowPage子程序来显示留言，若没有指定页次，就显示第1页 If PageNo <> "" Then ShowPage objRS, PageNo Else ShowPage objRS, 1 End If '关闭数据库连接并释放对象 objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>

请在此输入新的留言
　

作者

主题

内容
　
                      
　
　
泰和宾馆 Copyright ©2006 All rights reserved www.taihe-hotel.com 泰和宾馆服务网 版权所有
宾馆服务热线：020-37314808 传真: 020-37314908  E-Mail:taihe@taihe-hotel.com
宾馆招商加盟热线：020-37314800 　袁先生    15918631799 周先生
地址:广州市白云区太和镇新广从公路 北太路1760号白云货运站
技术支持 :商赢互联网  网址: http://www.swin.net.cn 电话:020-84701006