📄 special.asp
字号:
<%@ Language=VBScript%>
<!--#include file=include/conn.asp -->
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass"
rs.Open rs.Source,conn,1,1
dim ArrayBigClassID(20),ArrayBigClassName(20)
BigClassCount=rs.RecordCount
for i=1 to BigClassCount
ArrayBigClassID(i)=rs("BigClassID")
ArrayBigClassName(i)=trim(rs("BigClassName"))
rs.MoveNext
next
rs.Close
set rs2=server.CreateObject("ADODB.RecordSet") '专题
rs2.Source="select * from Special order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>专题__<%=redcaff%></title>
<LINK href=news.css rel=stylesheet>
<link href="../css.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body background="../image/beijing2.jpg" topmargin="0">
<!--#include file=include/top.asp -->
<div align="center">
<table width="778" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5" background="images/bgimg_left.gif"> </td>
<td><table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" bgcolor="#FFFFFF" > <table width="768" height="80%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="f4f4f4">
<tr>
<td width="160" bgcolor="f4f4f4"> </td>
<td width="508" height="25"><font color="#000000">当前位置：<a href=./ class=bai1>首页</a>>>专题</font></td>
<td width="95"> </td>
</tr>
</table></td>
</tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="f4f4f4">
<tr>
<td width="160" align="center" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="40" background="images/paihang.gif"> </td>
</tr>
<tr>
<td><table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="right" valign="top">
<%
rs.Source="select top 10 NewsID,Title,BigClassName,SmallClassName,SpecialID,click from News where hot=1 and image=0 order by click DESC"
rs.Open rs.Source,conn,1,1
while not rs.EOF
%>
<table width="95%" height="18" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="14%" valign="top"> <img src="images/icon_arrow_04.gif" width="9" height="10"></td>
<td width="86%"><font color="#FF0000"><a class=bai1 href="ReadNews.asp?NewsID=<%=rs("NewsID")%>&BigClassName=<%=rs("BigClassName")%>&SmallClassName=<%=rs("SmallClassName")%>&SpecialID=<%=rs("SpecialID")%>" target=_blank><%=trim(rs("Title"))%></a></font></td>
</tr>
</table> <%
rs.MoveNext
wend
rs.close
%>
</td>
</tr>
</table></td>
</tr>
</table></td>
<td width="4" ></td>
<td width="604" align="center" valign="top" bgcolor="#FFFFFF">
<table width="95%" border="0" align="right" cellpadding="3" cellspacing="0">
<tr>
<td width=100% bgcolor="#FFFFFF"> </td>
</tr>
<%while not rs2.EOF %>
<tr>
<td width="100%" height="18" bgcolor="#FFFFFF"><img src="images/arrow.gif" width="25" height="8">
<a class=bai1 href="Special_News.asp?SpecialID=<%=rs2("SpecialID")%>&SpecialName=<%=trim(rs2("SpecialName"))%>">
<%=trim(rs2("SpecialName"))%></a>
<%
rs2.MoveNext
wend
rs2.Close
set rs2=nothing
%>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td width="100%"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="5" background="images/bgimg_right.gif"> </td>
</tr>
</table>
<table width="780" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="5" height="1" background="images/bgimg_left.gif"></td>
<td height="1" bgcolor="cccccc"></td>
<td width="5" height="1" background="images/bgimg_right.gif"></td>
</tr>
</table>
<!--#include file=include/bottom.asp -->
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -