<% if request("type")<>"新闻动态" then %>
<% end if %>
 |
| 电话：0471-6633411 |
| |
0471-6633412 |
| |
0471-6633413 |
| |
0471-6633414 |
| |
0471-6633896 |
| 手机：13848105868 |
| |
（刘旭容） |
| 传真：0471-6633414 |
| 网址： |
| www.kingstar.net.cn |
Email：
kingstarcn@163.com
kingstarcn@126.com
kingstarcn@sina.com |
| 网络实名： |
| 内蒙古草原特色旅游 |
|
 |
|
|
| |
您当前的位置 首页 > 外发线路 |
<%
select case trim(request("type"))
case "新闻动态"
qian="image-gif/xwdt-qian.gif"
biao="image-gif/icon_new.gif"
case "地接线路"
qian="image-gif/lyxl-qian1.gif"
biao="image-gif/icon_issue.gif"
case "外发线路"
qian="image-gif/lyxl-qian2.gif"
biao="image-gif/icon_issue.gif"
end select
%>
|
| |
<%
if rs.recordcount=0 then
response.write "
暂时没有此类新闻！"
else
rs.PageSize =20 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
for i=1 to x
%>
|
我到北京上大学（590元/人） |
|
|
|
我去天津上大学（560元/人） |
|
|
|
我到西安上大学（480元/人） |
|
|
| 红色旅游精典线路 |
|
★ |
1、 北京-遵化-乐亭-天津线 |
|
|
★ |
2、 北京-保定-西柏坡线 |
|
|
★ |
3、 上海-嘉兴-平阳线 |
|
|
★ |
4、 南京-镇江-句容-常熟线 |
|
|
★ |
5、 泰州-盐城-淮安-徐州线 |
|
|
★ |
6、 南昌-吉安-井冈山线 |
|
|
★ |
7、 赣州-瑞金-于都-会昌-长汀-上杭-古田线 |
|
|
★ |
8、 井冈山-永新-茶陵-株洲线 |
|
|
★ |
9、 韶山-宁乡-平江线 |
|
|
★ |
10、 南宁-崇左-靖西-百色线 |
|
|
★ |
11、 贵阳-遵义-仁怀-赤水-泸州线 |
|
|
★ |
12、 成都-松潘-若尔盖-迭部-宕昌-岷县-临夏-兰州线 |
|
|
★ |
13、 成都-雅安-石棉-泸定-康定线 |
|
|
★ |
14、 昆明-会理-攀枝花-冕宁-西昌线 |
|
|
★ |
15、 兰州-定西-会宁-静宁-六盘山－银川线 |
|
|
★ |
16、 西安-洛川-延安-予长-榆林-绥德线 |
|
|
★ |
17、 黄山-婺源-上饶-弋阳-武夷山 |
|
|
★ |
18、 黄山-绩溪-旌德-泾县-宣城-芜湖线 |
|
|
★ |
19、 济南-济宁-枣庄-临沂-连云港线 |
|
|
★ |
20、 武汉-麻城-红安-新县-信阳线 |
|
|
★ |
21、 合肥-六安-金寨-霍山-岳西-安庆线 |
|
|
★ |
22、 太原-大同-灵丘-涞源-易县-涿州线 |
|
|
★ |
23、 石家庄-西柏坡-涉县-长治-晋城线 |
|
|
★ |
24、 沈阳-锦州-葫芦岛-秦皇岛线 |
|
|
★ |
25、 四平-吉林-敦化-延吉-白山-临江-通化-集安线 |
|
|
★ |
26、 哈尔滨-阿城-尚志-海林-牡丹江线 |
|
|
★ |
27、 重庆-广安-仪陇-巴中线 |
|
|
★ |
28、 海口-文昌-琼海-五指山线 |
|
|
★ |
29、 张家界-桑植-永顺-吉首-铜仁线 |
|
|
<%
rs.movenext
next
call PageControl(iCount,maxpage,page,"border=0 align=center","")
end if
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write(" " & vbCrLf )
Response.Write("" & vbCrLf )
Response.Write(" " & vbCrLf )
End Sub
rs.close
set rs=nothing
%>
|
| |
|
|
