📄 top2.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%dim typeor
set rs = server.createobject("adodb.recordset")
if request("classid")<>"" then
classid=request("classid")
else
sql="select * from class"
rs.open sql,conn,1,1
if not rs.eof then
classid=rs("classid")
else
classid=0
end if
rs.close
end if
if classid<>"" then
sql="select * from class where classid="&classid
rs.open sql,conn,1,1
if not rs.eof then
classname=rs("class")
else
classname="欢迎光临"
end if
rs.close
end if
%>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<!--#include file="style.asp"-->
<title>黑山信息港FLASH欣赏－－－www.heishan.org</title>
</head><body topmargin="3" bgcolor="#EDEBE8" leftmargin="4">
<table border="0" align="center" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="770" id="AutoNumber1" height="118">
<tr align="center">
<td height="16" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber2">
<tr bgcolor="<%=Tabletitlecolor%>" align="center">
<td width="24%" height="18">
<font color=ffffff size=2><script language=JavaScript>
d = new Date();
switch (d.getDay()) {
case 0: strweek="日"; break;
case 1: strweek="一"; break;
case 2: strweek="二"; break;
case 3: strweek="三"; break;
case 4: strweek="四"; break;
case 5: strweek="五"; break;
case 6: strweek="六"; break;
}
document.write(d.getMonth()+1+"/"+d.getDate()+"/"+(0000+d.getYear())+ " 星期"+strweek);
</script></font></td>
<td width="76%" align="right" height="18"><font color="#FFFFFF">
黑山信息港，www.heishan.org ，黑山信息港音乐动画，永远拥有。 </font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="67">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="770" id="AutoNumber3">
<tr bgcolor="<%=Tablebodycolor%>">
<td align="center" width="181"><img src="images/title.gif"></td>
<td align="center" width="474">
<a target="_blank" href="http://www.heishan.org/bbs">
<img src="images/banner.gif" width="468" height="60" border="0"></a></td>
<td width="114" height="67" align="center">
<div font-lineheigt:15pt>
<script language=javascript>
document.write("<a href=\"http://sendto.163.com:88/recommend.php?ID=343955&referer="+parent.location+"&parentTitle="+document.title+"parentTitleEnd\" target=OpenWindow>★ 送给朋友 ★</a>");
</script><br>
<a class=chlnk href=""
onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.heishan.org/');"
style="CURSOR: hand" target=_parent>★<font size=2
> 设为首页 </font>★</a><br>
<a href="javascript:window.external.addfavorite('http://www.heishan.org','黑山信息港－－www.heishan.org')">★ 加入收藏 ★</a></div>
</td>
</tr>
<tr bgcolor="<%=Tablebodycolor%>">
<td align="center" width="770" colspan="3" bgcolor="#bbbbbb" height=3></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td bgcolor="bbbbbb" align=center height="20"><table border=0 cellspacing="0" cellpadding="0">
<tr>
<td height=20 align=center onMouseOut=this.style.backgroundColor='' onMouseOver=this.style.backgroundColor='#ffffff'>= <a href=index.asp>首页</a> =</td><td height=20 align=center onMouseOut=this.style.backgroundColor='' onMouseOver=this.style.backgroundColor='#FFFFFF'>= <a href=http://www.heishan.org/bbs target=_blank>青鹤论坛</a> =</td>
<%
sql="select * from class"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还没有任何栏目"
else
do while not rs.eof
response.write "<td height=20 align=center onMouseOut=this.style.backgroundColor='' onMouseOver=this.style.backgroundColor='#FFFFFF'> ="&_
" <a href=sort.asp?classid="&rs("classid")&">"
response.write rs("class")
response.write "</a> = </td>"
rs.movenext
loop
end if
rs.close
%><td height=20 align=center onMouseOut=this.style.backgroundColor='' onMouseOver=this.style.backgroundColor='#ffffff'>= <a href=newslist.asp?typeid=1>相关新闻</a> =</td><td height=20 align=center onMouseOut=this.style.backgroundColor='' onMouseOver=this.style.backgroundColor='#FFFFFF'>= <a href=newslist.asp?typeid=2>知识介绍</a> =</td><td height=20 align=center onMouseOut=this.style.backgroundColor='' onMouseOver=this.style.backgroundColor='#FFFFFF'>= <a href=authorsort.asp>作者列表</a> =</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="<%=Tabletitlecolor%>" height="15">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<tr>
<td align="center" width="770" colspan="2" bgcolor="#BBBBBB" height=3></td>
</tr>
<tr bgcolor=dddddd>
<td width="480"><%
if pagename<>"index.asp" then
sql="select Nclass,Nclassid from nclass where classID="&classid
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还没有任何栏目"
else
if request("Nclassid")<>"" then
Nclassid=request("Nclassid")
end if
do while not rs.eof
response.write"|<a href=sort.asp?classid="&classid&"&Nclassid="&rs("Nclassid")&">"
response.write rs("Nclass")
response.write"</a>"
rs.movenext
loop
end if
rs.close
else
response.write" "
end if
%>| <font color="#000080">不能观看的朋友请下载</font><a target="_blank" href="http://www.heishan.org/flash/FlashActivex.rar"><font color="#FF0000">FlashPlayer</font><font color="#000080">下载后将后缀改为exe</font></a></td>
<form method="post" action="search.asp">
<td bgcolor="dddddd" height="22" width="290">
<input type="text" size="15" name="keyword" value="<%=trim(request("Keyword"))%>">
<select name="action">
<option value="pic" selected>FLASH</option>
</select>
<input type="submit" name="Submit" value="搜 索">
<input type="button" name="Submit2" value="高级搜索" onclick="window.open('advsearch.asp')">
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="<%=Tabletitlecolor%>" height="22" width="385">
<!--#include file=stat.asp-->
</td>
<td bgcolor="<%=Tabletitlecolor%>" height="22" style="border-left: 0px solid rgb(0,0,0);" width="385">
<marquee scrolldelay="120" width="379" style="font-size: 10pt; color: #FFFFFF">感谢光临黑山信息港娱乐动画，希望您能喜欢上这里，并把这里告诉你的朋友，让他们一起来这里，找寻网络的乐趣。。</marquee></td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -