📄 default.asp
字号:
<%@ Language=VBScript%>
<!--#include file=include/conn.asp -->
<!--#include file=include/function.asp -->
<!--#include file=include/config.asp -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=redcaff%></title>
<LINK href=news.css rel=stylesheet>
<script language=JavaScript>
<!--
//
var version = "other"
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (browserName == "Netscape" && browserVer >= 3) version = "n3";
else if (browserName == "Netscape" && browserVer < 3) version = "n2";
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";
function marquee1()
{
if (version == "e4")
{
document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 100px; HEIGHT:110px; TEXT-ALIGN: left; TOP: 0px' id='news' scrollamount='1' scrolldelay='10' behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
}
}
function marquee2()
{
if (version == "e4")
{
document.write("</marquee>")
}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<script language="JavaScript1.2">
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=20
}
</script>
</head>
<body topmargin="0" marginheight="0">
<!--#include file=include/top.asp -->
<TABLE cellPadding=0 cellSpacing=0 width="750" bgcolor=<%=border%> align="center">
<tr bgcolor=ffffff>
<td width="20%" bgcolor="<%=border%>">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#FFFFFF" height="22" width="5%">
<div align="center"><a href="" class=class>首页</a></div>
</td>
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass order by BigClassID"
rs.Open rs.Source,conn,1,1
i=1
Dim ArrayBigClassID(10000),ArrayBigClassName(10000),ArrayBigClassView(10000)
if not rs.EOF then
rseof=1
end if
while not rs.EOF
RecordCount=rs.RecordCount
BigClassView=rs("BigClassView")
BigClassID=rs("BigClassID")
BigClassName=trim(rs("BigClassName"))
BigClasszs=rs("BigClasszs")
TdString="<td width=" & 80/RecordCount & "% bgcolor=ffffff align=center height=22><a title='" & BigClasszs & "' href='BigClass.asp?BigClassID=" & BigClassID & "&BigClassName="& BigClassName &" ' class=class>" & BigClassName & "</a></td>"
Response.Write TdString
ArrayBigClassView(i)=BigClassView
ArrayBigClassID(i)=BigClassID
ArrayBigClassName(i)=BigClassName
i=i+1
rs.MoveNext
wend
rs.close
%></tr>
</table>
</td>
</tr>
</table>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr valign="top">
<td bgcolor="<%=border%>" width="1"></td>
<td width="748" bgcolor="<%=T_M_BG%>"> </td>
<td bgcolor="<%=border%>" width="1"></td>
</tr>
<tr valign="top">
<td height="1" width="1" bgcolor="<%=border%>"></td>
<td height="1" width="748" bgcolor="<%=border%>"></td>
<td height="1" width="1" bgcolor="<%=border%>"></td>
</tr>
</table>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="<%=border%>" width="1"></td>
<td bgcolor="<%=l_bg%>" width="160" align="center" valign="top">
<table width="100%" border=0 cellspacing="1" bgcolor="<%=l_main%>" cellpadding="0">
<tr>
<td width="100%" bgcolor="<%=l_top%>" height="18" >
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="<%=l_main%>">
<tr>
<td width="100%" bgcolor="<%=r_top%>" height="18" >
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="<%=r_main%>">
<tr>
<td bgcolor="<%=r_top%>" align="center"><font class=r_title>本栏相关内容</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="<%=r_bg%>" align="center">
<br>
</td>
</tr>
<tr>
<td width="100%" bgcolor="<%=r_top%>" height="18" >
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="<%=r_main%>">
<tr>
<td bgcolor="<%=r_top%>" align="center"><font class=r_title>本栏数据</font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align=middle height=28 bgcolor="<%=l_main%>">
<div align="left">
<table width="84%" border="0" align="right">
<tr>
<td>
<%
function gettipnum()
dim tmprs
tmprs=conn.execute("Select Count(NewsID) from News")
gettipnum=tmprs(0)
set tmprs=nothing
if isnull(gettipnum) then gettipnum=0
end function
function todays()
dim tmprs
tmprs=conn.execute("Select count(NewsID) from News Where year(updatetime)=year(date()) and month(updatetime)=month(date()) and day(updatetime)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
%>
□- 今日信息：<%=todays()%><br>
□- 信息总数：<%=gettipnum()%><br>
<!--#include file=include/cnt.asp -->
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<table border="0" cellspacing="1" cellpadding="0" width="100%" align="center" bgcolor="<%=l_main%>" >
<tr>
<td width="100%" bgcolor="<%=l_top%>" height="18" >
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="<%=l_main%>">
<tr>
<td bgcolor="<%=l_top%>" align="center"><font class=l_title>信息专题</font></td>
</tr>
</table>
</td>
</tr>
<%
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
%>
<tr><td width=100% height=18 bgcolor="<%=l_main%>"> - <a <%if zs2="1" then%><%if rs2("Specialzs")<>"" then%>title="<%=rs2("Specialzs")%>"<%end if%><%end if%> class=lift href='Special_News.asp?SpecialID=<%=rs2("Specialid")%>&SpecialName=<%=rs2("Specialname")%>'><%=trim(rs2("Specialname"))%></a></td></tr>
<%
rs2.MoveNext
wend
%>
<tr>
<td valign="middle" height="22" bgcolor="<%=l_main%>">
<div align="right"><a class=class href=special.asp>更多专题...</a></div>
</td>
</tr>
<%
else
Response.Write "<tr><td width=100% align=center height=18 bgcolor="& l_main &">暂无专题</td></tr>"
end if
rs2.Close
set rs2=nothing
%>
</table>
<table border="0" width="100%" align=center cellspacing="1" cellpadding="0" bgcolor="<%=l_main%>">
<tr>
<td width="100%" bgcolor="<%=l_top%>" height="18" >
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="<%=l_main%>">
<tr>
<td bgcolor="<%=l_top%>" align="center"><font class=l_title>资料搜索</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=l_main%> align=center height="40" valign="middle">
<!--#include file=search.asp-->
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -