left.asp

来自「冠龙科技企业网站管理系统 v8.0」· ASP 代码 · 共 106 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table  width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td><img src="Images/xwss.gif" width="191" height="26" /></td>
              </tr>
              
              <tr> 
                <td height="5"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
				    <form name="form1" method="get" action="News_search.asp">
                    <tr> 
                      <td  height="30" align="center" bgcolor="#efefef"> 
                    <input type="text" name="key" size="19" class="input">                </td>
                    </tr>
					<tr>
                <td height="30" align="center" bgcolor="#efefef"> 
                    <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="input"></td>
              </tr></form>
                  </table></td>
              </tr>
              
              
            </table></td>
  </tr>
  <tr> 
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td><img src="Images/zxxw.gif" width="191" height="26" /></td>
              </tr>
              
              <tr> 
                <td height="5"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
				<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="SELECT * from NEWS order by id desc" 
rs.Open sql,conn,1,1
if not Rs.eof then
do while not rs.eof
t=t+1
%>
                    <tr> 
                      <td width="18%" height="22" align="center" bgcolor="#efefef"><span style="border-right: 1 solid #000000;border-bottom: 1 solid #000000"><%= t %></span></td>
                      <td width="82%" bgcolor="#efefef">　
                        <a href="shownews.asp?id=<%=rs("id")%>" title="<%=rs("title")%>" target="_blank"><%=left(rs("title"),10)%></a></td>
                    </tr>
					<% 
if t>=10 then exit do 
rs.movenext 
loop 
else 
response.write "<tr><td align=center colspan=2 bgcolor=#E8E8F4>尚无收录</td></tr>" 
end if 
rs.close 
%>
                  </table></td>
              </tr>
              
              
            </table></td>
  </tr>
  <tr>
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td><img src="Images/rmxw.gif" width="191" height="26" /></td>
              </tr>
              
              <tr> 
                <td height="5"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
				    <%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="SELECT * from 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 onmouseover="this.bgColor='#ffffff';"onmouseout="this.bgColor='#efefef';"bgColor=#efefef> 
                      <td width="82%" style="border-bottom: 1 solid #000000">　<a href="shownews.asp?id=<%=rs("id")%>" title="<%=rs("title")%>" target="_blank"><%=left(rs("title"),10)%></a></td>
                <td width="18%" height="22" align="center" style="border-bottom: 1 solid #000000;border-left: 1 solid #000000"><font color="#FF0000"><%=rs("hits")%></font></td>
                    </tr>
					<% 
if t>=10 then exit do 
rs.movenext 
loop 
else 
response.write "<tr><td align=center colspan=2 bgcolor=#E8E8F4>尚无收录</td></tr>" 
end if 
rs.close 
%>
					
                  </table></td>
              </tr>
              
              
            </table></td>
  </tr>
</table>