商务助手首页
发布商业信息
商业信息
产品目录
  产品大类目录
  产品小类目录
  发布产品信息
  管理产品信息
展会信息
公司介绍
药贸通档案
查看商业往来
留言信息
我关注的商机
我的商业伙伴
会员评价
我的会员资料
修改注册信息
修改密码
我的自助网站
帮助








<% gsid=session("id") sql="select * from productshow where gsid="&gsid&" order by idate desc" 'response.write sql set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.eof or rs.bof then %>
产品大类管理   产品小类管理

您暂无有效的产品信息! 


<% else msg_per_page=10 '定义每页显示记录条数 rs.pagesize=msg_per_page '定义分页记录集每页显示记录数 if not (rs.eof and rs.bof) then totalrec=RS.RecordCount'总记录条数 if rs.recordcount mod msg_per_page=0 then'计算总页数,recordcount:数据的总记录数 n=rs.recordcount\msg_per_page'n:总页数 else n=rs.recordcount\msg_per_page+1 end if currentpage=request("page")'currentpage:当前页 If currentpage <> "" then currentpage = cint(currentpage) if currentpage < 1 then currentpage = 1 end if if err.number <> 0 then '错误处理 err.clear currentpage=1 end if else currentpage=1 End if if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then currentPage=1 end if rs.absolutepage=currentpage'absolutepage:设置指针指向某页开头 rowcount=rs.pagesize'pagesize:设置每一页的数据记录数 end if %>
<% sql1="select count(id) from productshow where gsid="&gsid&"" set totle=conn.execute(sql1) totle=totle(0) sql2="select count(id) from productshow where gsid="&gsid&" and flag=1" set totle2=conn.execute(sql2) totle2=totle2(0) response.write"您总共发布了" response.write" "&totle&" 条产品信息," response.write"已审核 "&totle2&" 条," response.write"尚未通过审核 "&(totle-totle2)&" 条。" totle.close set totle=nothing totle2.close set totle2=nothing %>
<%do while not rs.eof and rowcount > 0%> <% rowcount=rowcount-1 rs.movenext loop %>
状态 产品名称 发布时间 操作
<% if rs("flag")=1 then %> 已审 <%else%> 待审 <%end if%> <%if rs("html_pass")=1 then%>" href="/productshow/info.jsp?id=<%=rs("id")%>" target="_blank"><%else%>" href="edit1.jsp?id=<%=rs("id")%>" target="_blank"><%end if%><%=rs("cpmc")%> <%=rs("idate")%> ">修改 ">删除 ">重发
<%call listPages()%>


<%end if%>
特别提醒:

1、为保证产品信息的真实合法性,您发布的产品信息并不会立即在网上发布:
· 药贸通会员发布的产品信息将在二小时内审核。

2、发布产品信息后,为保证客户及时与您联系,请确保您的联系信息(特别是电话、电子邮箱地址)准确无误。

3、请勿一天内重复提交相同内容的产品信息,否则将不被审核通过。





<% sub listPages() if not (rs.eof and rs.bof) then gopage=currentpage totalpage=n blockPage=Int((gopage-1)/10)*10+1 if blockPage = 1 Then Response.Write "【←前10页  " Else Response.Write("←前10页  ") End If i=1 Do Until i > 10 or blockPage > n If blockPage=int(gopage) Then Response.Write("["&blockPage&"]") Else Response.Write("["&blockPage&"]") End If blockPage=blockPage+1 i = i + 1 Loop if blockPage > totalpage Then Response.Write "  后10页→】" Else Response.Write("  后10页→】") End If Response.Write("  共"&n&"页 每页"&msg_per_page&"条记录 共"&totalrec&"条记录") end if end sub %>
<% rs.close set rs=nothing conn.close set conn=nothing