left.asp

官方最新的南方数据v12生成静态商业版。全站生成静态。

<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 class="title_left" height="34" align="center" ><font color="#FF6600">新闻搜索</font></td>
        </tr>
        <tr> 
          <td align="center"><table width="100%" border="0" 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 class="title_left" height="34" colspan="2" align="center"><font color="#FF6600">最新新闻</font></td>
        </tr>
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="Select * from 0791idc_News order by AddDate 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';"> 
          <td width="14%" height="22" align="center" bgcolor="#efefef" class="border2"><%= t %></td>
          <td width="86%" bgcolor="#efefef" class="border2">　
	<% 	If ISHTML = 1 Then
		AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
	Else
		AutoLink = "shownews.asp?ID="&rs("ID")&""
	End If
	Response.Write "<a href="""&AutoLink&""" target='_blank'>"&left(rs("title"),10)&"</a>"&VbCrLf	
	 %>		  
		  </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>
  <tr>
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="title_left" width="82%" align="center" ><font color="#FF6600">热门新闻</font></td>
          <td width="18%" height="33" align="center" bgcolor="#efefef" >点击</td>
        </tr>
        <tr> 
          <td height="22" colspan="2" align="center">
		  <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="Select * from 0791idc_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%" bgcolor="#efefef" class="border2">　
				<% 	If ISHTML = 1 Then
		AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
	Else
		AutoLink = "shownews.asp?ID="&rs("ID")&""
	End If
	Response.Write "<a href="""&AutoLink&""" target='_blank'>"&left(rs("title"),10)&"</a>"&VbCrLf	
	 %>	</td>
                <td width="18%" height="22" align="center" class="border2"><%=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>