发布供求信息

修改供求信息

注册成为会员

修改会员信息

<% If Request.Form("Topage")= "" then CurPage = 1 Else CurPage = CLng(Request.Form("Topage")) End If If Not rsBusi.EOF Then '获取数据并显示 TotalPages = rsBusi.PageCount TotalCount = rsBusi.RecordCount If CurPage>rsBusi.PageCount then CurPage=TotalPages rsBusi.AbsolutePage = CurPage %> <% I=0 do while (not rsBusi.EOF) And (I <%If rsBusi("type")=0 then%> <%ElseIf rsBusi("type")=1 then%> <%Else%> <%End IF%> <% rsBusi.MoveNext I=I+1 if (not rsBusi.EOF) And (I <%If rsBusi("type")=0 then%> <%ElseIf rsBusi("type")=1 then%> <%Else%> <%End IF%> <% rsBusi.MoveNext I=I+1 end if Loop%> <%Else%> <%end if %>

编号	信息标题	信息类型	提交日期
<%=I+1+Pagesize*(Curpage-1)%>	" title="<%=left(rsBusi("content"),20)%>..."><%=rsBusi("title")%>	供应	需求	合作	<%=rsBusi("msgdate")%>
<%=I+1+Pagesize*(Curpage-1)%>	" title="<%=left(rsBusi("content"),20)%>..."><%=rsBusi("title")%>	供应	需求	合作	<%=rsBusi("msgdate")%>
共<%=TotalCount%>条供求信息,状态(<%=CurPage%>/<%=TotalPages %>页)  <%If CurPage>1 Then %>第一页 上一页<%Else%>第一页 上一页<%End If %> <%If CurPage下一页 最后页<%Else%>下一页 最后页<%End If %> 转到第 页
数据库中没有任何供求信息!

<%Refer=Request.ServerVariables("HTTP_REFERER")%>

<% set rsUser = nothing Conn.close set Conn = nothing %>