|
|
|
|
|
|
| 门票 |
概况 |
| 气候 |
最佳旅游时间 |
| 历史文化 |
交通线路 |
| 休闲娱乐 |
美食论坛 |
|
|
| 您的位置:首页->旅游景点推荐 |
|
|
<%
dim lineno
const adopenkeyset=1
const adlockreadonly=1
const adcmdtext=&h0001
fhsql="select * from liuyan"
databasepath=server.mappath("data\liuyanban.mdb")
set rs=server.createobject("adodb.recordset")
cnstr="provider=microsoft.jet.oledb.4.0;data source=" & databasepath
rs.open fhsql,cnstr,adopenkeyset,adlockreadonly,adcmdtext
rs.pagesize=20
if request.querystring("pageno")="" then
rs.absolutepage=1
else
rs.absolutepage=request.querystring("pageno")
end if
title=""
response.write title
response.write ""
for num=0 to rs.fields.count-3
response.write "| "&rs.fields(num).name&" | "
next
response.write " "
lineno=1
do while not rs.eof and lineno<=rs.pagesize
response.write ""
response.write "| "&rs.fields(0).value&" | "
for num=1 to rs.fields.count-4
response.write "" &rs.fields(num).value& " | "
next
response.write ""
response.write ""
response.write ""
response.write "" &rs(5).value& " | "
response.write " "
response.write " "
response.write " | "
rs.movenext
response.write " "
lineno=lineno+1
loop
rs.close
%>
|
|