📄 1.asp
字号:
<%end if%>
<%if rs3("goodnews")="1" then%>
<img src="images/g.gif" >
<%end if%>
<%if year(rs3("updatetime"))=year(date()) and month(rs3("updatetime"))=month(date()) and day(rs3("updatetime"))=day(date()) then%>
<img src="images/new.gif">
<%end if%>
</td>
</tr>
</table>
</div></td>
</tr>
<%rs3.MoveNext
wend
%>
<tr>
<td width=100% align=right height=18><a class=class href='type.asp?typeid=<%=typeid%>'><img src="images/more.gif" border="0" alt="更多<%=typeName%>"> </a></td>
</tr>
</table>
<%
next
rs3.close
set rs3=nothing
else
Response.Write "<table width=98% border=0 height=25><tr><td>暂无大类</td></tr></table>"
end if
%>
</td>
</tr>
<%if t_bg<>"0" then%>
<tr>
<td height="25" background="IMAGES/menu-zz.gif"> <img src=images/ico.gif align="baseline"> <font class=m_tittle>栏目导航</font></td>
</tr>
<tr>
<td background="IMAGES/menu-zd.gif"> <div align="center">
<table width="95%" border="0" cellpadding="3" cellspacing="0" id="AutoNumber10" style="border-collapse: collapse">
<tr>
<td height="46" valign=top>
<%
dim menuid1
dim menuname1
dim menucontent1
dim menuview1
set rs22=server.CreateObject("ADODB.RecordSet")
rs22.Source="select * from type where typeview=1 order by typeorder"
rs22.Open rs22.Source,conn,1,1
i=1
while not rs22.EOF
RecordCount=rs22.RecordCount
menuid1=rs22("typeid")
menuname1=rs22("typename")
menucontent1=rs22("typecontent")
menuview1=rs22("typeview")
%>
【<a class=middle target="_top" href='type.asp?typeID=<%=menuid1%> ' title=<%=menucontent1%> ><%=menuName1 %></a>】<br>
<%
typeid=rs22("typeid")
set rs21=conn.execute("SELECT * FROM bigclass where typeid="&typeid&" order by bigclassorder")
do while not rs21.eof
%>
<%if not Rs21.eof then%>
〖<a target="_top" class=middle href="bigclass.asp?typeid=<%=typeid%>&bigclassid=<%=Rs21("bigclassid")%>"><%=Rs21("bigclassname")%></a>〗
<%set nrs=conn.execute("SELECT * FROM smallclass where bigclassid="&cstr(rs21("bigclassid"))&" order by smallclassorder")%>
<%do while not nrs.eof%>
<%if not nRs.eof then%>
|<a target="_top" class=class href="SmallClass.asp?typeid=<%=typeid%>&BigClassID=<%=nrs("bigclassid")%>&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("smallclassname")%></a>
<%nrs.movenext
end if %>
<%if not nRs.eof then%>
|<a target="_top" class=class href="SmallClass.asp?typeid=<%=typeid%>&BigClassID=<%=nrs("bigclassid")%>&smallclassid=<%=nrs("smallclassid")%>"><%=nRs("smallclassname")%></a>
<%nRs.movenext
end if%>
<%loop
nRs.Close
set nRs=nothing
%>
<br>
<%rs21.movenext
end if
loop
rs21.close
%>
<%
i=i+1
rs22.MoveNext
wend
rs22.close
set rs22=nothing
%>
</td>
</tr>
</table>
</div></td>
</tr>
<%end if%>
<tr>
</tr>
</table>
<p> </p></td>
<td width="6" bgcolor="#FFFFFF"></td>
<td width="180" valign="top" background="IMAGES/menu-d.gif">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber4" height="118">
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from board where inuse=1"
rs.Open rs.Source,conn,1,1
if not rs.EOF then
%>
<tr>
<td height="2" valign="middle" bgcolor="#FFFFFF"><img src="IMAGES/kb.gif" width="9" height="3
"></td>
</tr>
<tr>
<td width="100%" height="25" valign="middle" background="IMAGES/menu-d-gg.gif">
<p align="center"><FONT color=#000000>本站公告</font></td>
</tr>
<tr>
<td width="100%" height="2" align=center background="IMAGES/menu-d.gif" bgcolor="#efefef">
<br> <table width="90%" height="60" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<%if len(rs("title"))>20 then%>
<%=left(rs("title"),20)%>...
<%else%>
<%=trim(rs("title"))%>
<%end if%>
<script language=JavaScript>marquee1();</script> <%=rs("content")%>
<script language=JavaScript>marquee2();</script> <%=rs("dateandtime")%><br>
<a href="board.asp" target="_blank" class=class>以前公告</a></td>
</tr>
</table>
<br> <br> </td>
</tr>
<%else
rs.close
set rs=nothing
end if%>
<tr>
<td width="100%" height="25" valign="middle" background="IMAGES/menu-d-pic.gif">
<p align="center"><FONT color=#000000>最新图文</font></td>
</tr>
<tr>
<td width="100%" height="22" background="IMAGES/menu-d.gif">
<%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
if Request.cookies("key")="" then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=3 and picname<>null order by NewsID DESC"
end if
if Request.cookies("reglevel")=2 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=2 and picname<>null order by NewsID DESC"
end if
if Request.cookies("reglevel")=1 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=1 and picname<>null order by NewsID DESC"
end if
end if
else
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
rs3.Open rs3.Source,conn,1,1
if not rs3.EOF then
//--------add this line 导读图片不重复
rs3.MoveNext
//--------------
while not rs3.EOF
fileExt=lcase(getFileExtName(rs3("picname")))
Content=rs3("Content")
content=replace(content,"[[","<")
content=replace(content,"]]",">")
%>
<table width="95%" border="0" cellspacing="0" cellpadding="3" align="center" style="TABLE-LAYOUT: fixed">
<tr>
<td align="center" style="WORD-WRAP: break-word"><a class=middle href="ReadNews.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=rs3("title")%>">
<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
<img width="95%" src="uploadfile/<%=rs3("picname")%>" border=0>
<%end if%>
<%if fileext="swf" then%>
<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="95%">
<param name=movie value="uploadfile/<%=rs3("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="uploadfile/<%=rs3("picname")%>" width="95%" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed></object>
<%end if%>
<br>
<br>
<%=rs3("title")%></a></td>
</tr>
</table>
<%
rs3.MoveNext
wend
else
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" style=""TABLE-LAYOUT: fixed""><tr><td width=100% align=center height=18 bgcolor="& r_main &">暂无</td></tr></table>"
end if
rs3.close
set rs3=nothing
%>
</td>
</tr>
<%if showvote="1" then%>
<tr>
<td height="22" background="IMAGES/menu-d.gif"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" background="IMAGES/menu-d-tp.gif"> <div align="center">本站投票</div></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="3" cellspacing="0" >
<tr>
<%
set rs=conn.execute("SELECT * FROM vote where IsChecked=1")
if rs.eof then
%>
<%else%>
<td width="100%" align="center"> <table border="0" width="90%" cellspacing="2" cellpadding="2">
<TR>
<TD width=100% align="center"><b><br>
</b><%=rs("Title")%></TD>
</TR>
<FORM action="admin/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%>
</table></td>
</tr>
</table>
<%end if%>
</td>
</tr>
<!--专题开始 -->
<%if showspecial="1" then%><tr>
<td height="25" background="IMAGES/menu-d-tp.gif"><div align="center">本站专题</div></td>
</tr>
<tr>
<td height="22" background="IMAGES/menu-d.gif"><BR>
<%if showspecial=1 then%>
<%set rs2=server.CreateObject("ADODB.RecordSet") '专题
rs2.Source="select Top " & top_sp & " * from Special order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1
if not rs2.EOF then
while not rs2.EOF
TrString=" · <a class=class href='Special_News.asp?SpecialID=" & rs2("SpecialID") &"'>" & trim(left(rs2("SpecialName"),8)) & "</a><br>"
Response.Write TrString
rs2.MoveNext
wend
%>
<a class=class href=special.asp>更多专题...</a>
<%
else
Response.Write "<tr><td width=100% align=center height=18 >暂无专题</td></tr>"
end if
rs2.Close
set rs2=nothing
%>
<%end if%>
</td>
</tr>
<%end if%>
<!--专题结束 -->
</table>
</td>
</tr>
<tr>
<td height="20" valign="top" bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bordercolor="#FFFFFF">
<td height="20" valign="middle" background="IMAGES/menu-d-t.gif"> </td>
</tr>
</table></td>
<td bgcolor="#FFFFFF"></td>
<td align="center" valign="top" bgcolor="#FFFFFF"><table width="100%%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" background="IMAGES/menu-d-zt.gif"> </td>
</tr>
</table></td>
<td bgcolor="#FFFFFF"></td>
<td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bordercolor="#FFFFFF">
<td height="20" valign="middle" background="IMAGES/menu-d-t.gif"> </td>
</tr>
</table></td>
</tr>
</table><%else
Response.Write "<table width=700 border=0 height=25><tr><td align=center>暂无文章类别，请<a href=admin/login.asp>登陆</a>后添加！</td></tr></table>"
end if%><!--#include file=include/bottom.asp -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -