⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 default1.asp

📁 一套现成的分类信息网站发布系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
                Case "5"
                response.write "<font color=""#ff0000"">"&leixing5&"</font>"
                Case "6"
                response.write "<font color=""#000080"">"&leixing6&"</font>"
                Case "7"
                response.write "<font color=""#0000FF"">"&leixing7&"</font>"
                Case "8"
                response.write "<font color=""#008080"">"&leixing8&"</font>"
                Case Else
                response.write "<font color=""#000000"">"&leixing9&"</font>"
                End Select
if rs01("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a target=""_blank"" title="""&rs01("diqu")&"-"&rs01("name")&"-发布于"&datevalue(rs01("fbsj"))&""" href=xinximemo.asp?cnmai="&rs01("id")&">"
if rs01("a")="0" then
response.write ""&mid(rs01("biaoti"),1,18)&""
else
response.write "<font color=#"&rs01("a")&">"&mid(rs01("biaoti"),1,18)&"</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 "<br>"
rs01.movenext
loop
end if
%></td>
<td width="277" colspan="2">
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1 and class1=9 order by b desc,id desc"
' ,fbsj desc
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有添加信息！"
else
do while not rs01.eof
b=trim(rs01("b"))
bb=len(b)
Select Case rs01("leixing")
                Case "1"
                response.write "<font color=""#800000"">"&leixing1&"</font>"
                Case "2"
                response.write "<font color=""#FF00FF"">"&leixing2&"</font>"
                Case "3"
                response.write "<font color=""#008000"">"&leixing3&"</font>"
                Case "4"
                response.write "<font color=""#FF6600"">"&leixing4&"</font>"
                Case "5"
                response.write "<font color=""#ff0000"">"&leixing5&"</font>"
                Case "6"
                response.write "<font color=""#000080"">"&leixing6&"</font>"
                Case "7"
                response.write "<font color=""#0000FF"">"&leixing7&"</font>"
                Case "8"
                response.write "<font color=""#008080"">"&leixing8&"</font>"
                Case Else
                response.write "<font color=""#000000"">"&leixing9&"</font>"
                End Select
if rs01("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a target=""_blank"" title="""&rs01("diqu")&"-"&rs01("name")&"-发布于"&datevalue(rs01("fbsj"))&""" href=xinximemo.asp?cnmai="&rs01("id")&">"
if rs01("a")="0" then
response.write ""&mid(rs01("biaoti"),1,18)&""
else
response.write "<font color=#"&rs01("a")&">"&mid(rs01("biaoti"),1,18)&"</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 "<br>"
rs01.movenext
loop
end if
%></td>
</tr>
<tr>
<td width="542" colspan="4" height="36">
<a href="<%=ad1web%>" target="_blank">
<img border="0" src="<%=ad1%>" width="568" height="68"></a></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" width="37" height="19" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0">
<p align="center">
<img border="0" src="images/fx.gif" width="14" height="14"></td>
<td bgcolor="#F2F2F2" width="243" height="25" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0">
<font color="#003063">&nbsp;<b><a target="_blank" href="info.asp?class1=18&cnmai=1"><font color="#999999">生活资讯</font></a></b></font></td>
<td bgcolor="#CCCCCC" width="38" height="19" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0">
<p align="center">
<img border="0" src="images/fx.gif" width="14" height="14"></td>
<td bgcolor="#F2F2F2" width="244" height="19" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0">
<font color="#003063">&nbsp;<b><a target="_blank" href="info.asp?class1=5&cnmai=1"><font color="#999999">同城交友</font></a></b></font></td>
</tr>
<tr>
<td width="290" colspan="2">
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1 and class1=18 order by b desc,id desc"
' ,fbsj desc
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有添加信息！"
else
do while not rs01.eof
b=trim(rs01("b"))
bb=len(b)
Select Case rs01("leixing")
                Case "1"
                response.write "<font color=""#800000"">"&leixing1&"</font>"
                Case "2"
                response.write "<font color=""#FF00FF"">"&leixing2&"</font>"
                Case "3"
                response.write "<font color=""#008000"">"&leixing3&"</font>"
                Case "4"
                response.write "<font color=""#FF6600"">"&leixing4&"</font>"
                Case "5"
                response.write "<font color=""#ff0000"">"&leixing5&"</font>"
                Case "6"
                response.write "<font color=""#000080"">"&leixing6&"</font>"
                Case "7"
                response.write "<font color=""#0000FF"">"&leixing7&"</font>"
                Case "8"
                response.write "<font color=""#008080"">"&leixing8&"</font>"
                Case Else
                response.write "<font color=""#000000"">"&leixing9&"</font>"
                End Select
if rs01("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a target=""_blank"" title="""&rs01("diqu")&"-"&rs01("name")&"-发布于"&datevalue(rs01("fbsj"))&""" href=xinximemo.asp?cnmai="&rs01("id")&">"
if rs01("a")="0" then
response.write ""&mid(rs01("biaoti"),1,18)&""
else
response.write "<font color=#"&rs01("a")&">"&mid(rs01("biaoti"),1,18)&"</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 "<br>"
rs01.movenext
loop
end if
%></td>
<td width="277" colspan="2">
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1 and class1=5 order by b desc,id desc"
' ,fbsj desc
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有添加信息！"
else
do while not rs01.eof
b=trim(rs01("b"))
bb=len(b)
Select Case rs01("leixing")
                Case "1"
                response.write "<font color=""#800000"">"&leixing1&"</font>"
                Case "2"
                response.write "<font color=""#FF00FF"">"&leixing2&"</font>"
                Case "3"
                response.write "<font color=""#008000"">"&leixing3&"</font>"
                Case "4"
                response.write "<font color=""#FF6600"">"&leixing4&"</font>"
                Case "5"
                response.write "<font color=""#ff0000"">"&leixing5&"</font>"
                Case "6"
                response.write "<font color=""#000080"">"&leixing6&"</font>"
                Case "7"
                response.write "<font color=""#0000FF"">"&leixing7&"</font>"
                Case "8"
                response.write "<font color=""#008080"">"&leixing8&"</font>"
                Case Else
                response.write "<font color=""#000000"">"&leixing9&"</font>"
                End Select
if rs01("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a target=""_blank"" title="""&rs01("diqu")&"-"&rs01("name")&"-发布于"&datevalue(rs01("fbsj"))&""" href=xinximemo.asp?cnmai="&rs01("id")&">"
if rs01("a")="0" then
response.write ""&mid(rs01("biaoti"),1,18)&""
else
response.write "<font color=#"&rs01("a")&">"&mid(rs01("biaoti"),1,18)&"</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 "<br>"
rs01.movenext
loop
end if
%></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" width="37" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0">
<p align="center">
<img border="0" src="images/fx.gif" width="14" height="14"></td>
<td bgcolor="#F2F2F2" width="243" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0" height="25">
<font color="#003063">&nbsp;</font><a href="info.asp?leixing=1&cnmai=3"><b><font color="#999999">最新</font><font color="#FF6600">[出售]</font></b></a><font color="#999999">-[</font><a href="info.asp?leixing=3&cnmai=3"><font color="#999999">出租</font></a><font color="#999999">] 
[</font><a href="info.asp?leixing=5&cnmai=3"><font color="#999999">求职</font></a><font color="#999999">] 
[</font><a href="info.asp?leixing=8&cnmai=3"><font color="#999999">交换</font></a><font color="#999999">]</font>  </td>
<td bgcolor="#CCCCCC" width="38" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0">
<p align="center">
<img border="0" src="images/fx.gif" width="14" height="14"></td>
<td bgcolor="#F2F2F2" width="244" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0">
<font color="#003063">&nbsp;</font><a href="info.asp?leixing=2&cnmai=3"><b><font color="#999999">最新</font><font color="#FF6600">[求购]</font></b></a><font color="#999999">-[</font><a href="info.asp?leixing=4&cnmai=3"><font color="#999999">求租</font></a><font color="#999999">] 
[</font><a href="info.asp?leixing=6&cnmai=3"><font color="#999999">招聘</font></a><font color="#999999">] 
[</font><a href="info.asp?leixing=7&cnmai=3"><font color="#999999">交友</font></a><font color="#999999">]</font>  </td>
</tr>
<tr>
<td width="290" colspan="2">
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1 and leixing=1 order by b desc,id desc"
' ,fbsj desc
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有添加信息！"
else
do while not rs01.eof
b=trim(rs01("b"))
bb=len(b)
Select Case rs01("leixing")
                Case "1"
                response.write "<font color=""#800000"">"&leixing1&"</font>"
                Case "2"
                response.write "<font color=""#FF00FF"">"&leixing2&"</font>"
                Case "3"
                response.write "<font color=""#008000"">"&leixing3&"</font>"
                Case "4"
                response.write "<font color=""#FF6600"">"&leixing4&"</font>"
                Case "5"
                response.write "<font color=""#ff0000"">"&leixing5&"</font>"
                Case "6"
                response.write "<font color=""#000080"">"&leixing6&"</font>"
                Case "7"
                response.write "<font color=""#0000FF"">"&leixing7&"</font>"
                Case "8"
                response.write "<font color=""#008080"">"&leixing8&"</font>"
                Case Else
                response.write "<font color=""#000000"">"&leixing9&"</font>"
                End Select
if rs01("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a target=""_blank"" title="""&rs01("diqu")&"-"&rs01("name")&"-发布于"&datevalue(rs01("fbsj"))&""" href=xinximemo.asp?cnmai="&rs01("id")&">"
if rs01("a")="0" then
response.write ""&mid(rs01("biaoti"),1,18)&""
else
response.write "<font color=#"&rs01("a")&">"&mid(rs01("biaoti"),1,18)&"</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 "<br>"
rs01.movenext
loop
end if
%></td>
<td width="277" colspan="2">
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1 and leixing=2 order by b desc,id desc"
' ,fbsj desc
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有添加信息！"
else
do while not rs01.eof
b=trim(rs01("b"))
bb=len(b)
Select Case rs01("leixing")
                Case "1"
                response.write "<font color=""#800000"">"&leixing1&"</font>"
                Case "2"
                response.write "<font color=""#FF00FF"">"&leixing2&"</font>"
                Case "3"
                response.write "<font color=""#008000"">"&leixing3&"</font>"
                Case "4"
                response.write "<font color=""#FF6600"">"&leixing4&"</font>"
                Case "5"
                response.write "<font color=""#ff0000"">"&leixing5&"</font>"
                Case "6"
                response.write "<font color=""#000080"">"&leixing6&"</font>"
                Case "7"
                response.write "<font color=""#0000FF"">"&leixing7&"</font>"
                Case "8"
                response.write "<font color=""#008080"">"&leixing8&"</font>"
                Case Else
                response.write "<font color=""#000000"">"&leixing9&"</font>"
                End Select
if rs01("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a target=""_blank"" title="""&rs01("diqu")&"-"&rs01("name")&"-发布于"&datevalue(rs01("fbsj"))&""" href=xinximemo.asp?cnmai="&rs01("id")&">"
if rs01("a")="0" then
response.write ""&mid(rs01("biaoti"),1,18)&""
else
response.write "<font color=#"&rs01("a")&">"&mid(rs01("biaoti"),1,18)&"</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 "<br>"
rs01.movenext
loop
end if
%></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table></div>
<!--#include file=end.htm-->
</body>
</html>
<%
rs01.close
set rs01=nothing
%>
<script src="ads/ad.asp?adid=2"></script>
<script src="ads/ad.asp?adid=4"></script>
<script src="ads/ad.asp?adid=6"></script>
<script src="ads/ad.asp?adid=8"></script>
<script src="ads/ad.asp?adid=10"></script>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -