📄 vip.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file=top.asp-->
<%
set rs=server.createobject("ADODB.recordset")
%>
<%
dim rs,sql,b,bb,i,tj,class1,class2,ijob
class1=trim(request("class1"))
class2=trim(request("class2"))
ijob=request("ijob")
if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%>-首页-<%=web%></title>
<link rel="stylesheet" type="text/css" href="1.CSS">
<style>
<!--
a:link.a03 {text-decoration:none;color:#000000;}
.p2 {
FONT-SIZE: 9pt; LINE-HEIGHT: 14pt
}
.p1 {
FONT-SIZE: 9pt
}
-->
</style>
</head>
<body topmargin="0" leftmargin="0" style="text-align: right">
<table width="716"><tr><td width="974"><table cellSpacing="0" cellPadding="0" width="882" border="0">
<tr>
<td width="319" align="center">
<img border="0" src="img/fenlei-1.gif">
<tr> <td width="319">
<!--#include file="fenlei.html"-->
</td>
<td vAlign="top" width="618" height="473">
<div align="left">
<table cellPadding="0" width="294" border="0" height="300" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td height="233" valign="top" width="597">
<div align="center">
<center>
<table id="DataGrid1" rules="all" border="0" height="30" width="530">
<tr style="FONT-WEIGHT: bold; BORDER-LEFT-COLOR: #2E99CC; BORDER-BOTTOM-COLOR: #2E99CC; BORDER-TOP-COLOR: #2E99CC; BACKGROUND-COLOR: #2E99CC; BORDER-RIGHT-COLOR: #2E99CC" align="middle">
<td style="background-color: #FFFFFF" height="26" background="image/22.gif" width="32">
<font color="#555555">
<u>
方式</u></font></td>
<td style="background-color: #FFFFFF" height="26" background="image/22.gif" width="222">
<font color="#555555">
<u>
信息标题</u></font></td>
<td style="background-color: #FFFFFF" height="26" background="image/22.gif" width="82">
<p><font color="#555555"><u>价格</u></font></td>
<td style="background-color: #FFFFFF" height="26" background="image/22.gif" width="60">
<font color="#555555">
<u>
点/回</u></font></td>
<td style="background-color: #FFFFFF" height="26" background="image/22.gif" width="102">
<font color="#555555">
<u>
日 期</u></font></td>
</tr>
<%
dim ThisPage,Pagesize,Allrecord,Allpage
set rs=server.createobject("adodb.recordset")
tj=0
Select Case ijob
Case "1"
sql = "select id,username,biaoti,leixing,name,a,b,c,fbsj,llcs,hfcs,jiage,memo,diqu from xinxi where yz=1 and class1="&class1&" order by b desc,id desc"
Case "2"
sql = "select id,username,biaoti,leixing,name,a,b,c,fbsj,llcs,hfcs,jiage,memo,diqu from xinxi where yz=1 and class1="&class1&" and class2="&class2&" order by b desc,id desc"
Case Else
sql = "select id,username,biaoti,leixing,name,a,b,c,fbsj,llcs,hfcs,jiage,memo,diqu from xinxi where yz=1 order by b desc,id desc"
' ,fbsj desc
End Select
rs.open sql,conn,1,1
rs.Pagesize=10
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
dim leixing
do while not rs.eof
b=trim(rs("b"))
bb=len(b)
leixing=rs("leixing")
response.write "<tr>"
response.write "<td style=""BACKGROUND-COLOR: FBFBFB"" align=""middle"" width=""45"" height=""26"" background=""image/22.gif"">"
Select Case leixing
Case "1"
response.write "<font color=""#008000"">[出售]</font>"
Case "2"
response.write "<font color=""#FF00FF"">[求购]</font>"
Case "3"
response.write "<font color=""#008000"">[出租]</font>"
Case "4"
response.write "<font color=""#FF00FF"">[求租]</font>"
Case "5"
response.write "<font color=""#ff0000"">[求职]</font>"
Case "6"
response.write "<font color=""#ff0000"">[招聘]</font>"
Case "7"
response.write "<font color=""#ff0000"">[交友]</font>"
Case "8"
response.write "<font color=""#ff0000"">[婚姻]</font>"
Case Else
response.write "<font color=""#FF00FF"">[其它]</font>"
End Select
response.write "</td>"
response.write "<td style=""BACKGROUND-COLOR: #ffffff"" align=""left"" width=""280"" height=""26"" background=""image/22.gif"">"
if rs("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a href=xinximemo.asp?ijob="&rs("id")&" title="&rs("diqu")&"/"&rs("name")&">"
if rs("a")="0" and rs("b")="0" and rs("c")<>1 then
response.write ""&rs("biaoti")&""
end if
if rs("a")<>"0" or rs("b")<>"0" or rs("c")=1 then
response.write "<font color=#FF0000>[VIP]</font>"+"<font color=#"&rs("a")&">"&rs("biaoti")&"</font>"
end if
response.write "</a>"
if b<>0 then
response.write "<img src=""images/num/jsq.gif"">"
for i=1 to bb
response.write "<img src=""images/num/"&Mid(b,i,1)&".gif"">"
next
end if
response.write "</td>"
response.write "<td style=""BACKGROUND-COLOR: #FBFBFB"" align=""middle"" width=""30"" height=""26"" background=""image/22.gif"">"
if rs("jiage")=0 then
response.write "面 议"
else
response.write rs("jiage")
end if
response.write "</td>"
response.write "<td style=""BACKGROUND-COLOR: #ffffff"" align=""middle"" width=""15"" height=""22"" background=""image/22.gif""><font color=#353535>"&rs("llcs")&"/"&rs("hfcs")&"</font></td>"
response.write "<td style=""BACKGROUND-COLOR: #fbfbfb"" align=""middle"" width=""100"" height=""22""><font color=#353535>"&rs("fbsj")&"</font></td>"
tj=tj+1
rs.movenext
if tj>=Pagesize then exit do
loop
end if
rs.close
set rs=nothing
%>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" width="540" style="border-collapse: collapse" height="32">
<tr>
<td height="32" width="151">
<p align="center">
共有 <font color="#CC5200"><%=Allrecord%></font> 条记录</td>
<td height="32" width="126">
<p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="32" width="118">
<p align="center">现在是第
<font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="32" width="185">
<p align="center">
<%
if ThisPage<2 then
response.write "<font color=""#808080"">首页</font> "
response.write "<font color=""#808080"">上一页</font> "
else
response.write "<a href=?page=1&class1="&class1&"&class2="&class2&"&ijob="&ijob&">首页</a> "
response.write "<a href=?page="&ThisPage-1&"&class1="&class1&"&class2="&class2&"&ijob="&ijob&">上一页</a> "
end if
if Allpage-ThisPage<1 then
response.write "<font color=""#808080"">下一页</font> "
response.write "<font color=""#808080"">尾页</font> "
else
response.write "<a href=?page="&(ThisPage+1)&"&class1="&class1&"&class2="&class2&"&ijob="&ijob&">下一页</a> "
response.write "<a href=?page="&Allpage&"&class1="&class1&"&class2="&class2&"&ijob="&ijob&">尾页</a> "
end if
%></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td vAlign="middle" width="319" height="1">
</td>
</tr>
</table>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" >
<tr>
<!--友情连接代码插入处 -->
</tr>
<tr>
<td width="100%" height="1"><!--#include file=copywright.asp--></td>
</tr>
</table>
</center>
</div>
</table>
<div align="center">
</div>
<%
Conn.Execute("Update xinxi Set b=0 where DateDiff('D',fbsj,now())>=1 and rz=1")
closedb
%>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -