index2.asp

来自「纪念伟大领袖的专题网站」· ASP 代码 · 共 750 行 · 第 1/2 页

            <td valign="top"> </td>
          </tr>
          
          <%if showuser=1 then%>
          <tr > 
            <td height="34" background="images/left-mini.gif">&nbsp;·会员排行</td>
			<p align="center"></td>
          </tr>
          <tr > 
            <td valign="middle" background="images/left.gif"  > <p align="center"><br>
                <!--#include file=TopUser.asp -->
            </td>
            <%end if%>
          </tr>

        
              <tr> <%if showvote="1" then%>
                <td height="34" background="images/left-mini.gif">&nbsp;·本站投票</td>
				<div align="center" class="style1"></div></td>
              <%
		set rs=conn.execute("SELECT * FROM " & db_Vote_Table & " where IsChecked=1") 
		if rs.eof then
		%>
		<tr align="center">
          <TD height="30" valign="bottom">尚无任何投票</TD>
        </tr>
                <%else%>
              <TR> 
                <TD width=100% align="center"><b><br>
                </b><%=rs("Title")%></TD>
                    </TR>
                    <FORM action="Vote.asp" target="newwindow" method=post name=research>
                      <TR> 
                        <TD vAlign=top width="100%"> 
                          <%
for i=1 to 8
	if rs("Select"&i)<>"" then
%>
                          <INPUT style="border: 0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>> 
                          <%=i%>.<%=rs("Select"&i)%><BR> 
                          <%	end if
next
%>
                        </TD>
                      </TR>
                      <TR> 
                        <TD width="100%" height=30 align=center> <INPUT style="cursor:hand" type=submit value="投它一票" id=submit1 name=submit1> 
                          <INPUT onclick="javascript:vote()" type="button" value="查看结果" id=button1 name=button1 style="cursor:hand"> 
                        </TD>
                      </TR>
                    </FORM>
<%end if%>
<%end if%>
      </table>
</td>
    <td width="10" rowspan="2" background="images/left-s.gif"></td>
    <td width="590" align="center" valign="top">      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="450" valign="top" bgcolor="#FFFFFF"> 
            <!--#include file=DaoDu1.asp -->
          </td>
          <td width="140" align="right" valign="top" background="images/right.gif" bgcolor="#ECECEC">
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
          <td width="100%" height="20" valign="middle" background="images/fast-2.gif"> 
            <p align="center"></td>
        </tr>
			  <%
set rsb=server.CreateObject("ADODB.RecordSet") 
rsb.Source="select * from "& db_Board_Table &" where inuse=1"
rsb.Open rsb.Source,conn,1,1
if not rsb.EOF then
%>
        
        <tr> 
          <td height="100" align=center> <br> 
            <table width="90%" height="150" border="0" cellpadding="0" cellspacing="0">
		<tr> 
                <td align="center"> 
		
		<%=CutStr(htmlencode4(rsb("title")),20)%>

		<script language=JavaScript>marquee1();</script> <%=CheckStr(rsb("content"))%> 
		<script language=JavaScript>marquee2();</script> <%=rsb("dateandtime")%><br> 
		<a href="Board.asp" target="_blank" class=class>以前公告</a></td>
		</tr>
	</table>
	</td>
        </tr>
        <%else Response.Write "<tr><td align=center><br>暂  无</td></tr>"
		end if
     rsb.close
      set rsb=nothing%>
          </table>
          <br>
</td>
        </tr>
        <tr> 
          <td colspan="2" height="25" bgcolor="#CC975B" ><font class="m_tittle">&nbsp;&nbsp;<b>最新图文</b></font></td>
        </tr>
        <tr> 
          <td height="100" colspan="2" align="center" bgcolor="#FFFFFF"><br>
<!--#include file="NewsTopPhoto2.asp"-->
					</td>
</tr>
<tr valign="top">
	<td background="images/t1.gif" height="8" colspan="2">&nbsp;</td>
</tr>
<tr valign="top" bgcolor="#FFFFFF"> 
	<td colspan="2">
<%
for i=1 to RecordCount
typeID=Arraytyid(i)
typeName=ArraytyName(i)
%>
	<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber6">
		<tbody>
			<tr> 
				<td width="49%" valign="top" bgcolor="#FFFFFF">
					<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber12">
						<tbody>
							<tr valign="middle"> 
								<td bgcolor="#CC975B" height="25" colspan="2"><font class="m_tittle"><li><%=typeName%></font></td>
							</tr>
							<tr> 
	<td width="90%" valign="top" bgcolor="#ECECEC">
		<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber11">
	<% dim rs3
	set rs3=server.CreateObject("ADODB.RecordSet")
	if uselevel=1 then
		if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
			rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by istop desc, newsid DESC"
		end if
		if Request.cookies(Forcast_SN)("key")="" then
			rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by istop desc, newsid DESC"
		end if
		if Request.cookies(Forcast_SN)("key")="selfreg" then
			if Request.cookies(Forcast_SN)("reglevel")=3 then
				rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by istop desc, newsid DESC"
			end if
			if Request.cookies(Forcast_SN)("reglevel")=2 then
				rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by istop desc, newsid DESC"
			end if
			if Request.cookies(Forcast_SN)("reglevel")=1 then
				rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by istop desc, newsid DESC"
			end if
		end if
	else
		rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
	end if
	rs3.Open rs3.Source,conn,1,1
	while not rs3.EOF
		newsurl="ReadNews.asp?NewsID=" & rs3("NewsID")
		newswwwurl=rs3("titleface")
		if showyear=1 then
			datetime="<font class=middle>(" & year(rs3("UpdateTime"))  &"年"& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
		else
			datetime="<font class=middle>("& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
		end if
		if rs3("picnews")=1 then
			img=" <font color=red>[图]</font>"
		else
			img=""
		end if

		%>
                              <tbody>
                                <tr> 
                                  <td> <table width="100%" border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
                                      <tbody>
                                        <tr> 
                                          <td>·<%=img%>
                                          <a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=rs3("title")%>" target="_blank">
										  <font color="<%=rs3("titlecolor")%>">
										  <%=CutStr(htmlencode4(rs3("title")),30)%>
										  </font>
										  </a>
						  <!--标题后评论提示-->

						  <% if rs3("titlesize")>=1 then %>
						  <A class=middle HREF="<%=path%>Review.asp?NewsID=<%=rs3("NewsID")%>" target="_blank" ><font color=red>[评]</font> </A></A>
						  <%end if %>

						  <!--标题后评论提示-->

											<%if rs3("istop")="1" then%>  
											<font color=red>[固]</font> 
											<%end if%> 
											
										  </td>
                                        </tr>
                                      </tbody>
                                    </table></td>
                                </tr>
                                <%rs3.MoveNext
wend
%>
                              </tbody>
                            </table> </td>
                        </tr>
                        <tr> 
                          <td width="10%" align="right" bgcolor="#CCCCCC"><a class="class" href="Type.asp?typeid=<%=typeid%>">more...</a></td>
                          
                        </tr>
                      </tbody>
                  </table></td>
                  <%i=i+1
              typeID=Arraytyid(i)
              typeName=ArraytyName(i)
              if i<=RecordCount then
              %>
                  <td width="2%" valign="top" background="images/t.gif"></td>
                  <td width="49%" valign="top" bgcolor="#FFFFFF"> <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber13">
                      <tbody>
                        <tr > 
                          <td bgcolor="#CC975B" height="25" colspan="2"><font class="m_tittle"><li><%=typeName%></font></td>
                        </tr>
                          <td width="90%" valign="top" bgcolor="#ECECEC"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber14">
                              <%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by istop desc, newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by istop desc, newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="selfreg" then
	if Request.cookies(Forcast_SN)("reglevel")=3 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by istop desc,newsid DESC"
	end if
	if Request.cookies(Forcast_SN)("reglevel")=2 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by istop desc,newsid DESC"
	end if
	if Request.cookies(Forcast_SN)("reglevel")=1 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by istop desc,newsid DESC"
	end if
end if
else
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF
if showyear=1 then
newsurl="ReadNews.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
datetime="<font class=middle>(" & year(rs3("UpdateTime"))  &"年"& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
else
newsurl="ReadNews.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
datetime="<font class=middle>("& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
end if
if rs3("picnews")=1 then
img=" <font color=red>[图]</font>"
else
img=""
end if
%>
                              <tbody>
                                <tr> 
                                  <td><table width="100%" border="0" cellpadding="2" cellspacing="0">
                                      <tbody>
                                        <tr> 
                                          <td>·<%=img%>
                                          <a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=rs3("title")%>" target="_blank">
										  <font color="<%=rs3("titlecolor")%>"> 
                                          <%=CutStr(htmlencode4(rs3("title")),30)%>
                                          </font>
										  </a>

<!--标题后评论提示-->
<% if rs3("titlesize")>=1 then %>
<A class=middle HREF="<%=path%>review.asp?NewsID=<%=rs3("NewsID")%>" target="_blank" ><font color=red>[评]</font> </A>
<%end if %>

<!--标题后评论提示-->
<%if rs3("istop")="1" then%>  
<font color=red>[固]</font> 
<%end if%> 
</td>
                                        </tr>
                                      </tbody>
                                    </table></td>
                                </tr>
                                <%rs3.MoveNext
wend
%>
                              </tbody>
                            </table></td>
                        </tr>
                        <tr> 
                          <td width="10%" align="right" bgcolor="#CCCCCC"><a class="class" href="Type.asp?typeid=<%=typeid%>">more...</a></td>
                          
                        </tr>

                  </table></td>
                  <%end if%>
                </tr>
              </tbody>
            </table>
          <%
next
rs3.close
set rs3=nothing
%> </td>
        </tr>
      </table></td>
  </tr>
</table>
  <table width="760" border="0"  align="center" cellspacing="0" cellpadding="0">
    <tr>
      <td width="160" valign="top" background="images/left.gif"></td>
      <td width="10" background="images/left-s.gif"></td>
      <td width="590" valign="top" bgcolor="#FFFFFF"></td>
    </tr>
    <tr>
      <td background="images/db.gif" height="30" colspan="3" valign="top">&nbsp;</td>
    </tr>
  </table>
  <table width="760" height="31" align="center" border="0" cellpadding="0" cellspacing="0">
    <tr>
<%if showlinkmap=1 then%><td colspan="2" align="center" height="31">
	<%if linkshownum >8 then
		Response.Write "<script language=JavaScript>marquee_logo_news();</script><P align=left>"& vbcrlf
	end if
	set rs10=server.CreateObject("ADODB.RecordSet") 
	rs10.Source="select top "& linkshownum &" * from "& db_Link_Table &" where linktype=2 and pass=1 order by ID DESC "
	rs10.Open rs10.Source,conn,1,1
	for i=1 to linkshownum
		if not rs10.EOF then%>
<a href="<%=rs10("weburl")%>" target="_blank" title="<%=rs10("webname")%>&#13;&#10;简介：<%=rs10("content")%>&#13;&#10;站长：<%=rs10("webmaster")%>&#13;&#10;申请时间：<%=rs10("dateandtime")%>"><img src="<%=rs10("logo")%>" width="88" height="31" border="0" align=left></a>
		<%rs10.MoveNext
		else%>
<a href="#" onclick="javascript:linkreg()"><img src="images/logo.gif" width=88 height=31 border=0 align=left></a>
		<%end if
	Next%>
	</td>
	<%
	rs10.close
	set rs10=nothing
end if%>
	</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" >
  <tr>
<%if showlink=1 then
set rs10=server.CreateObject("ADODB.RecordSet") 
rs10.Source="select top "& linkshownum &" * from "& db_Link_Table &" where linktype=0 and pass=1 order by ID DESC "
rs10.Open rs10.Source,conn,1,1
for i=1 to 6
	if not rs10.EOF then
	%>
<td height=31 align="center"><a class="middle" href="<%=rs10("weburl")%>" target="_blank" title="<%=rs10("content")%>
站长：<%=rs10("webmaster")%>
申请时间：<%=rs10("dateandtime")%>"><%=rs10("webname")%></a></td>
<%
rs10.MoveNext
else
%>
      <td height=31 align="center"><a class="middle" href="#" onclick="javascript:linkreg()">您的位置</a></td>
      <%end if
	Next
rs10.close
set rs10=nothing
%>
      <td align="center"> <input type=button style="cursor:hand" name=link value="申请" onclick="javascript:linkreg()"> 
        <input type=button style="cursor:hand" name=link value="更多" onclick="javascript:morelink()"> 
      </td>
    </tr><%end if%>
  </table>
<%else
Response.Write "<table width=760 align=center border=0 height=50><tr><td align=center>暂 无 文 章 类 别，请 <a href=login.asp>登 陆</a> 后 添 加！</td></tr></table>"
end if%>
<!--#include file=Bottom.asp -->