listall.asp

旅游路线管理 比较方便的旅游路线管理

<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl   http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:[e-mail]--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script>
function scolor(dd){
dd.style.backgroundColor='#ffffff';
}
function rcolor(tt){
tt.style.backgroundColor='';
}
</script>
<%
pagestart
dim action
action=trim(request("action"))
if action<>"userlook" then
dim id
id=trim(request("id"))
if not IsNumeric(id) then
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
response.write("<table width=755 border=0 align=center cellpadding=0 cellspacing=0>")
response.write("<tr>")
response.write("<td height=20 bgcolor="&c3&"> 　　以下是[类名]：　{"&request.QueryString("board")&"}　所包含的全部线路。　需要在类名间跳转请点击最下方的分类。相信在这里能找到您需要的。</td>")
response.write("</tr></table>")
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='5'></td></tr></table>")
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
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor="&c2&"><tr align='center'><td height='22'>")
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&"")
response.write("</td></tr></table>")'分页显示
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor="&c1&"><tr><td height='1'></td></tr></table>")
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='5'></td></tr></table>")
response.write("<table width=755 border=0 align=center cellpadding=0 cellspacing=1 bgcolor="&c1&">")
response.write("<tr align=center bgcolor="&c3&">")
response.write("<td width=380 height=24>名　称</td>")
response.write("<td width=100 height=24>类　型</td>")
response.write("<td width=100 height=24>报　价</td>")
response.write("<td width=100 height=24>时　间</td>")
response.write("<td width=40 height=24>人气</td><td width=28 height=24>订</td>")
response.write("</tr>")
a=0
while not rs.eof and a<rs.pagesize
response.write("<tr onmouseover='scolor(this);' onmouseout='rcolor(this);' bgcolor="&c4&">")
response.write("<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
response.write("<a href='listxianlu.asp?id="&rs("id")&"' title='查看此线路详细说明'>"&mfkiqpl(rs("x_name"))&"</a></td>")
response.write("<td align=center>"&mfkiqpl(rs("x_leixun"))&"</td>")
response.write("<td align=center>"&mfkiqpl(rs("x_baojia"))&"</td>")
response.write("<td align=center>"&mfkiqpl(rs("x_shijian"))&"</td>")
response.write("<td align=center>"&rs("x_n")&"</td>")
response.write("<td align=center><a href='giveme.asp?id="&rs("id")&"'><img src='images/mfk7.gif' alt='马上预订' width='10' height='14' border='0'></a></td>")
response.write("</tr>")
rs.movenext
a=a+1
wend
closers(rs)
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='5'></td></tr></table>")
set brs=conn.execute("select * from board order by xid desc")
response.write("</table>")
response.write("<table width=755 border=0 align=center cellpadding=0 cellspacing=0>")
response.write("<tr align=center>")
while not brs.eof
response.write("<td height=22 bgcolor="&c3&">[ <a href='listall.asp?board="&angelic(brs("board"))&"&id="&brs("id")&"' title='选择快速查看此分类'>"&brs("board")&"</a> ]</td>")
brs.movenext
wend
closers(brs)
response.write("</tr></table>")
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='5'></td></tr></table>")
else 
userlook
end if
sub userlook
if session("user")<>"" and session("tel")<>"" then
response.Redirect("userlook.asp?action=look")
end if
%>
<script>
function check(){
if(form1.username.value==''){
alert("请填写您预订时所填写的姓名！");
return false;
}
if(form1.usertel.value==''){
alert("请填写您预订时所填写的电话！");
return false;
}
}
</script>
<%
response.write("<table width=""755"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor="&c5&">")
response.write("<form action=""userlook.asp?action=login"" method=""post"" name=""form1"" onsubmit=""return check();"">")
response.write("<tr align=""center"" bgcolor="&c2&">")
response.write("    <td height=""24"" colspan=""2""><table width=""109"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
response.write("      <tr align=""center"">")
response.write("        <td width=20><img src=images/mfk22.gif width=20 height=22></td>        <td width=89><strong>预 订 管 理 </strong></td>")
response.write("      </tr>    </table></td>  </tr>  <tr bgcolor="&c4&">")
response.write("    <td width=""307"" height=""28"" align=""right""><img src=""images/mfk24.gif"" width=""12"" height=""12""> 姓　名：</td>")
response.write("    <td width=""445"" height=""28"">　")
response.write("    <input name=""username"" type=""text"" id=""username"" onMouseOver=""this.focus();""></td>")
response.write("  </tr>  <tr bgcolor="&c4&">")
response.write("    <td height=""28"" align=""right""><img src=""images/mfk23.gif"" width=""12"" height=""12""> 电　话：</td>")
response.write("    <td height=""28"">　")
response.write("    <input name=""usertel"" type=""text"" id=""usertel"" onMouseOver=""this.focus();""></td>")
response.write("  </tr>  <tr align=""center"" bgcolor="&c4&">")
response.write("    <td height=""30"" colspan=""2""><input type=""submit"" name=""Submit"" value=""提 交 查 询""></td>")
response.write("  </tr>  <tr bgcolor="&c4&">")
response.write("    <td height=""31"" colspan=""2"" class=""ttt"">　为了确认您的身份、保密其它客户的预订资料，您必须填写上面两项。若其中任意一项与您预订时所填写的不符时就无法登录成功。</td>")
response.write("</tr></form></table>")
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='5'></td></tr></table>")
end sub
pageend
%>