📄 list.asp

📁 视频源代码视频源代码

💻 ASP

字号:

<%response.expires=0%>
<!--#include file="../admin/inc/conn.asp"-->
<!--#include file="../admin/inc/code.asp"-->
<HTML><HEAD>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<META content=FrontPage.Editor.Document name=ProgId>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="img/css.css" type=text/css rel=stylesheet></HEAD>
<BODY leftMargin=0 topMargin=0>



<TABLE class=520a id=table11 style="BORDER-COLLAPSE: collapse" 
                  cellPadding=0 width=420 border=0>
  <TBODY>
    <% 
  'sql="select top 10 * from ziliao order by id "
  id=Trim(Request.QueryString("id"))
  sql = "categoryid,id,path,title,pic,otime,hits from news"
If id <> "" Then
  If IsNumeric(id) Then
    sql=sql&" where categoryid like '%."&id&".%'order by id desc"
  End If
End If

num =Request("num")
If num <> "" Then
  If IsNumeric(num) Then
    sql="select top "&num&" "&sql
  Else
    sql = "select top 10 " & sql
  End If
Else
  sql = "select top 10 " & sql
End If

  
   %>
  <% 
rs.open sql, conn, 1, 1
	If  rs.EOF Then
 
	  response.write "没有资讯："
	else
	do while NOT rs.EOF
	i=i+1
	if i<10 then ii=0&i else ii=i  
            %>
    <TR>
      <TD align=middle width=29 height=21><IMG height=13 
                        src="img/news008.gif" width=6 border=0></TD>
      <TD><A 
                        href="news.asp?id=<%=rs("id")%>" target="_top"><%= ii %>、<%=rs("title")%></A></TD>
    </TR>
	            <%
	rs.MoveNext
	loop
	end if
	rs.close
	set rs=nothing
                %>  
	
    <TR>
      <TD width=29 background=index.files/news015.gif 
                      height=1></TD>
      <TD background=index.files/news015.gif height=1></TD>
    </TR>
    <TR>
      <TD width=29 background=index.files/news015.gif 
                      height=1></TD>
      <TD background=index.files/news015.gif 
                    height=1></TD>
    </TR>
  </TBODY>
</TABLE>
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -