index.asp

程序为品牌程序,信誉、质量、服务有保证 主要功能有文章,留言,下载,论坛,博客,统计,调查 模块化的程序设计

                      <td><table width="100%" border="0" cellpadding="0" cellspacing="0" class="main_title_575">
                          <tr> 
                            <td width="80%"><IMG height=28 
                              src="index_files/ad_dh.gif" width=29 
                              align=absMiddle> 
                                                      <%
				arrClassID=rsRoot(0)
				response.write "<a href='" & rsRoot(3) & "?ClassID=" & rsRoot(0) & "' title='" & rsRoot(6) & "'>" & rsRoot(1) & "</a>"
				if rsRoot(5)>0 then
					response.write "："
					set trs=conn.execute("select top 3 C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,C.LinkUrl,C.Readme From caifuwClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & rsRoot(0) & " and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID")
					do while not trs.eof
						if trs(4)<>"" then
							response.write "&nbsp;&nbsp;<a href='" & trs(4) & "' title='" & trs(5) & "'>" & trs(1) & "</a>"
						else
							response.write "&nbsp;&nbsp;<a href='" & trs(3) & "?ClassID=" & trs(0) & "' title='" & trs(5) & "'>" & trs(1) & "</a>"
						end if
						trs.movenext
					loop
					set trs=conn.execute("select ClassID from caifuwClass where RootID=" & rsRoot(2) & " and Child=0 and LinkUrl='' and BrowsePurview>=" & UserLevel)
					do while not trs.eof
						arrClassID=arrClassID & "," & trs(0)
						trs.movenext
					loop
				end if
				%>

                            </td>
                            <td width="20%" class="title_maintxt"> <%response.write "<a href='" & rsRoot(3) & "?ClassID=" & rsRoot(0) & "'><font color='#999999'>more...</font></a>&nbsp;"%> </td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      <td><table width="100%" border="0" cellpadding="0" cellspacing="0" class="border">
                          <tr> 
                            <td height="100" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
                                <tr> 
                                  <TD style="BORDER-RIGHT: #d8d8d8 1px solid" vAlign=top 
                width="50%" background=index_files/ad_bg1.gif height=192>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%">
                    <TBODY>
                    <TR class=listbg>
                      <TD colspan="2"><%
sql="select top 8 A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,"
sql=sql & "A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint,A.DefaultPicUrl from caifuw A"
sql=sql & " inner join Layout L on A.LayoutID=L.LayoutID where A.Deleted=False and A.Passed=True and A.ClassID in (" & arrClassID & ")  order by A.OnTop,A.ArticleID desc"
rsArticle.open sql,conn,1,1
if rsArticle.bof and  rsArticle.eof then
	response.write "<li>没有任何文章</li>"
else
	call ArticleContent(20,True,True,False,1,False,False)
end if
rsArticle.close
				%></TD>
                      </TR>
                    </TBODY></TABLE></TD>
                                </tr>
                              </table></td>
                          </tr>
                        </table></td>
                    </tr>
                    
                  </table></td>
                <%
			iClassID=iClassID+1
			if iClassID mod 2=0 then
				response.write "</tr><tr><td colspan='3' align='center'>"
				if not rsClassAD.bof and not rsClassAD.eof then
					if rsClassAD("isflash")=true then
						ClassAD= "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0'"
						if rsClassAD("ImgWidth")>0 then ClassAD = ClassAD & " width='" & rsClassAD("ImgWidth") & "'"
						if rsClassAD("ImgHeight")>0 then ClassAD = ClassAD & " height='" & rsClassAD("ImgHeight") & "'"
						ClassAD = ClassAD & "><param name='movie' value='" & rsClassAD("ImgUrl") & "'><param name='quality' value='high'><embed src='" & rsClassAD("ImgUrl") & "' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'"
						if rsClassAD("ImgWidth")>0 then ClassAD = ClassAD & " width='" & rsClassAD("ImgWidth") & "'"
						if rsClassAD("ImgHeight")>0 then ClassAD = ClassAD & " height='" & rsClassAD("ImgHeight") & "'"
						ClassAD = ClassAD & "></embed></object>"
					else
						ClassAD ="<a href='" & rsClassAD("SiteUrl") & "' target='_blank' title='" & rsClassAD("SiteName") & "：" & rsClassAD("SiteUrl") & vbcrlf & rsClassAD("SiteIntro") & "'><img src='" & rsClassAD("ImgUrl") & "'"
						if rsClassAD("ImgWidth")>0 then ClassAD = ClassAD & " width='" & rsClassAD("ImgWidth") & "'"
						if rsClassAD("ImgHeight")>0 then ClassAD = ClassAD & " height='" & rsClassAD("ImgHeight") & "'"
						ClassAD = ClassAD & " border='0'></a>"
					end if
					response.write ClassAD
					rsClassAD.movenext
				end if
				response.write "</td><tr><td height='5'></td></tr><tr>"
			else
				response.write "<td width='5'></td>"
			end if
			rsRoot.movenext
		loop
	end if
	rsRoot.close
	set rsRoot=nothing
%>
              </tr>
            </table>
            <TABLE cellSpacing=0 cellPadding=0 width=* align=center border=0>
              <TBODY>
              <TR>
                <TD style="BORDER-TOP: #d8d8d8 1px solid" align=middle width=* 
                height=50></TD></TR></TBODY></TABLE></TD></TR><!--网页中部中栏文章栏目代码结束-->
        <TR>
          <TD class=main_shadow></TD></TR>
        <TR>
          <TD class=main_title_575><IMG height=28 
            src="index_files/ad_pdlmdh1.gif" width=174></TD></TR>
        <TR>
          <TD class=main_tdbg_575>
            <% call ShowClassNavigation() %>
			          </TD></TR>
        <TR>
          <TD class=main_shadow></TD></TR>
        <TR>
          <TD class=main_Search>
            <TABLE cellSpacing=0 cellPadding=2 width="100%" align=center 
            border=0>
              <TBODY>
              <TR>
                <TD align=middle width="19%"><IMG height=15 
                  src="index_files/checkarticle.gif" width=15 align=absMiddle> 
                  站内文章搜索</TD>
                <TD align=middle width="81%">
<% call ShowSearchForm("Article_Search.asp",2) %>
                </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD><!--网页中部中栏代码结束--><!--网页中部右间隔代码开始--><!--网页中部右间隔代码结束--></TR></TBODY></TABLE>
<TABLE class=center_tdbgall cellSpacing=0 cellPadding=0 width=760 align=center 
border=0>
  <TBODY>
  <TR>
    <TD class=main_shadow></TD></TR></TBODY></TABLE><!-- ********网页中部代码结束******** --><!-- ********网页底部代码开始******** -->
<TABLE class=Bottom_tdbgall style="WORD-BREAK: break-all" cellSpacing=0 
cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR align=middle>
    <TD class=Bottom_Adminlogo colSpan=2>&nbsp;</TD>
  </TR>
  <TR bgColor=#ff8900>
    <TD colSpan=2 height=7></TD></TR>
  <TR class=Bottom_Copyright>
    <TD width="20%" height=68><IMG 
      src="index_files/logo.gif" width="180" height="60"></TD>
    <TD align=middle width="80%"><% call Bottom() %></TD>
  </TR>
  <TR bgColor=#4f4f4f>
    <TD colSpan=2 height=4></TD></TR></TBODY></TABLE><!-- ********网页底部代码结束******** --><!-- ********弹出窗口代码******** -->
<SCRIPT language=javascript></SCRIPT>
</BODY></HTML>
<%                         
set rsArticle=nothing                         
set rsPic=nothing                         
call CloseConn()                         
%>