middle_sclass.asp

C2C二手交易网SMRUC v2.0 全部实现了C2C电子商务功能。 特别适合高校、组织、社区实现自己的C2C电子商务。 C2C二手交易网SMRUC v2.0具有强大的用户自主发布和管理信息功能

<table width="570" cellpadding="0" cellspacing="0">
<%
	id=request.QueryString("id")
	if id<>"" then
		exec_middle_sclass1="select * from sclass where sclass_id="&id
		set rs1=server.createobject("adodb.recordset")
		rs1.open exec_middle_sclass1,conn,1,1
%>
  <tr>
    <td width="20" height="20" background="images/top_left.jpg"></td>
    <td width="530" colspan="2" background="images/top_mid.jpg"><font color="#FFFFFF"><strong> 
      <%=rs1("sclass_name")%></strong></font></td>
    <td width="20" height="20" background="images/top_right.jpg"></td>
  </tr>
  <tr>
    <td height="15">&nbsp;</td>
    <td colspan="2">&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
<%
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)

exec_middle_sclass="select * from info where info_sclass="&rs1("sclass_id")&" and info_status='有效' order by info_id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec_middle_sclass,conn,1,1
if rs.eof then
%>
  <tr>
    <td height="15">&nbsp;</td>
    <td colspan="2">无</td>
    <td>&nbsp;</td>
  </tr>
<%else
set rs1=server.createobject("adodb.recordset")
rs.pagesize=20
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
i=0
dim user_id(),user_ip(),user_name(),user_mail()
do while not rs.eof and (i<rs.pagesize)
i=i+1
redim preserve info_id(i),info_title(i),info_date(i),info_kind(i)
info_id(i)=rs("info_id")
info_title(i)=rs("info_title")
info_date(i)=rs("info_date")
info_kind(i)=rs("info_kind")
rs.movenext
loop

for i=1 to ubound(info_id)
%>
  <tr>
    <td height="20">&nbsp;</td>
    <td width="350">[<font color="<%if info_kind(i)="求" then %>0000ff<% else %>ff0000<% end if%>"><%=info_kind(i)%></font>]<a href="showinfo.asp?id=<%=info_id(i)%>"><%=info_title(i)%></a></td>
    <td><%=info_date(i)%></td>
	<td></td>
  </tr>
<%
next
end if
rs.close
%>
<tr>
  <td></td>
  <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;第<%=page%>页&nbsp;&nbsp;&nbsp;
  共<%=totalpage%>页&nbsp;&nbsp;&nbsp;
  <%if page>1 then%><a href="show_sclass.asp?id=<%=id%>&page=<%=page-1%>">上一页</a><%end if%>&nbsp;&nbsp;&nbsp;
  <%if page<totalpage then%><a href="show_sclass.asp?id=<%=id%>&page=<%=page+1%>">下一页</a><%end if%>
  </td>
  <td></td>
</tr>
  <tr>
    <td height="15">&nbsp;</td>
    <td colspan="2">&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
<%
	else
%>
<%
	end if
%>