📄 type.asp
字号:
<html>
<!----------------------------------------------
Powered by CFN_RedHyphone（安庆分站汪懿[QQ：9000558]制作）
娱乐搜索程式
http://www.Jxtour.Net
此版本只能在个人网站使用并要求保留中国第四网&红旋风联盟版权！
商业用途必须与本人联系！
-------------------------------------------------->
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="new.css" rel=stylesheet type=text/css>
<title>全球旅游网</title>
</head>
<body bgcolor="#999999" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><!--#include file="head.asp"-->
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber1" bgcolor="#FFFFFF">
<tr>
<td width="220" bgcolor="#5E8BB4" valign="top">
<!--#include file="bar_left.asp"-->
<td width="498"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FF9900" height="6"></td>
</tr>
</table>
<!--text begin-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table><a name="top">
<div align="center" style="width: 461; height: 24">
<center>
<%
dim ersokind(902)
ersokind(101)="酒店"
sub lb_cd
response.write "<table width=100% border=0 cellpadding=0 cellspacing=0 align=center ><tr>"
response.write "<td width=10% align=center ><a href=javascript:location.reload()>刷 新</a></td> "
response.write "<td width=15% align=center >"
if ipage = "1" then
response.write "首页 上页 "
else
response.write "<a href='type.asp?kind=" + cstr(request("kind"))+"&page=1"+"&sy_fs="+isy+"'>首页</a> "
response.write "<a href='type.asp?kind=" + cstr(request("kind"))+"&page="+cstr(cint(ipage-1))+"&sy_fs="+isy+"'><上页</a> "
end if
response.write "</td>"
response.write "<td width=15% align=center >"
if cint(ipage) = rs.pagecount then
response.write "下页 末页 "
else
response.write "<a href='type.asp?kind=" + cstr(request("kind"))+"&page="+cstr(cint(ipage+1))+"&sy_fs="+isy+"'>下页</a> "
response.write "<a href='type.asp?kind=" + cstr(request("kind"))+"&page="+cstr(rs.pagecount)+"&sy_fs="+isy+"'>末页</a>"
end if
response.write "</td>"
response.write "<td width=17% align=center >"
response.write "<a href='type.asp?kind=" + cstr(request("kind"))
response.write "&sy_fs=by_na"
response.write "'>按名称列表</a></td>"
response.write "<td width=17% align=center >"
response.write "<a href='type.asp?kind=" + cstr(request("kind"))
response.write "&sy_fs=by_id"
response.write "'>按更新列表</a></td>"
response.write "<td width=26% align=right >本类小计: "
response.write cstr(fl_xj) + " 个"
response.write "</td></tr></table>"
end sub
sub lb_nr
response.write "<tr bgcolor=#fcfafc><td align=center><b>"+cstr(rs("buyorsell"))+"</b></td><td>"
response.write "<A href=view.asp?ID="+cstr(rs("id"))+">"+cstr(rs("goods"))+"</a></td><td align=center >"
if len(rs("price"))>0 then
response.write rs("price")
else
response.write "?"
end if
response.write "</td><td align=center >"
response.write ""+cstr(rs("icq"))+"</td></tr>"
end sub
on error resume next
dim conn,rs,sqlbytype,typen
connstr = "DBQ="+server.mappath("_database/cfn4.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("adodb.connection")
Conn.Open connstr
set rs = server.createobject("adodb.recordset")
sqlbytype="select * from data "
sqlbytype=sqlbytype & "where kind = " + request("kind")
if request("sy_fs") = "" then
isy="by_id"
sqlbytype=sqlbytype & " order by id desc"
else
select case request("sy_fs")
case "by_id"
isy="by_id"
sqlbytype=sqlbytype & " order by id desc"
case "by_na"
isy="by_na"
sqlbytype=sqlbytype & " order by goods"
end select
end if
rs.open sqlbytype,conn,1,1
fl_xj=rs.recordcount
rs.pagesize = 20
if request("page") = "" then
ipage = "1"
else
ipage = request("page")
end if
rs.absolutepage = ipage
call lb_cd()
response.write "<table width=100% cellpadding=0 border=0 cellspacing=0 ><tr><td bgcolor=#f0f0f0 align=center >"
typen=cstr(request("kind"))
response.write ersokind(typen)+"</td></tr></table>"
response.write "<table width=100% border=0 ><tr ><td>"
response.write " <div align=center>"
response.write " <table width=100% border=1 bordercolor=#ffffff><tr bgcolor=#fcfafc><td width=55 align=center><font color=#008080>有无特价</font><td align=center><font color=#008080>商 家 名 称</font></td><td width=90 align=center><font color=#008080>最低消费(￥)</font></td><td width=70 align=center><font color=red>所在城市</font></td></tr>"
for j = 1 to rs.pagesize
call lb_nr()
rs.movenext
if rs.eof then
exit for
end if
next
response.write "</table></div></td></tr></table>"
call lb_cd()
rs.close
conn.close
%>
<p align=center><b>
<font face="Arial Unicode MS" size="1" color="#FF0000">^
</font></b><font face="tahoma" size="1"><a href="#top">
<font color="#FF0000"><b>回页首</b></font></a></font></p><p align=center</P>
<!--text end-->
</td>
<td width="150" height="400" bgcolor="#ffffff"> </td>
</tr>
</table>
</td>
</tr>
</table>
</table></td>
</tr>
</table>
</center>
<!--#include file="adv.htm"-->
</div>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -