📄 7.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="../conn.asp" -->
<%
shop_name=request("shop_name")
' 创建合作代理对象
set rs=server.createobject("adodb.recordset")
sqltext="select * from travelline where p_shop='"&shop_name&"'"
rs.open sqltext,conn,1,1
dim MaxPerPage
MaxPerPage=6
'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
%>
<HTML>
<HEAD>
<TITLE>1</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<STYLE>BODY {
FONT-SIZE: 9pt
}
TD {
FONT-SIZE: 9pt
}
a { text-decoration: none; color: #000000 }
a:hover { text-decoration: underline; color: #0000FF }
.3dfont {font-size: 25pt; letter-spacing: 5;
COLOR: #0000ff; FILTER: glow(color=ffffff,strength=1) shadow(color= #66ccFF,di
rection:100); POSITION: relative; WIDTH: 100%
}
</STYLE>
<NOSCRIPT><IFRAME SRC="*.html"></IFRAME></NOSCRIPT>
<script language="javascript">
function click() {
if (event.button==2) {
alert('您好！欢迎您光临鹰潭休闲旅游！')
}
}
document.onmousedown=click
</script>
</HEAD>
<BODY BGCOLOR=#0000FF leftmargin="0" topmargin="0">
<TABLE WIDTH=778 BORDER=0 CELLPADDING=0 CELLSPACING=0 align="center">
<TR bgcolor="#9999CC">
<TD> <IMG SRC="images/Spacer.gif" WIDTH=102 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=46 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=12 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=18 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=57 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=18 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=57 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=17 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=53 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=21 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=54 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=14 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=61 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=17 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=53 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=17 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=59 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=16 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=56 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=14 HEIGHT=1></TD>
<TD> <IMG SRC="images/Spacer.gif" WIDTH=16 HEIGHT=1></TD>
</TR>
<TR>
<TD COLSPAN=21> <IMG SRC="images/1_01.gif" WIDTH=778 HEIGHT=17></TD>
</TR>
<TR>
<TD COLSPAN=21> <IMG SRC="images/1_02.gif" WIDTH=778 HEIGHT=8></TD>
</TR>
<TR>
<TD COLSPAN=21> <IMG SRC="images/1_03.gif" WIDTH=778 HEIGHT=25></TD>
</TR>
<TR>
<TD COLSPAN=2 ROWSPAN=2> <IMG SRC="images/1_04.gif" WIDTH=148 HEIGHT=50></TD>
<TD COLSPAN=18 height="44" bgcolor="#D6E7EF" > <div class="3dfont"><b><%=shop_name%></b></div></TD>
<TD ROWSPAN=3> <IMG SRC="images/1_06.gif" WIDTH=16 HEIGHT=69></TD>
</TR>
<TR>
<TD COLSPAN=18> <IMG SRC="images/1_07.gif" WIDTH=614 HEIGHT=6></TD>
</TR>
<TR>
<TD> <IMG SRC="images/1_08.gif" WIDTH=102 HEIGHT=19></TD>
<TD COLSPAN=2> <a href="1.asp?shop_name=<%=shop_name%>"><IMG SRC="images/1_09.gif" WIDTH=58 HEIGHT=19 border="0"></a></TD>
<TD> <IMG SRC="images/1_10.gif" WIDTH=18 HEIGHT=19></TD>
<TD> <a href="2.asp?shop_name=<%=shop_name%>"><IMG SRC="images/1_11.gif" WIDTH=57 HEIGHT=19 border="0"></a></TD>
<TD> <IMG SRC="images/1_12.gif" WIDTH=18 HEIGHT=19></TD>
<TD> <a href="3.asp?shop_name=<%=shop_name%>"><IMG SRC="images/1_13.gif" WIDTH=57 HEIGHT=19 border="0"></a></TD>
<TD> <IMG SRC="images/1_14.gif" WIDTH=17 HEIGHT=19></TD>
<TD> <a href="4.asp?shop_name=<%=shop_name%>"><IMG SRC="images/1_15.gif" WIDTH=53 HEIGHT=19 border="0"></a></TD>
<TD> <IMG SRC="images/1_16.gif" WIDTH=21 HEIGHT=19></TD>
<TD> <a href="7.asp?shop_name=<%=shop_name%>"><IMG SRC="images/1_21.gif" border="0"></a></TD>
<TD> <IMG SRC="images/1_18.gif" WIDTH=14 HEIGHT=19></TD>
<TD> <a href="6.asp?shop_name=<%=shop_name%>"><IMG SRC="images/1_19.gif" WIDTH=61 HEIGHT=19 border="0"></a></TD>
<TD> <IMG SRC="images/1_20.gif" WIDTH=17 HEIGHT=19></TD>
<TD> <a href="5.asp?shop_name=<%=shop_name%>"><IMG SRC="images/1_17.gif" WIDTH=53 HEIGHT=19 border="0"></a></TD>
<TD> <IMG SRC="images/1_22.gif" WIDTH=17 HEIGHT=19></TD>
<TD> <a href="8.asp?shop_name=<%=shop_name%>"><IMG SRC="images/1_23.gif" WIDTH=59 HEIGHT=19 border="0"></a></TD>
<TD> <IMG SRC="images/1_24.gif" WIDTH=16 HEIGHT=19></TD>
<TD> <a href="default.asp?shop_name=<%=shop_name%>"><IMG SRC="images/1_25.gif" WIDTH=56 HEIGHT=19 border="0"></a></TD>
<TD> <IMG SRC="images/1_26.gif" WIDTH=14 HEIGHT=19></TD>
</TR>
</TABLE>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="14" background="images/bg_left.gif" height="224"> </td>
<td width="119" height="224" valign="top" bgcolor="#FFFFFF">
<div align="center">
<p> </p>
<p><img src="images/left_1.gif" width="64" height="43"></p>
<p><img src="images/left_2.gif" width="89" height="271"></p>
</div>
</td>
<td width="1" height="224" background="images/bg_line.jpg"></td>
<td width="635" height="224" bgcolor="#FFFFFF" valign="top">
<table width="400" border="0" cellspacing="3" cellpadding="0">
<tr>
<td width="37"><img src="images/box1h.gif" width="16" height="13"></td>
<td width="221">当前位置：旅游线路</td>
<td width="130"> </td>
</tr>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="148" class=main1>
<tr>
<%
'/////////////////////////////////////////////////////////假如没有商品时//////////////////
If rs.eof and rs.bof then
response.write "<td><p align='center'><font color='#ff0000'>还没任何旅游线路</font></p></td>"
response.end
End if %>
<%row_count=1
'/////////////////////////////////////显示帖子的子程序////// ///////////////////////////////////
Sub list()%>
<%i=0
Do While Not rs.EOF%>
<td align="center" valign="top"><TABLE width="130" border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD> <TABLE border=0 cellPadding=0 cellSpacing=0 width=100>
<TBODY>
<TR>
<TD bgColor=#319a9c> <TABLE border=0 cellPadding=0 cellSpacing=1
width="100%">
<TBODY>
<TR>
<TD bgColor=#ffffff><img name="small" border="0" src="../../manage/pic_play.asp?pic_id=<%=rs("pic_id")%>" width="128" height="100"></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align=right vAlign=top><a href="travellineshow.asp?Product_id=<%=rs("Product_id")%>"><IMG
src="../../images/view.gif"
width=128 height=11 border="0"></a></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR height=20>
<TD height="30" align=middle><div align="center"><a href="../../travellineshow.asp?Product_id=<%=rs("Product_id")%>">
<% if len(rs("X_Name"))>20 then%>
<%=Left(rs("X_Name"),20)%>
<% else%>
<%=rs("X_Name")%>
<%end if%>
</a></div></TD>
</TR>
</TBODY>
</TABLE>
<br> <br> <br> <br> </td>
<%if row_count mod 3 =0 then%>
</tr>
<tr>
<%end if%>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.MoveNext
row_count=row_count+1
Loop
end Sub
%>
<% call list
If Rs.recordcount > MaxPerPage then
call showpages
end if%>
</tr>
</table>
<%
'显示翻页的子程序
sub showpages()%>
<table width="530" border="0" align="center" cellPadding="0" cellSpacing="0" >
<td> <INPUT type=hidden value=<%=ProductClass_1%> name=ProductClass_1>
<table border="0" cellPadding="0" cellSpacing="0" width="100%" height="30" class="box2">
<tr>
<td> <font color="#000000">
<p align="center">
<%
Response.write "<font color='#000000'>页面-> </font>"
If currentpage > 1 Then
response.write "<a href='7.asp?&page="+cstr(1)+"&travelline_1="+Cstr(ProductClass_1)+"'><font color='#000000'>首页</font></a><font color='#000000'><b>-</b></font>"
Response.write "<a href='7.asp?page="+Cstr(currentpage-1)+"&travelline_1="+Cstr(ProductClass_1)+"'><font color='#000000'>前页</font></a><font color='#000000'><b>-</b></font>"
Else
Response.write "<font color='#000000'>首页-</font>"
Response.write "<font color='#000000'>前页-</font>"
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='7.asp?page="+Cstr(currentPage+1)+"&travelline_1="+Cstr(ProductClass_1)+"'><font color='#000000'>后页</font></a><font color='#000000'><b>-</b></font>"
Response.write "<a href='7.asp?page="+Cstr(Rs.PageCount)+"&travelline_1="+Cstr(ProductClass_1)+"'><font color='#000000'>尾页</font></a> "
Else
Response.write "<font color='#000000'>后页-</font>"
Response.write "<font color='#000000'>尾页</font> "
End if
Response.write "<font color='#000000'>页次:</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font> "
Response.write "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>条线路</font> "
response.write "</td><td align='center'>"
response.write "<font color='#000000' class=main1> 转到第 </font><input type='text' name='page' size=2 maxlength=3 class=smallInput value="&Currentpage&"> 页 "
response.write "<input class=buttonface type='submit' value='Go' name='cndok' style='background-color: #Eaeaea'></span> "
%>
</font> </td>
</tr>
</table></td>
</table>
<%end sub%>
</td>
</tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" height="10" bgcolor="#82A4DD">
<tr>
<td>
<div align="center"></div>
</td>
</tr>
</table>
</BODY>
</HTML>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -