main.aspx

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

ASPX
38 行
字号 
<%@ Import Namespace="System"%> 
<%@ Import Namespace="System.Xml" %> 
<script language="VB" runat="server"> 
Sub Page_Load(Sender As Object,e As EventArgs)
Dim content As New XmlDocument()
Dim objnode As XmlNode
Dim title,abstract,author,paragraph As String
content.Load(Server.MapPath(Request("name") +".xml"))
objnode=content.SelectSingleNode("document")
Response.Write("<h1 align=center>")
title=objnode.childnodes(0).Innertext
Response.Write(title)
Response.Write("</H1>")
Response.Write("<hr>")
Response.Write("<H2 align=center>")
abstract=objnode.childnodes(1).Innertext
Response.Write("      " & abstract)
Response.Write("</H2>")
Response.Write("<p Align='center'>")
author=objnode.childnodes(2).Innertext
Response.Write("作者: " &author)
Response.Write("</p>")
Dim i As Integer
For i=0 to objnode.childnodes(3).Childnodes.count-1
   Response.Write("<p>")
   paragraph=objnode.childnodes(3).Childnodes(i).innertext
   Response.Write(paragraph)
   Response.Write("</p>")
Next
End Sub
</script> 
<html> 
<head> 
<title>
显示新闻内容 
</title> 
</head> 
<body>

main.aspx - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?