<% FileName="chgcominfo_10_fj.asp?" %>

<% dim CurrentPage,FileName,jyrcwdxxid,jyrcwdxxper,jyrcwdxxcom,jyrcwdxxbt,jyrcwdxxnr,jyrcwdxxsj,jyrcwdxxyd,jyrcwdxxxqyhf set rs=server.createobject("adodb.recordset") sql="select jyrcwdxxid,jyrcwdxxper,jyrcwdxxcom,jyrcwdxxbt,jyrcwdxxnr,jyrcwdxxsj,jyrcwdxxyd,jyrcwdxxxqyhf FROM jyrcwdxx where jyrcwdxxlx = 'sj' and jyrcwdxxqygr='gr' and jyrcwdxxper='"&Request.Cookies("perid")&"' and jyrcwdxxgrsc='0' order by jyrcwdxxsj desc" Rs.Open Sql , Conn , 1 , 1 If Rs.Eof Then %> <% Else Rs.PageSize = 10 CurrentPage = Clng(Request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Rs.AbsolutePage = CurrentPage i = 0 Do While Not Rs.Eof jyrcwdxxid=Rs("jyrcwdxxid") jyrcwdxxper=Rs("jyrcwdxxper") jyrcwdxxcom=Rs("jyrcwdxxcom") jyrcwdxxbt=Rs("jyrcwdxxbt") jyrcwdxxnr=Rs("jyrcwdxxnr") jyrcwdxxsj=Rs("jyrcwdxxsj") jyrcwdxxyd=Rs("jyrcwdxxyd") jyrcwdxxxqyhf=Rs("jyrcwdxxxqyhf") %> <% dim Rsqysj_p,jyrcwgrxm,PerPicc,MemberBeginDatecom,MemberEndDatecom,MemberTypecom Set Rsqysj_p = server.CreateObject("ADODB.recordset") Rsqysj_p.Open "select CompanyName,ComPic,MemberBeginDate,MemberEndDate,MemberType from CompanyTbl where ComId ="& jyrcwdxxcom , Conn , 1 , 1 If Rsqysj_p.Eof Then ELse jyrcwgrxm=Rsqysj_p("CompanyName") PerPicc=Rsqysj_p("ComPic") MemberTypecom=Rsqysj_p("MemberType") MemberBeginDatecom=Rsqysj_p("MemberBeginDate") MemberEndDatecom=Rsqysj_p("MemberEndDate") End If Rsqysj_p.Close Set Rsqysj_p=nothing if MemberBeginDatecom="" or isnull(MemberBeginDatecom) or MemberEndDatecom="" or Isnull(MemberEndDatecom) or DateDiff("d",now(),MemberEndDatecom)<0 then MemberTypecom=0 end if %>

• <%if jyrcwdxxyd="0" then%><%else%><%end if%>
• <%if PerPicc="" or isnull(PerPicc) then%><%else%><%end if%>

• 发给：<%=left(jyrcwgrxm,13)%>
• 时间：<%=jyrcw.formatdatee(jyrcwdxxsj,2)%>

• 标题：<%=left(jyrcwdxxbt,23)%><%if jyrcwdxxyd="0" then%>(未阅读)<%else%><%if jyrcwdxxxqyhf="1" then%>(有新的回复)<%end if%><%end if%>
• 内容：<%if MemberTypecom=0 then%><%=jyrcw.jyrcwdianhua(jyrcw.jyrcwdianhua(jyrcw.jyrcwwangzhi(jyrcw.jyrcwshouji(left(jyrcw.nohtm(jyrcwdxxnr),27)))))%><%else%><%=left(jyrcw.nohtm(jyrcwdxxnr),27)%><%end if%>……

• 回复   删除

<% i = i + 1 Rs.MoveNext If i >= Rs.PageSize Then Exit Do Loop %>

<%Jyrcw.Page_Cnnn CurrentPage , Rs.PageCount , Rs.RecordCount , FileName %>  转到 页

<% End If Rs.Close Set Rs=nothing %>