Dim XFile1 as FileStream = New FileStream(Server.MapPath("ordersS.xml"),FileMode.Open)
Dim XFile2 as FileStream = New FileStream(Server.MapPath("ordersD.xml"),FileMode.Open)
Dim XFile2 as FileStream = New FileStream(Server.MapPath("ordersD.xml"),FileMode.Open)
public String getMessage()
{
String returnStr="";
String xmlPath=HttpContext.Current.Server.MapPath("include\\messages.xml");
XmlDocument _doc=new XmlDocument();
_doc.Load(xmlPath);
XmlNodeList _xmlTitle=_doc.GetElementsByTagName("title");
XmlNodeList _xmlColor=_doc.GetElementsByTagName("color");
XmlNodeList _xmllinkedUrl=_doc.GetElementsByTagName("linkedUrl");
for (int i=0;i<_xmlTitle.Count;i++)
{
if (_xmllinkedUrl[i].InnerText=="null")
{
returnStr=returnStr + "<font color='"+ _xmlColor[i].InnerText + "'>" + _xmlTitle[i].InnerText + "</font><br>";
}
else
{
returnStr=returnStr + "<a href='"+ _xmllinkedUrl[i].InnerText + "' target='_blank'><font color='"+ _xmlColor[i].InnerText + "'>" + _xmlTitle[i].InnerText + "</font></a><br>";
}
}
return returnStr;
}
当前主机名:Context.Request.Url.Host
当前应用程序名:Context.Request.ApplicationPath
当前应用程序根目录:
Context.Request.Url.Host + Context.Request.ApplicationPath
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Web" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.XML" %><HTML>
<HEAD>
<script language="VB" runat="server">
Sub Page_load(sender As Object, e As EventArgs)
'x=Server.MapPath("ReadX.aspx")
'x=Left(x,Len(x)-10)
'Dim XFile1 as FileStream = New FileStream(Server.MapPath("ordersS.xml")"ordersS.xml",FileMode.Open)
'Dim XFile2 as FileStream = New FileStream(Server.MapPath("ordersD.xml")"ordersD.xml",FileMode.Open) Dim XFile1 as FileStream = New FileStream("http://**这里是我的服务器地址**/OrdersS.xml",FileMode.Open)
Dim XFile2 as FileStream = New FileStream("http://**这里是我的服务器地址**/OrdersD.xml",FileMode.Open)
Dim DS As DataSet = New DataSet
DS.ReadXmlSchema(XFile1)'读取结构
DS.ReadXmlData(XFile2)'读取资料
XFile1.Close'关闭两个文字档
XFile2.Close
Msg.Text="来源档: ordersS.xml 及 ordersd.xml"
XShow.DataSource=DS.Tables(0).DefaultView
XShow.DataBind()
End sub
</script>
</HEAD>
<body bgcolor="#999999">
<p>ReadX.aspx 目的:读取XML</p>
<form runat="server" ID="Form1">
<asp:label id="Msg" Runat="server" />
<BR>
<ASP:DataGrid id="XShow" runat="server" BorderColor="black" BorderWidth="1" GridLines="Both" CellPadding="3" CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" Height="128px" Width="184px"></ASP:DataGrid>
</form>
</body>
</HTML>这下可好了………………………………
……………………………………………
还是不行!!! 唉~~~~~~
不过我不明白 timmy3310(tim) 的如何做,可以详细点吗?谢谢了
"http://服务器地址/路径/文件名";
读读看,如果能读出来,证明确实是路径的问题
然后你再把地址换成如下看看:
"http://"+Context.Request.Url.Host + Context.Request.ApplicationPath
+"文件名"
ds.ReadXml(Server.MapPath("ordersD.xml"));
ds.Re...不行再试试只读数据不读架构,后者不是必需的最后如果用vs.net的话,建议使用Codebehind,至少调试方便,hehe
因为我有点怀疑我装VS.NET更新服务器时出了点问题,
因为我每运行 timmy3310(tim) 的方法,
总是变成 从WEB页download readx.aspx 的烦人效果……是了,我是刚接触这个VS.NET的,这个codebehind似乎很好用,
但我目前没有相关的书和资料……
有谁有得介绍啊 ? 先谢谢了!
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm2.aspx.vb" Inherits="test1.WebForm2" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>WebForm2</title>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:DataGrid id="dgxml" style="Z-INDEX: 101; LEFT: 297px; POSITION: absolute; TOP: 199px" runat="server"></asp:DataGrid>
</form>
</body>
</HTML>
下面的文件是webform2.aspx.vb
Imports System.Data
Imports System.Xml
Imports System.Data.SqlClientPublic Class WebForm2
Inherits System.Web.UI.Page
Protected WithEvents dgxml As System.Web.UI.WebControls.DataGrid#Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
Dim dscustomers As DataSet = New DataSet()
dscustomers.ReadXml(Server.MapPath("mycust.xml"), XmlReadMode.Auto)
dgxml.DataSource = dscustomers
dgxml.DataBind()
dscustomers = Nothing End Sub
End Sub
End Class
但是你说你通过的,所以我在别人的机器上一试: 也通过!!
我只好重装个SDK……
………………
…………………………
………………………………经过了许许多多……………… OK 了,非常多谢!!! 全部分数是你应得的!!!thx