📄 sq_indexinclude.asp

📁 重庆二手网

💻 ASP

字号:

<!--#include file="conn.asp"-->
<link rel="stylesheet" type="text/css" href="1.CSS">
<body topmargin="0" leftmargin="0" background="img/back10.jpg">

<table>
<%
dim i,class1,sql,rs,b,bb,leixing,tj
set rs=server.createobject("adodb.recordset")
sql = "select top 9 id,biaoti,leixing,name,a,b,c,fbsj,llcs,hfcs from xinxi where yz=1 order by b desc,id desc"
rs.open sql,conn,1,1
do while not rs.eof and i<9
b=trim(rs("b"))
bb=len(b)
leixing=rs("leixing")
response.write "<tr>"
response.write "<td width='10'>"
                Select Case leixing
                Case "1"
                response.write "<font color=""#0099cc"">售</font>"
                Case "2"
                response.write "<font color=""#ff0000"">购</font>"
                Case "3"
                response.write "<font color=""#0099cc"">租</font>"
                Case "4"
                response.write "<font color=""#0099cc"">求</font>"
                Case "5"
                response.write "<font color=""#0099cc"">求</font>"
                Case Else
                response.write "<font color=""#0099cc"">售</font>"
                End Select
response.write "</td>"
response.write "<td align=""left"" width=""200"">"
if rs("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a target=""_blank"" href=xinximemo.asp?ijob="&rs("id")&">"
if rs("a")="0" then
response.write ""&left(rs("biaoti"),12)&"..."
else
response.write "<font color=#"&rs("a")&">"&left(rs("biaoti"),12)&"...</font>"
end if
response.write "</a>"
response.write "</td>"
response.write "</tr>"
tj=tj+1
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -