index.asp

zheng fu wang zhan gong neng qi quan

		if Request.cookies(eChuang)("key")="selfreg" then
			if Request.cookies(eChuang)("reglevel")=3 then
				rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
			end if
			if Request.cookies(eChuang)("reglevel")=2 then
				rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
			end if
			if Request.cookies(eChuang)("reglevel")=1 then
				rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by 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="E_ReadNews.asp?NewsID=" & rs3("NewsID")
		newswwwurl=rs3("titleface")
		fileExt=lcase(getFileExtName(rs3("picname")))
		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
			if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
			img=" <img src='images/news_img.gif' border='0'>"
				else
			img="<img src='images/news_media.gif' border='0'>"
			end if
		else
			img=""
		end if

		'增加小类名称程序开始
	if rs3("bigclassID")<>"" then 
		B=rs3("bigclassID")
		set rs22=server.createobject("adodb.recordset")
		sql="SELECT bigclassID,E_BigClassName FROM "& db_BigClass_Table &" WHERE bigclassID="&B
		Set rs22=Conn.Execute(sql)
		A=rs22("E_BigClassName")
		rs22.close
		set rs22=Nothing
	else
		A="本栏"
	end if

		'增加小类名称程序结束
		%>
                                    <tr>
                                      <td height="25"> <img src="IMAGES/point.gif" width="10" height="7"> <%=img%> <a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank"> <font color="<%=rs3("titlecolor")%>"> <%=CutStr(htmlencode4(rs3("title")),26)%> </font> </a>
                                          <!--标题后评论提示-->
                                          <% if rs3("titlesize")>=1 then %>
                                          <A class=middle HREF="<%=path%>Review.asp?NewsID=<%=rs3("NewsID")%>" target="_blank" ><font color=red><b>评</b></font></A>
                                          <%end if %>
                                          <!--标题后评论提示-->
                                          <%'if showauthor="1" then%>
                                          <%'=rs3("Author")%>
                                          <%'end if%></td>
                                    </tr>
                            <%
								rs3.MoveNext
wend
%>
              </table></td>
              <%i=i+1
              typeID=Arraytyid(i)
              typeName=ArraytyName(i)
              if i<=RecordCount then
              %>
              <td width="50%" valign="top" bgcolor="#FFFFFF">
                <table border="0" cellpadding="0" cellspacing="0" width="265">
                    <tr>
                      <td background="IMAGES/title_bg.gif"  height="30" colspan="2"><span class="left_align white_title"><%=typeName%></span><span class="right_align"><a class="class" href="E_Type.asp?typeid=<%=typeid%>"><img src="images/more.gif" alt="更多<%=typeName%>" width="28" height="9" border="0" /></a></span></td>
                    </tr>
                          <%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
	if Request.cookies(eChuang)("reglevel")=3 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
	end if
	if Request.cookies(eChuang)("reglevel")=2 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
	end if
	if Request.cookies(eChuang)("reglevel")=1 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by 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="E_ReadNews.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
fileExt=lcase(getFileExtName(rs3("picname")))
if showyear=1 then
datetime="<font class=middle>(" & year(rs3("UpdateTime"))  &"年"& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
else
newsurl="E_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
			if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
			img=" <img src='images/news_img.gif' border='0'>"
			else
			img="<img src='images/news_media.gif' border='0'>"
			end if
			else
			img=""
		end if
%>
                          <%
		'增加小类名称程序开始
	if rs3("bigclassID")<>"" then 
		B=rs3("bigclassID")
		set rs22=server.createobject("adodb.recordset")
		sql="SELECT bigclassID,E_BigClassName FROM "& db_BigClass_Table &" WHERE bigclassID="&B
		Set rs22=Conn.Execute(sql)
		A=rs22("E_BigClassName")
		rs22.close
		set rs22=Nothing
	else
		A="本栏"
	end if

		'增加小类名称程序结束
%>
                                    <tr>
                                      <td height="25"><img src="IMAGES/point.gif" width="10" height="7"><%=img%> <a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank"> <font color="<%=rs3("titlecolor")%>"> <%=CutStr(htmlencode4(rs3("title")),26)%> </font> </a>
                                          <!--标题后评论提示-->
                                          <% if rs3("titlesize")>=1 then %>
                                          <A class=middle HREF="<%=path%>review.asp?NewsID=<%=rs3("NewsID")%>" target="_blank" ><font color=red><b>评</b></font></A>
                                          <%end if %>
                                          <!--标题后评论提示-->
                                          <%''if showauthor="1" then%>
                                          <%''=rs3("Author")%>
                                          <%''end if%> </td>
                                    </tr>
                            <%rs3.MoveNext
wend
%>
              </table></td>
              <%end if%>
            </tr>
        </table>
        <%
next
rs3.close
set rs3=nothing
%></td>
    <td width="210" align="right" bgcolor="#FEE8E8"><!--#include file="rightside.asp"--><!--#include file="daohang_v.asp"--></td>
  </tr></table>

	  <!--广告调用-->
<table width="760" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"></td>
  </tr>
  <tr><td><script language=javascript src=./zongg/ad.asp?i=13></script></td></tr>
</table>

	  <!--广告调用结束-->
<table width="760" align="center" border="0" cellpadding="0" cellspacing="0">
<tr><td height="5"></td></tr>
            <tr>
              <%if showlinkmap=1 then%>
              <td 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/nologo.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="780" border="0" 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=30 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=30 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=link1 value="申请" onClick="javascript:linkreg()">
                    <input type=button style="cursor:hand" name=link1 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%>
<%end if%>
<!--#include file=Bottom.asp -->
</body>
</HTML>