📄 left.asp
字号:
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" background="Skins/Default/CnImg/naviBg.jpg" >
<tr>
<td width="25" height="31" align="center" ><img src="Skins/Default/CnImg/FlagLine.gif" width="4" height="21" /></td>
<td > <strong>最 新 新 闻</strong></td>
</tr>
</table></td>
</tr>
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="Select * from Hover_News order by hits desc"
rs.Open sql,conn,1,1
if not Rs.eof then
do while not rs.eof
t=t+1
%>
<tr>
<td height="25"> <img src="Skins/Default/CnImg/flag.gif" width="11" height="9" /> <a href="shownews.asp?id=<%=rs("id")%>" title="<%=rs("title")%>" ><%=left(rs("title"),8)%></a></td>
</tr>
<TR>
<TD height=1 background="Skins/Default/Cnimg/1x1_pix.gif" ></TD>
</TR> <%
if t>=5 then exit do
rs.movenext
loop
else
response.write "<tr><td align=center colspan=2 bgcolor=#E8E8F4>尚无收录</td></tr>"
end if
rs.close
%>
<TR>
<TD height=5 ></TD>
</TR>
</table>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
<TR>
<TD bgcolor="#FFFFFF" ><table width="100%" border="0" cellpadding="0" cellspacing="0" background="Skins/Default/CnImg/naviBg.jpg" >
<tr>
<td width="25" height="31" align="center" ><img src="Skins/Default/CnImg/FlagLine.gif" width="4" height="21"></td>
<td > <strong>站 内 搜 索</strong></td>
</tr>
</table></TD>
</TR>
<TR>
<TD vAlign=top>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="get" action="News_search.asp">
<tr>
<td height="30" align="center"><input type="text" name="key" size="22" class="input"></td>
</tr>
<tr>
<td height="30" align="center"><select name="otype" class="input">
<option value="title" selected class="input">新闻标题</option>
<option value="msg" class="input">新闻内容</option>
</select> <input type="submit" name="Submit" value=" 搜 索 " class="button" ></td>
</tr>
</form>
</table>
</TD>
</TR>
</TABLE>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -