📄 daodu2.asp
字号:
<!--#include file="function.asp"-->
<%
set rs=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
rs.Source="select top 1 * from "& db_News_Table &" where checkked=1 and goodnews=1 and picname is not null order by NewsId DESC"
end if
if Request.cookies(eChuang)("key")="" then
rs.Source="select top 1 * from "& db_News_Table &" where checkked=1 and goodnews=1 and picname is not null order by NewsId DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
if Request.cookies(eChuang)("reglevel")=3 then
rs.Source="select top 1 * from "& db_News_Table &" a1,type a2 where a1.typeid=a2.typeid and checkked=1 and goodnews=1 and typeview=1 and picname is not null order by NewsId DESC"
end if
if Request.cookies(eChuang)("reglevel")=2 then
rs.Source="select top 1 * from "& db_News_Table &" a1,type a2 where a1.typeid=a2.typeid and checkked=1 and goodnews=1 and typeview=1 and picname is not null order by NewsId DESC"
end if
if Request.cookies(eChuang)("reglevel")=1 then
rs.Source="select top 1 * from "& db_News_Table &" a1,type a2 where a1.typeid=a2.typeid and checkked=1 and goodnews=1 and typeview=1 and picname is not null order by NewsId DESC"
end if
end if
else
rs.Source="select top 1 * from "& db_News_Table &" a1,type a2 where a1.typeid=a2.typeid and checkked=1 and goodnews=1 and typeview=1 and picname is not null order by NewsId DESC"
end if
rs.Open rs.Source,conn,3,3
if rs.EOF then
Response.Write "<center>目前暂无推荐内容</center>"
else
title=rs("title")
fileExt=lcase(getFileExtName(rs("picname")))
%>
<table width="571" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="47" background="IMAGES/ecowo_11.gif"> </td>
</tr>
<tr>
<td height="173" background="IMAGES/ecowo_25.gif">
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="255"><%if fileext="" then%>
<TABLE cellSpacing=0 cellPadding=0 width=240 border=0>
<TBODY>
<TR>
<TD vAlign=top width=8><IMG height=7 src="images/index_t_center_1.gif" width=8></TD>
<TD width=248 bgColor=#c9d5ae></TD>
<TD vAlign=top width=7><IMG height=7 src="images/index_t_center_2.gif" width=7></TD>
</TR>
<TR>
<TD bgColor=#c9d5ae> </TD>
<TD>
<TABLE class=56 width="100%">
<TBODY>
<TR>
<TD width="200" height="180" align="right" valign="bottom" background="images/nophoto.jpg" class=newstop><strong>????</strong> <br> </TD>
</TR>
<TR>
<TD align=right></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD bgColor=#c9d5ae> </TD>
</TR>
<TR>
<TD><IMG height=8 src="images/index_t_center_4.gif" width=8></TD>
<TD width=248 bgColor=#c9d5ae></TD>
<TD><IMG height=8 src="images/index_t_center_3.gif" width=7></TD>
</TR>
</TBODY>
</TABLE>
<%else%>
<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
<TABLE cellSpacing=0 cellPadding=0 width=240 border=0>
<TR>
<TD vAlign=top width=8><IMG height=7 src="images/index_t_center_1.gif" width=8></TD>
<TD width=248 bgColor=#c9d5ae></TD>
<TD vAlign=top width=7><IMG height=7 src="images/index_t_center_2.gif" width=7></TD>
</TR>
<TR>
<TD bgColor=#c9d5ae></TD>
<TD><TABLE style="TABLE-LAYOUT: fixed" height=180 cellSpacing=0 cellPadding=0 width=100% border=0>
<TR>
<TD style="HEIGHT: 180px"> <div align="center"><a href='E_ReadNews.asp?newsid=<%=rs("newsid")%>' target=_blank title='<%=title%>'><img src='<%=FileUploadPath & rs("picname")%>' width=225 height="180" border=0></a> </div></TD>
</TR>
</TABLE></TD>
<TD bgColor=#c9d5ae></TD>
</TR>
<TR>
<TD><IMG height=8 src="images/index_t_center_4.gif" width=8></TD>
<TD width=248 bgColor=#c9d5ae></TD>
<TD><IMG height=8 src="images/index_t_center_3.gif" width=7></TD>
</TR>
</TABLE>
<%end if%>
<%end if%>
<%if fileext="swf" then%>
<TABLE cellSpacing=0 cellPadding=0 width=240 border=0>
<TBODY>
<TR>
<TD vAlign=top width=8><IMG height=7 src="images/index_t_center_1.gif" width=8></TD>
<TD width=248 bgColor=#c9d5ae></TD>
<TD vAlign=top width=7><IMG height=7 src="images/index_t_center_2.gif" width=7></TD>
</TR>
<TR>
<TD bgColor=#c9d5ae> </TD>
<TD>
<TABLE width="100%" height="180" class=56>
<TBODY>
<TR>
<TD width="248" height="180" class=newstop >
<CENTER>
<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="225" height="180">
<param name=movie value="<%=FileUploadPath & rs("picname")%>">
<param name=quality value=high>
<param name='Play' value='-1'>
<param name='Loop' value='0'>
<param name='Menu' value='-1'>
<param name="wmode" value="transparent">
<embed src="<%=FileUploadPath & rs("picname")%>" width="225" height="180" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
</object>
</CENTER></TD>
</TR>
<TR>
<TD align=right></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD bgColor=#c9d5ae> </TD>
</TR>
<TR>
<TD><IMG height=8 src="images/index_t_center_4.gif" width=8></TD>
<TD width=248 bgColor=#c9d5ae></TD>
<TD><IMG height=8 src="images/index_t_center_3.gif" width=7></TD>
</TR>
</TBODY>
</TABLE>
<%end if%></td>
<td width="295" valign="top"> <strong> <font size=+1 face="¿¬Ìå_GB2312" color="<%=rs("titlecolor")%>"> <a title="<%=htmlencode4(title)%>"><%=htmlencode4(CutStr(title,24))%> </a> </font> </strong> <br>
<br>
<a class=class target=_blank href="E_ReadNews.asp?NewsId=<%=rs("newsid")%>" title="<%=htmlencode4(title)%>"><%=CutStr(nohtml(rs("Content")),220)%> </a>
<table width=160 height="0" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="16" align="right"> <a class=class target=_blank href="E_ReadNews.asp?newsid=<%=rs("newsid")%>" title="<%=htmlencode4(title)%>"><font color="#FF0000">[详细信息]</font></a> </td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
<tr>
<td><img src="IMAGES/ecowo_29.gif" width="571" height="22"></td>
</tr>
</table>
<table width="571" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="37" background="IMAGES/ecowo_32.gif"> </td>
</tr>
<tr>
<td height="94" valign="top" background="IMAGES/ecowo_25.gif"><div align="center">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<% set rs9=server.CreateObject("ADODB.RecordSet")
rs9.Source="select top 6 * from "& db_News_Table &" where istop=1 order by newsid desc"
rs9.Open rs9.Source,conn,1,1
do while not rs9.EOF
title=trim(rs9("title"))%>
<img src="images/dot_blue.gif"> <a class=middle target="_blank" href="E_ReadNews.asp?NewsId=<%=rs9("newsid")%>" title="<%=htmlencode4(title)%>"> <font color=<%=rs9("titlecolor")%>>[<%=CutStr(htmlencode4(rs9("title")),10)%>]</font> </a> <a class=middle target="_blank" href="E_ReadNews.asp?NewsId=<%=rs9("newsid")%>" title="<%=htmlencode4(title)%>"><%=CutStr(nohtml(rs9("Content")),44)%></a>
<!--±êÌâºóÆÀÂÛÌáʾ-->
<% if rs9("titlesize")>=1 then %>
<A HREF="<%=path%>Review.asp?NewsID=<%=rs9("NewsID")%>" target="_blank" class=middle > <font color=red><b>评</b></font></A>
<%end if %>
<!--±êÌâºóÆÀÂÛÌáʾ-->
<br>
<%rs9.movenext
loop
rs9.close
set rs9=nothing%>
<BR>
</td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td><img src="IMAGES/ecowo_29.gif" width="571" height="22"></td>
</tr>
</table>
<%end if
rs.close
set rs=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -