js.asp

一套现成的分类信息网站发布系统

<!--#include file="conn1.asp"-->
<!--#include file="config.asp"-->
<link href="adcnmai/inc_style.css" rel="stylesheet" type="text/css">
<%
dim rs,sql,b,bb,i,tj,class1,class2,cnmai,leixing,diqu,name
set rs=server.createobject("ADODB.recordset")
class1=trim(request("class1"))
class2=trim(request("class2"))
leixing=trim(request("leixing"))
cnmai=request("cnmai")
Select Case cnmai
Case "1"
sql = "select top 10 * from xinxi where yz=1 and class1="&class1&" order by b desc,id desc"
Case "2"
sql = "select top 10 * from xinxi where yz=1 and class1="&class1&" and class2="&class2&" order by b desc,id desc"
Case "3"
sql = "select  top 10 *  from xinxi where yz=1 and leixing="&leixing&" order by b desc,id desc"
Case Else
sql = "select top 10 * from xinxi where yz=1 order by b desc,id desc"
' ,fbsj desc
End Select
rs.open sql,conn,1,1
if rs.eof then
response.write "还没有添加信息！"
else
do while not rs.eof
b=trim(rs("b"))
bb=len(b)
Select Case rs("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 rs("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a target=""_blank"" title="""&rs("diqu")&"-"&rs("name")&"-发布于"&datevalue(rs("fbsj"))&""" href=xinximemo.asp?cnmai="&rs("id")&">"
if rs("a")="0" then
response.write ""&mid(rs("biaoti"),1,16)&""
else
response.write "<font color=#"&rs("a")&">"&mid(rs("biaoti"),1,16)&"</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>"
rs.movenext
loop
end if
rs.close
set rs=nothing
%>