newsclient.aspx

来自「asp做的新闻系统」· ASPX 代码 · 共 41 行

ASPX

41 行

<%@ Import NameSpace="NewsService" %>
<html> 
<head> 
<title>
 显示新闻列表 
</title> 
<script language="VB" runat="server"> 
Sub page_Load(sender as object,e as eventargs)
Dim list As new NewsService.NewsList()
Dim title(),href(),titlename,hrefname As String
Dim size As Integer
title=list.GetNewsList()
href=list.GeturlList()
size=UBound(title)
'生成新闻列表
Response.Write("<Table border=1>") 
Response.Write("<tr>")
Response.Write("<td>")
Response.Write("标  题")
Response.Write("</td>")
Response.Write("</tr>")
   For i=0 to size-1
      Response.Write("<tr>")
      titlename=title(i)
      Response.Write("<td><a href=")
      hrefname=href(i)
      Response.Write(hrefname)
      Response.Write(" target=blank>")
      Response.Write(titlename)
      Response.Write("</a>")
      Response.Write("</td>")
      Response.Write("</tr>")   
   Next
End If
Response.Write("</table>")
End Sub 
</script> 
</head> 
<body> 
</body> 
</html>

newsclient.aspx - 源码说明

本页面展示了「asp做的新闻系统」中的 newsclient.aspx 源码文件，采用 ASPX 编程语言编写，共 41 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?