<% Set UserDB=Application("UserDB") set SystemDB=Application("SystemDB") %> <%'#####################完成表头#########################'%> <%'1. ############################################%>

<%'2. ##################################################################%> /images/hline.gif width=771> 用户服务 首次订阅请填写如下信息: 　 UserID: 用户全名： E_MAIL： 输入密码： 订阅格式： TXT HTML > 请 选 择 版 面:(选择报纸等于选择此报所有版面) <% For each Paper in Application("Papers") if jb="0" then jb=mid(paper,3) else jb=jb & mid (paper,3) End If Next sql="select * from PageInfTable " '版面 jbmid=mid(jb,1,1) sql=sql & " Where PageId like '" & jbmid & "%' " jbii=2 do while jbii<= len(jb) jbmid=mid(jb,jbii,1) sql=sql & " OR PageId like '" & jbmid & "%' " jbii=jbii+1 loop sql=sql & " Order by PageId " set Rs=SystemDB.Execute(Sql) ' Rs.Open "select count(*) From sysdevices" ' xx = Rs.Fields.item(0).Value - 1 ' response.write ""&xx&"" ' response.end xx=0 do while not rs.eof xx=xx+1 rs.movenext loop Rs.movefirst '''############################################################################# Response.Write " " curpapernum=0 ii=0 num=1 do while num<= xx*0.5 PageId=Rs("PageId") pagename=rs("Reserved2") if left(pageid,1)<>curpapernum then ii=ii+1 curpapernum=left(pageid,1) papername=application("bz"&curpapernum&"")(0) Response.Write" " Response.Write" " Response.Write "" Response.Write "" else Response.write "" num=num+1 RS.MoveNext PageId=Rs("PageId") pagename=rs("reserved2") if left(pageid,1)=curpapernum AND num<=xx*0.5 then response.write "" num=num+1 RS.MoveNext end if end if loop '########################################################################################## if (num - xx*0.5)< 2 then%> "&ii&".<<"&papername&">> "&PageName&" "&PageName&" /image/Line.jpg width=1 height=100% > <%Response.Write" " Response.Write" " ' Response.Write "" end if do while not rs.eof PageId=Rs("PageId") pagename=rs("Reserved2") if left(pageid,1)<>curpapernum then ii=ii+1 curpapernum=left(pageid,1) papername=application("bz"& curpapernum & "")(0) 'Response.Write" " 'Response.Write" " Response.Write "" Response.Write "" else Response.write "" num=num+1 RS.MoveNext if not rs.eof then PageId=Rs("PageId") pagename=rs("reserved2") end if if left(pageid,1)=curpapernum and not rs.eof then response.write "" num=num+1 RS.MoveNext end if end if loop %> "&ii&".<<"&papername&">> "&PageName&" "&PageName&" /image/hline.gif width=100%> 返回主页