ASP新闻调用模块 - TOMMYHU - 专注互联网开发及运营技术,提供相关资料及软件下载,奇趣网络时事评论!
Apr 21

ASP新闻调用模块 不指定

tommyhu , 08:52 , ASP , Comments(0) , Trackbacks(0) , Reads(8018) , Via Original Large | Medium | Small
先看美女再看代码,哈哈,上海车展http://auto.ifeng.com/2009/,靓丽车模
Highslide JS

  <table width="100%"  border="0" align="center" cellpadding="3" cellspacing="0">
      &amp;n[separator]bsp; <tr>
          <%
  Set oRs=Server.CreateObject("ADODB.RecordSet")  //创建集合
  sSql="Select D_ID,D_ClassID,D_Title,D_Count,D_Time,jianjie,D_Picture From NewsData Where d_classid=4 and d_recycle=false ORDER BY d_id DESC" //SQL语句,DESC,ASC排序,寻找某个ID类的信息
  oRs.Open sSql,oConn,1,1
  If Not oRs.Eof Then
  do while not (oRs.eof or err)
%>
          <td width="139"  align="left" style="border-bottom:1px #ccc dashed">
·<a href="ArticleShow.asp?ArtID=<%=oRs("D_ID")%>" title="<%=oRs("D_Title")&vbcrlf%>">
  
<%
D_title=oRs("D_title")
len=len(D_title)
if len>10 then
D_title=left(D_title,10)+"..."
end if
response.write D_title
%>
//选择新闻标题的前10个字


</a>
</td>
<td width="55" align="right" style="border-bottom:1px #ccc dashed"><font color="#999999">
<% = formatdatetime(oRs("D_Time"),2)%>    //格式化时间输出,其中2为参数,有1,2,3,4可选,分别显示由长到短的时间
          </font></td>
        </tr>
        <%
      j=j+1
      oRs.moveNext
      if j>9 then exit do     //获得最新的9条
          loop
         %>  
<%
else
%>
暂无信息!                 //没有数据显示的内容
<%
end if
%>      
<%
oRs.Close
%>
</table>

▲返回顶部
Last modified by tommyhu on2009/04/21 09:43

Add a comment

Nickname

emotemotemotemotemotemotemotemotemotemotemotemotemotemotemotemot