📄 class1info2.asp
字号:
<!--#include file="conn1.asp"-->
<!--#include file="config.asp"-->
<%
dim rs,sql,b,bb,i,tj,atj,class1,sclass1
set rs=server.createobject("ADODB.recordset")
class1=trim(request("class1"))
wtype=trim(request("wtype"))
'取标题
if class1<>"" then
sql="select * from class1 where id="&class1&""
rs.open sql,conn,1,1
sclass1=rs("class1")
rs.close
end if
dim ThisPage,Pagesize,Allrecord,Allpage,leixing,rslx,rslx2,sqllx
set rslx2=server.createobject("adodb.recordset")
set rslx=server.createobject("adodb.recordset")
if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
if request("apage")="" then
aThisPage=1
else
aThisPage=request("apage")
end if
%>
<HTML><HEAD><TITLE><%=sclass1+"信息"%></TITLE>
<link href="inc_style.css" rel="stylesheet" type="text/css">
<style>
<!--
.ip {
BORDER-RIGHT: #999999 1px inset; BORDER-TOP: #999999 1px inset; FONT-SIZE: 9pt; BORDER-LEFT: #999999 1px inset; LINE-HEIGHT: 13pt; BORDER-BOTTOM: #999999 1px inset; HEIGHT: 18px
}
.button {
BORDER-RIGHT: #333333 1px outset; BORDER-TOP: #333333 1px outset; BORDER-LEFT: #333333 1px outset; BORDER-BOTTOM: #333333 1px outset
}
-->
</style>
</HEAD>
<BODY topMargin=0 style="background-image: url('')">
<!--#include file="top.asp" -->
<!--#include file=bar.asp-->
<SCRIPT language=javascript>
function go(p)
{
var url;
url="class1info.asp?wtype="+String(p)+"&class1=<%=class1%>";
window.location.href = url
}
function go2()
{
var url;
url="class1info.asp?wtype=<%=wtype%>&class1=<%=class1%>";
window.location.href = url
}
</SCRIPT>
<div align="center">
<TABLE style="FONT-SIZE: 10pt" cellSpacing=1 cellPadding=3 width=760
bgColor=#606060 border=0 id="table2">
<TBODY>
<%
dim tui_rs,tui_sql
set tui_rs=server.createobject("ADODB.recordset")
if len(trim(request("wtype")))>0 then
tui_sql = "select top 8 * from xinxi where yz=1 and zd=1 and class1="&class1&" and leixing="&request("wtype")&" order by fbsj desc"
else
tui_sql = "select top 8 * from xinxi where yz=1 and zd=1 and class1="&class1&" order by fbsj desc"
end if
tui_rs.open tui_sql,conn,1,1
if tui_rs.eof then
response.write "还没有置顶信息！"
else
do while not tui_rs.eof
sqllx="select * from class1 where id="&tui_rs("class1")&" "
rslx2.open sqllx,conn,1,1
%>
<TR bgColor=#ffffcc>
<TD align=middle width=70 bgColor=#ffcc66><FONT
color=#dd0000>▲</FONT><%=tui_rs("id")%></TD>
<TD><a target="_blank" href=<%=rslx2("memopage")%>?cnmai=<%=tui_rs("id")%>><%=mid(tui_rs("biaoti"),1,30)%></a></TD>
<TD width=100><%=tui_rs("name")%></TD>
<TD width=140><%=tui_rs("fbsj")%></TD></TR>
<%
rslx2.close
tui_rs.movenext
loop
end if
tui_rs.close
%>
</TBODY></TABLE>
<TABLE style="FONT-SIZE: 10pt" cellSpacing=3 cellPadding=0 width=760 border=0 id="table3">
<TBODY>
<TR>
<TD vAlign=top align=middle bgcolor="#F1FAE6">
<form action="search.asp" name="searchform" method="GET" style="line-height: 100%; margin-top: 0; margin-bottom: 0">
<TABLE style="FONT-SIZE: 10pt" height=40 cellSpacing=1 cellPadding=3
width="98%" bgColor=#cccccc border=0 id="table22">
<TBODY>
<TR>
<TD vAlign=center bgColor=#f1fae6><INPUT onclick=go2() type=radio
value=1 name=mode> 标题列表模式 <BR><INPUT type=radio CHECKED value=2 name=mode> 信息列表模式 </TD></TR></TBODY></TABLE>
<p align="left">
<span lang="zh-cn">关键词：</span><input name="keyword" type="text" size="16" style="border:1px solid #C0C0C0; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px; color:#800000">
<p>
<input type="submit" value=" 搜 索 " name="B1" style="color: #800000; border: 1px solid #008080; "></form><TABLE cellSpacing=2 cellPadding=1 width=170 border=0 height="1" id="table6">
<TBODY>
<TR height=1>
<TD bgColor=#000000></TD></TR></TBODY></TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 height="37" id="table15" bgcolor="#F1FAE6">
<tr>
<TD height="36">
<A
href="http://www.baidu.com/baidu?word=世界杯&tn=guangdong_zh_pg"
target=_blank><FONT color=red>世界杯</FONT></A> <A
href="http://www.baidu.com/baidu?word=珠海旅游&tn=guangdong_zh_pg"
target=_blank>旅游</A> <A
href="http://www.baidu.com/baidu?word=珠海酒店&tn=guangdong_zh_pg"
target=_blank>酒店</A> <A
href="http://www.baidu.com/baidu?word=珠海招聘&tn=guangdong_zh_pg"
target=_blank>招聘</A> <A
href="http://www.baidu.com/baidu?word=珠海培训&tn=guangdong_zh_pg"
target=_blank>培训</A> </TD>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center" height="1"></td>
</tr>
</table>
<br><!--#include file="link.asp"-->
</TD>
<TD vAlign=top align=right width=585 bgColor=#f1fae6>
<TABLE style="FONT-SIZE: 10pt" height=30 cellSpacing=0 cellPadding=0
width="100%" border=0 id="table8">
<TBODY>
<TR>
<TD align=middle>
<% if class1="8" then%>
<INPUT onclick=go(4) type=radio value=4 name=wtype <%if wtype="4" then%>checked<%end if%>>
求租 <INPUT onclick=go(2) type=radio value=2 name=wtype <%if wtype="2" then%>checked<%end if%>> 求购
<INPUT onclick=go(3) type=radio value=3 name=wtype <%if wtype="3" then%>checked<%end if%>> 出租
<INPUT onclick=go(1) type=radio value=1 name=wtype <%if wtype="1" then%>checked<%end if%>> 出售
<%
elseif class1="18" then%>
<INPUT onclick=go(6) type=radio value=6 name=wtype <%if wtype="6" then%>checked<%end if%>> 招聘
<INPUT onclick=go(6) type=radio value=5 name=wtype <%if wtype="5" then%>checked<%end if%>> 求职
<%
elseif class1="14" or class1="15" or class1="9" or class1="1" then%>
<INPUT onclick=go(4) type=radio value=4 name=wtype checked <%if wtype="4" then%>checked<%end if%>>
求租 <INPUT onclick=go(2) type=radio value=2 name=wtype <%if wtype="2" then%>checked<%end if%>> 求购
<INPUT onclick=go(3) type=radio value=3 name=wtype <%if wtype="3" then%>checked<%end if%>> 出租
<INPUT onclick=go(8) type=radio value=8 name=wtype <%if wtype="8" then%>checked<%end if%>> 转让
<%else%>
交易方式: <select name="wtype" size="1" onchange="location=this.options[this.selectedIndex].value" >
<%
dim rslx22,sqllx2
set rslx22=server.createobject("adodb.recordset")
sqllx2="select * from [leixing] "
rslx22.open sqllx2,conn,1,1
do while not rslx22.eof
%>
<option value="class1info.asp?wtype=<%=rslx22("id")%>&class1=<%=class1%>" <%if wtype=cstr(rslx22("id")) then%> selected<%end if%>><%=rslx22("leixing")%></option>
<%rslx22.movenext
loop
rslx22.close
set rslx22=nothing
%>
</select>
<% end if%>
</TD>
<TD align=right width="1%"> </TD></TR></TBODY></TABLE>
<table width="100%" id="table1">
<tr>
<td height="75" valign="top" width="597" colspan="2">
<div align="center">
<TABLE style="FONT-SIZE: 10pt" borderColor=#333333 cellSpacing=1
cellPadding=3 width=570 bgColor=#999999 border=0 id="table9">
<TR bgColor=#cbdcb6>
<TD align=middle colspan="4" height="37"><B><FONT color=blue>VIP<%=sclass1%>信息区</FONT></B></TD>
</TR>
<TR bgColor=#cbdcb6>
<TD align=middle width=38>序号</TD>
<TD align=middle width="350">信 息</TD>
<TD align=middle width=95>联系电话</TD>
<TD align=middle width=58>联系人</TD>
</TR>
<%
tj=0
if len(trim(request("wtype")))>0 then
sql = "select * from [xinxi] where yz=1 and class1="&class1&" and leixing="&request("wtype")&" and vip=1 order by id desc"
else
sql = "select * from [xinxi] where yz=1 and class1="&class1&" and vip=1 order by id desc"
end if
rs.open sql,conn,1,1
rs.Pagesize=15
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
if rs.eof then
response.write "还没有此类信息！"
else
do while not rs.eof
sqllx="select * from class1 where id="&rs("class1")&" "
rslx2.open sqllx,conn,1,1
response.write "<TR bgColor=#f1fae6>"
response.write "<TD align=middle bgColor=#cbdcb6>"
response.write rs("id")
response.write "</td>"
response.write "<td>"
response.write "<a target=""_blank"" href="&rslx2("memopage")&"?cnmai="&rs("id")&">"
response.write " "
sqllx="select * from [leixing] where id= "&rs("leixing")&" "
rslx.open sqllx,conn,1,1
response.write "[<font color="&rslx("lxcolor")&">"&rslx("leixing")&"</font>]"
if len(rs("addr1"))>0 then
response.write rs("addr1")&"区"
end if
if rs("htype")=1 then
response.write "单间，"
else
response.write "套房，"
end if
if htype=2 and rs("room")<>"" and rs("room")<>"0" and rs("hall")<>"" and rs("hall")<>"0" then
response.write rs("room")&"房"&rs("hall")&"厅，"
end if
if len(rs("size"))>0 then
response.write rs("size")&"平方米，"
end if
if rs("price")="0" or rs("price")="" then
response.write "价格面议"
else
response.write rs("price")&"元"
end if
response.write "</a>"
response.write "</td>"
response.write "<td>"
response.write rs("phone")
response.write "</td>"
response.write "<td>"
response.write rs("name")
response.write "</td>"
response.write "</tr>"
tj=tj+1
rslx.close
rslx2.close
rs.movenext
if tj>=Pagesize then exit do
loop
end if
rs.close
set rs=nothing
%>
</table>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="552">
<tr>
<td height="25" width="151">
<p align="center">
共有 <font color="#CC5200"><%=Allrecord%></font> 条记录</td>
<td height="25" width="126">
<p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="25" width="118">
<p align="center">现在是第
<font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="25" width="157">
<p align="center">
<%dim myurl,pageposition
myurl=Request.ServerVariables("QUERY_STRING")
if myurl<>"" then
pageposition=instr(myurl,"page")
if pageposition>0 then
myurl=left(myurl,pageposition-1)
else
myurl=myurl+"&"
end if
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -