当前位置:首页 >> 商贸机会 >> ><%=ypxxone%> |
<%set rs=server.createobject("adodb.recordset")
sql="select * from SMT_ypxxone order by SMT_date desc"
rs.open sql,conn,1,1
n=0
nn=rs.recordcount
do while not rs.eof
n=n+1%>
class="black"><%=rs("SMT_ypxxone")%> |
<%if n mod 4<>0 then response.write(" | ")
if n mod 4=0 and nn<>n then response.write(" ")
rs.movenext
loop
rs.close%>
|
查看:全部
<%set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_scasort order by SMT_date desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
><%=rs("SMT_scasort")%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
其它 |
|
<%if request("scasort")<>"" then
sql="select * from SMT_sca where SMT_ypxxone_id="&request("id")&" and SMT_scasort="&request("scasort")&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1 order by SMT_id desc"
else
sql="select * from SMT_sca where SMT_ypxxone_id="&request("id")&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1 order by SMT_id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂无内容 | "
else
'分页的实现
listnum=10
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum%>
<%i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
do while not rs.eof and i61 then
sca=left(sca,60)&"..."
end if
set rs1=server.createobject("adodb.recordset")
sql1="select * from SMT_scasort where SMT_id="&rs("SMT_scasort")
rs1.open sql1,conn,1,1
if not rs1.eof then
scasort="["&rs1("SMT_scasort")&"]"
else
scasort="[其它]"
end if
rs1.close%>
<%=scasort%> |
target="_blank"><%=rs("SMT_scatitle")%> |
<%=year(rs("SMT_begindate"))&"-"&month(rs("SMT_begindate"))&"-"&day(rs("SMT_begindate"))%> |
<%if rs("SMT_yp_id")<>0 then
set rs1=server.createobject("adodb.recordset")
sql1="select * from SMT_yp where SMT_id="&rs("SMT_yp_id")
rs1.open sql1,conn,1,1
if not rs1.eof then
goname=rs1("SMT_user")
goid=rs1("SMT_id")
coname=rs1("SMT_coname")
addtwo_id=rs1("SMT_addtwo_id")
svip=rs1("SMT_vip")
set rs2=server.createobject("adodb.recordset")
sql2="select * from SMT_ypaddtwo where SMT_addtwo_id="&addtwo_id
rs2.open sql2,conn,1,1
coadd=" ["&rs2("SMT_addtwo")&"/"&rs2("SMT_addone")&"]"
rs2.close
end if
rs1.close%>
|
target=_blank><%=coname%> <%if svip=2 then%><%end if%> <%=coadd%> |
<%end if%>
|
<%=trim(sca)%> |
|
<%rs.movenext
i=i+1
j=j-1
loop%>
<%filename="sca_list.asp?id="&id&"&scasort="&request("scasort")%>
<%=rs.recordcount%>条信息 共<%=Rs.pagecount%>页
<% if page=1 then %>
<%else%>
>|<<
&page=<%=page-1%>><<
&page=<%=page-1%>>[<%=page-1%>]
<%end if%><% if Rs.pagecount=1 then %>
<%else%>[<%=page%>]
<%end if%>
<% if Rs.pagecount-page <> 0 then %>
&page=<%=page+1%>>[<%=page+1%>]
&page=<%=page+1%>>>>
&page=<%=Rs.pagecount%>>>>|
<%end if%> |
<%end if%>
|
<%rs.close%>
|
|
<%=ypxxone%> |
|
<%sql="select * from SMT_sca where SMT_ypxxone_id="&id&" and SMT_scasort=0 and SMT_key=1 and SMT_key1=1 and SMT_key2=1"
rs.open sql,conn,1,1
sca0=rs.recordcount
rs.close
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_scasort order by SMT_date desc"
rs.open sql,conn,1,1
n=0
do while not rs.eof
n=n+1
set rs2=server.createobject("adodb.recordset")
sql2="select * from SMT_sca where SMT_ypxxone_id="&id&" and SMT_scasort="&rs("SMT_id")&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1"
rs2.open sql2,conn,1,1
sca=rs2.recordcount
rs2.close
set rs2=nothing%>
&scasort=<%=rs("SMT_id")%> class=black><%=rs("SMT_scasort")%>
| (<%=sca%>) |
<%if n mod 2=0 then response.write " "
rs.movenext
loop
rs.close%>
&scasort=0 class=black>其它 |
(<%=sca0%>) |
|
|
<%set rs1=server.createobject("adodb.recordset")
sql1="select * from SMT_ypxxtwo where SMT_ypxxone_id="&id&" order by SMT_date desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
sql="select * from SMT_sca where SMT_ypxxtwo_id="&rs1("SMT_ypxxtwo_id")&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1"
rs.open sql,conn,1,1
scacount=rs.recordcount
rs.close%>
|
class=black><%=rs1("SMT_ypxxtwo")%> (<%=scacount%>) |
<%rs1.movenext
loop
rs1.close
set rs1=nothing%>
|
|
|