📄 index.asp
字号:
<tr>
<td height="17"><img src="Images/WmCms_33_01.gif" width="237" height="29" border="0" usemap="#Map8" /></td>
</tr>
<tr>
<td height="211" align="center" background="images/WmCms_51.gif">
<!------插入FLV播放开始------------------->
<!--#include file="flvplay.asp"-->
<!-------插入FLV播放结束------------------------------>
</td>
</tr>
<tr>
<td height="4" align="center" valign="top"><img src="Images/WmCms_54.gif" width="237" height="4" /></td>
</tr>
</table>
<table width="237" height="244" border="0" cellpadding="0" cellspacing="0" id="Layer9" style="visibility:hidden">
<tr>
<td height="17"><img src="Images/WmCms_33_02.gif" width="237" height="29" border="0" usemap="#Map9" /></td>
</tr>
<tr>
<td height="211" align="center" background="images/WmCms_51.gif">
<!------插入天气开始------------------->
<table width="230" height="210" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/wmcms_green.jpg" align="center"><script type="text/javascript">
<!--
bw_style="MiniWeather";
bw_area="China";
bw_city="Beijing";
bw_color="Blue";
bw_lang="Chinese";
bw_sign="关注天气变化";
//-->
</script>
<script type="text/javascript" src="http://www.blogweather.net/js/showbw.js">
</script>
</td>
</tr>
</table>
<!-------插入天气结束------------------------------>
</td>
</tr>
<tr>
<td height="4" align="center" valign="top"><img src="Images/WmCms_54.gif" width="237" height="4" /></td>
</tr>
</table>
</td>
<td width="335" rowspan="2" align="center" valign="top"><table width="335" border="0" align="right" cellpadding="0" cellspacing="0" >
<tr>
<td height="29" colspan="2" align="center"><table width="335" height="29" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="109"><img src="Images/WmCms_35.gif" width="109" height="29" /></td>
<td width="220" background="Images/WmCms_36.gif"></td>
<td width="6" align="right"><img src="Images/WmCms_38.gif" width="6" height="29" /></td>
</tr>
</table></td>
</tr>
<tr>
<td height="40" colspan="2" align="center"><table width="99%" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr>
<td width="6%" height="36" bgcolor="#FFF4D9"><img src="Images/toutiao.gif" width="19" height="40" /></td>
<td width="99%" background="images/WmCms_rollup.gif">
<!--#include file="WmCms_RollUp.asp"-->
</td>
</tr>
</table>
</td>
</tr><td height="170" width="330" style="border-left: 1px solid #cccccc ; border-top: 1px solid #cccccc ; border-bottom: 1px solid #cccccc ; border-right: 1px solid #cccccc "><br><% set rs9=server.CreateObject("ADODB.RecordSet")
rs9.Source="select top 8 * from "& db_News_Table &" where goodnews=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="Article.asp?NewsId=<%=rs9("newsid")%>" title="<%=htmlencode4(title)%>"><%=CutStr(htmlencode4(title),46)%></a>
<!--评>
<% if rs9("titlesize")>=1 then %>
<A class=middle HREF="<%=path%>Review.asp?NewsID=<%=rs9("NewsID")%>" target="_blank" > <font color="bbbbbb">[</font><font color="#cd0000">评</font><font color="bbbbbb">]</font></A>
<%end if %>
<!评-->
<div style="border-top:1px dashed #cccccc;height: 1px;overflow:hidden"></div>
<%rs9.movenext
loop
rs9.close
set rs9=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<map name="Map7" id="Map7">
<area onmouseover=javascript:ShowPic(Layer7); shape="rect" coords="28,4,134,32">
<area onmouseover=javascript:ShowPic(Layer8); shape="rect" coords="134,3,185,29">
<area onmouseover=javascript:ShowPic(Layer9); shape="rect" coords="185,3,236,27">
</map>
<map name="Map8" id="Map8">
<area onmouseover=javascript:ShowPic(Layer7);shape="rect" coords="21,1,61,28">
<area onmouseover=javascript:ShowPic(Layer8);shape="rect" coords="61,-1,174,31">
<area onmouseover=javascript:ShowPic(Layer9); shape="rect" coords="173,2,221,27">
</map>
<map name="Map9" id="Map9">
<area onmouseover=javascript:ShowPic(Layer7);shape="rect" coords="19,1,62,28" href="#" />
<area onmouseover=javascript:ShowPic(Layer8);shape="rect" coords="60,1,175,29" href="#" />
<area onmouseover=javascript:ShowPic(Layer9);shape="rect" coords="175,1,221,28" href="#" />
</map>
<SCRIPT>
document.all.Layer8.style.display="none";
document.all.Layer9.style.display="none";
document.all.Layer8.style.visibility="hidden";
document.all.Layer9.style.visibility="hidden";
function ShowPic(taobj) {
document.all.Layer7.style.display="none";
document.all.Layer8.style.display="none";
document.all.Layer9.style.display="none";
taobj.style.display="";
taobj.style.visibility="visible";
}
</SCRIPT>
</td>
<td width="426" align="center" valign="top"><table width="426" height="244" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="8" height="29"><img src="Images/WmCms_40_01.gif" width="8" height="29" /></td>
<td width="155" background="Images/WmCms_40_03.gif" class="white_title">专题报道</td>
<td width="40" align="right" background="Images/WmCms_40_03.gif" class="white_title">
<a href="Special.asp" target="_blank" title="更多"><img src="Images/dot_1.gif" width="13" height="13" border="0" /></a></td>
<td width="6"><img src="Images/WmCms_40_05.gif" width="6" height="29" /></td>
<td width="7" rowspan="2"> </td>
<td width="8" height="29" background="Images/WmCms_40_03.gif"><img src="Images/WmCms_40_01.gif" width="8" height="29" /></td>
<td width="157" background="Images/WmCms_40_03.gif" class="white_title">公告公示</td>
<td width="39" align="right" background="Images/WmCms_40_03.gif" class="white_title">
<a href="Board.asp" target="_blank" title="更多"><img src="Images/dot_1.gif" width="13" height="13" border="0" /></a></td>
<td width="6"><img src="Images/WmCms_40_05.gif" width="6" height="29" /></td>
</tr>
<tr>
<td height="200" colspan="4" align="center" valign="top" background="Images/WmCms_INDEX6.gif">
<table width="95%" border="0" align="center" cellpadding="0">
<!-----------专题开始--------------------->
<%if showspecial="1" then%>
<tr>
<td height="50" >
<%if showspecial=1 then%>
<%set rs2=server.CreateObject("ADODB.RecordSet") '专题
rs2.Source="select Top " & top_sp & " * from "& db_Special_Table &" order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1
if not rs2.EOF then
while not rs2.EOF
TrString="<img src=""images/dian.gif"" border=""0"" height=""20""><a class=class href='Special_News.asp?SpecialID=" & rs2("SpecialID") &"'>" & trim(CutStr(htmlencode4(rs2("SpecialName")),22)) & "</a><br><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>"
Response.Write TrString
rs2.MoveNext
wend
%>
<%
else
Response.Write "<tr><td width=100% align=center height=40>暂无专题</td></tr>"
end if
rs2.Close
set rs2=nothing
%>
</td>
</tr><%end if%><%end if%>
<!------------专题结束------------------->
</table>
</td>
<td colspan="4" align="center" valign="middle" background="Images/WmCms_INDEX6.gif">
<!---公告开始---------通过BOARDTYPE字段值(字符型)来判断公告显示的样式,是显示选中的一条还是所有------------------------>
<%if boardtype=1 then%>
<table width="98%" border="0" cellpadding="0" cellspacing="0">
<%
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="118" align=center> <br>
<table width="90%" height="60" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<%=CutStr(htmlencode4(rsb("title")),20)%><br><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>
<script language=JavaScript>marquee8();</script> <%=CheckStr(rsb("content"))%><br><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>
<script language=JavaScript>marquee2();</script> <%=rsb("dateandtime")%><br><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>
<a href="Board.asp" target="_blank" class=class>以前公告</a><br><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div></td>
</tr>
</table>
</td>
</tr>
<%else Response.Write "<tr><td align=center><br>暂 无</td></tr>"
end if
rsb.close
set rsb=nothing%>
</table>
<br>
<%else%>
<DIV id=demoa style="OVERFLOW: hidden; WIDTH: 190px; HEIGHT: 170px">
<DIV id=demoa1>
<!------------------->
<table width="98%" border="0" cellpadding="0" cellspacing="0">
<tr><td>
<%
set rsb=server.CreateObject("ADODB.RecordSet")
rsb.Source="select * from "& db_Board_Table &"order by ID DESC "
rsb.Open rsb.Source,conn,1,1
do while not rsb.EOF
titleboard=trim(rsb("title"))
%>
<img src="images/dian.gif" border="0" height="20"><A HREF="Board_news.asp?ID=<%=rsb("ID")%>" class=class target="_blank"><%=CutStr(htmlencode4(rsb("title")),24)%></a><br><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>
<%
rsb.movenext
loop
rsb.close
set rsb=nothing
%>
</td></tr>
</table>
<!---------------------->
</div>
<DIV id=demoa2></DIV>
</DIV>
<SCRIPT>
var speed2=60
demoa2.innerHTML=demoa1.innerHTML
function Marquee2(){
if(demoa2.offsetTop-demoa.scrollTop<=0)
demoa.scrollTop-=demoa1.offsetHeight
else{
demoa.scrollTop++
}
}
var MyMar2=setInterval(Marquee2,speed2)
demoa.onmouseover=function() {clearInterval(MyMar2)}
demoa.onmouseout=function() {MyMar2=setInterval(Marquee2,speed2)}
</script>
<br>
<%end if%>
<!----公告结束--------------------------------->
</td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -