listall.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="mfk_body.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
pagestart
dim action
action=trim(request("action"))
if action<>"userlook" then
dim id
id=trim(request("id"))
if not IsNumeric(id) then
closeconn
response.Redirect("error.asp?errormsg=<li>错误的传递参数！</li><br><li>请确定你有有效链接进入！</li>")
end if
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id,x_name,x_baojia,x_leixun,x_shijian,x_n,x_top from xianlu where x_leiid="&id&" order by x_top desc,x_n desc"
rs.open sql,,1,2
if rs.eof or rs.bof then
closers(rs)
closeconn
response.redirect ("error.asp?errormsg=<li>此线路类别里未添加线路！请等待管理员添加</li><br><li>请确定你从有效链接进入！</li>")
end if
%>
<title><%=title1%>--更多线路</title>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
    <td width="701" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif">&nbsp;</td>
    <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0" class="lefttablebox">
  <tr>
    <td height="24" align="center">
<%
rs.pagesize=15'设置每页显示记录数
dim page
page=trim(request("page"))
if page<>"" then
page=cint(page)
else
page=1
end if
pagec=rs.pagecount
if page>pagec then
page=pagec
end if
rs.absolutepage=page
%>
以下是[类名]：　{<%=request.QueryString("board")%>}　所包含的全部线路。　需要在类名间跳转请点击最下方的分类！</td>
  </tr>
  <tr>
    <td height="24" align="center"><%
response.write("共有线路："&rs.recordcount&"　每页显示："&rs.pagesize&"　页数："&rs.pagecount&"　")
		response.write ("<a href=?page=1&id="&trim(request("id"))&"&board="&angelic(request("board"))&">首页</a>　")
		if page>1 then
		response.write ("<a href=?page="&page-1&"&id="&trim(request("id"))&"&board="&angelic(request("board"))&">上一页</a>　")
		else
		response.write("上一页　")
		end if
		if page<pagec then
		response.write("<a href=?page="&page+1&"&id="&trim(request("id"))&"&board="&angelic(request("board"))&">下一页</a>　")
		else
		response.write("下一页　")
		end if
		response.write ("<a href=?page="&pagec&"&id="&trim(request("id"))&"&board="&angelic(request("board"))&">尾页</a>　")
		response.write ("当前："&page&"/"&pagec&"")
%></td>
  </tr>
  <tr>
    <td><table width=751 border=0 align=center cellpadding=0 cellspacing=1>
      <tr align=center class="titletable">
        <td width=372 height=24>名　称</td>
        <td width=100 height=24>类　型</td>
        <td width=100 height=24>报　价</td>
        <td width=100 height=24>时　间</td>
        <td width=40 height=24>人气</td>
        <td width=28 height=24>订</td>
      </tr>
      <%
a=0
while not rs.eof and a<rs.pagesize
%>
      <tr class="table1">
        <td height=22>
          <%
if trim(rs("x_top"))=1 then
response.write ("<img src=images/mfk_top.gif width=16 height=16 alt=""置顶线路"">")
else
response.write ("<img src=images/mfk5.gif width=16 height=16 alt=""普通线路"">")
end if
%>
          <a href='listxianlu.asp?id=<%=rs("id")%>' title='查看此线路详细说明'><%=mfkiqpl(rs("x_name"))%></a></td>
        <td align=center><%=mfkiqpl(rs("x_leixun"))%></td>
        <td align=center><%=mfkiqpl(rs("x_baojia"))%></td>
        <td align=center><%=mfkiqpl(rs("x_shijian"))%></td>
        <td align=center><%=rs("x_n")%></td>
        <td align=center><a href='giveme.asp?id=<%=rs("id")%>'><img src='images/mfk7.gif' alt='马上预订' width='10' height='14' border='0'></a></td>
      </tr>
      <%
rs.movenext
a=a+1
wend
closers(rs)
%>
    </table></td>
  </tr>
</table>

<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
    <td width="741" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif">&nbsp;</td>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
  </tr>
</table>
<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'>
  <tr>
    <td height='5'></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="29"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle.gif"></td>
    <td width="695" align="center" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle.gif">
      <%
set brs=conn.execute("select * from board order by xid desc")
while not brs.eof
%>
　[<a href='listall.asp?board=<%=angelic(brs("board"))%>&id=<%=brs("id")%>' title='选择快速查看此分类'><%=brs("board")%>]</a>
    <%
brs.movenext
wend
closers(brs)
%></td>
    <td width="31"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle.gif"></td>
  </tr>
</table>
<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'>
  <tr>
    <td height='5'></td>
  </tr>
</table>
<%
else 
call userlook
end if
sub userlook
if session("user")<>"" and session("tel")<>"" then
response.Redirect("userlook.asp?action=look")
end if
%>
<title><%=title1%>--我的预订</title>
<script>
function check(){
if(form1.username.value==''){
alert("请填写您预订时所填写的姓名！");
return false;
}
if(form1.usertel.value==''){
alert("请填写您预订时所填写的电话！");
return false;
}
}
</script>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
    <td width="701" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif">&nbsp;</td>
    <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0" class="lefttablebox">
<form action="userlook.asp?action=login" method="post" name="form1" onsubmit="return check();">
<tr>
    <td height="30" colspan="2"><table width="238" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width=30>&nbsp;</td>        
        <td width=208>预 订 管 理</td>
      </tr>    </table></td>  
</tr>  <tr class="titletable">
    <td width="307" height="28" align="right"> 姓　名：</td>
    <td width="445" height="28">　
    <input name="username" type="text" id="username" onMouseOver="this.focus();"></td>
  </tr>  <tr class="titletable">
    <td height="28" align="right"> 电　话：</td>
    <td height="28">　
    <input name="usertel" type="text" id="usertel" onMouseOver="this.focus();"></td>
  </tr>  <tr align="center" class="titletable">
    <td height="30" colspan="2"><input name="Submit" type="submit" class="mfk_button" value="提 交 查 询"></td>
  </tr>  <tr class="titletable">
    <td height="31" colspan="2">　为了确认您的身份、保密其它客户的预订资料，您必须填写上面两项。若其中任意一项与您预订时所填写的不符时就无法登录成功。</td>
</tr></form></table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
    <td width="741" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif">&nbsp;</td>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
  </tr>
</table>
<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='5'></td></tr></table>
<%
end sub
pageend
%>