<% dim classvalue '存放类别 classvalue=request("classvalue") if classvalue="" then classvalue="01" end if %> <% dim pagesize,pagecount,curpage,infocount,querystr,orderfield,ordertype,key_word pagesize=15 curpage=request("curpage") querystr=request("querystr") if (curpage="") or (cint(curpage)<=0) then curpage="1" end if function getdata1 '展会信息 dim resultstr,sqlstr,i i=0 resultstr="" sqlstr="select * from zhxx order by id desc " 'response.Write set rs=server.CreateObject("adodb.recordset") rs.Open sqlstr,session("ObjConn"),1,1 if rs.RecordCount>0 then infocount=rs.RecordCount rs.PageSize=pagesize pagecount=rs.PageCount if cint(curpage)>pagecount then curpage=cstr(pagecount) end if rs.AbsolutePage=cint(curpage) do while (not rs.EOF) and (i" resultstr=resultstr&"" if len(trim(rs("zhname")))>32 then resultstr=resultstr&""&mid(trim(rs("zhname")),1,31)&"..."&" " else resultstr=resultstr&""&trim(rs("zhname"))&"" end if resultstr=resultstr&""&formatdatetime(rs("putdate"),2)&" " resultstr=resultstr&"" resultstr=resultstr&"" resultstr=resultstr&"" resultstr=resultstr&"" rs.MoveNext loop end if rs.Close set rs=nothing getdata1=resultstr end function function getdata2 '参展项目 dim resultstr,sqlstr,i,forstr i=0 resultstr="" 'sqlstr=" select aid,aname,deptname,adate from czxm" sqlstr=" select czxm.aid,aname,deptname,adate,ftype from czxm" sqlstr=sqlstr&" left join infostate on czxm.aid=infostate.infoid and infostate.tblname='czxm' and infostate.ftype=1 and infostate.usersite='"&session("sitenode")&"'" sqlstr=sqlstr&" where ftype=1 and czxm.fromsite='"&session("sitenode")&"'" if orderfield="" then sqlstr=sqlstr&" order by adate desc" else sqlstr=sqlstr&" order by "&orderfield&" desc " end if ' response.Write sqlstr set rs=server.CreateObject("adodb.recordset") rs.Open sqlstr,session("ObjConn"),3,3 if rs.RecordCount>0 then infocount=rs.RecordCount rs.PageSize=pagesize pagecount=rs.PageCount if cint(curpage)>pagecount then curpage=cstr(pagecount) end if rs.AbsolutePage=cint(curpage) do while (not rs.EOF) and (i" resultstr=resultstr&"" if len(trim(rs("aname")))>22 then resultstr=resultstr&""&mid(trim(rs("aname")),1,21)&"..."&"" else resultstr=resultstr&""&trim(rs("aname"))&"" end if resultstr=resultstr&""&rs("deptname")&"" if trim(rs("adate"))<>""then resultstr=resultstr&""& FormatDateTime (cdate(rs("adate")),2)&"" else resultstr=resultstr&" " end if resultstr=resultstr&"" resultstr=resultstr&"" resultstr=resultstr&"" resultstr=resultstr&"" rs.MoveNext loop end if rs.Close set rs=nothing getdata2=resultstr end function %>

<%if classvalue="01" then %>     您现在的位置：首页-->虚拟会展-->展会信息 <%elseif classvalue="03" then %>     您现在的位置：首页-->虚拟会展-->参展项目 <%end if%> <%if classvalue="01" then %> <%=getdata1%> <%elseif classvalue="03" then %> <%=getdata2%> <%end if%> <%=OperateObj.PrintBottom(infocount,curpage,pagecount,"信息总数","")%>