那位好心人哪救救小弟弟一命啊~~！急```在线等待！

mylove36 2005-11-04 11:15:20

小弟弟我现在在写一个留言簿，其中主页码出了点问题，帮帮看看问题出在那里。多谢~
一、
代码：
<%
strSourceFile = Server.MapPath("/") & "\List.xml"
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
%>
<html>
<head>
<title>ÁôÑÔ±¾</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
</head><body bgcolor="#0099CC" text="#000000">
<table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#CCCCCC">
<tr bgcolor="#000000">
<td colspan="2"><font color="#FFFFFF">ÁôÑÔäß <a href="PostNew.asp"><font color=#FFFFFF>Ð´ÐÂÁôÑÔ
</font></a></font></td>
</tr>
<%
PageSize =10
AllNodesNum =objRootsite.childNodes.length-1
PageNum=AllNodesNum\PageSize+1
PageNo=request.querystring("PageNo")
if PageNo="" then
PageNo=PageNum
end if
StarNodes=PageNo*PageSize-1
EndNodes=(PageNo-1)*PageSize
if EndNodes<0 then
EndNodes=0
end if
if StarNodes>AllNodesNum then
EndNodes=EndNodes-(StarNodes-AllNodesNum)
StarNodes=AllNodesNum
end if
if EndNodes<0 then
EndNodes=0
end if
while StarNodes>=EndNodes
username = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
fromwhere = objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
Posttime = objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
homepage = objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
email = objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
text = objRootsite.childNodes.item(StarNodes).childNodes.item(6).text
text = replace(text,chr(13),"<br>")
text = replace(text,chr(32)," ")
%>
<tr bgcolor="#F0F0F0">
<td width="21%" height="94" valign="top">ÐÕ Ãû£º<%=username%> À´ ×Ô£º<%=fromwhere%><br>
</td>
<td width="79%" height="94" valign="top"> | <a href="<%=homepage%>" target=_blank title="<%=username%
>µÄÖ÷Ò³">Ö÷Ò³</a>
| | <a href="mailto:<%=email%>" title="¸ø<%=username%>Ð´ÐÅ">ÐÅÏä</a> | |<font color="#CC6633">
ÁôÑÔÊ±¼ä£º<%=Posttime%> </font>|
<hr>
<%=text%></td>
</tr>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="2"></td>
</tr>
<%
StarNodes=StarNodes-1
wend
set objXML=nothing
%>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="2"> ¹²ÓÐ<<%=PageNum%>>Ò³
<%
if cint(PageNo)<>PageNum then
response.write "<a href='index.asp?PageNo="&(PageNo+1)&"'>ÉÏÒ»Ò³</a>"
end if
if cint(PageNo)<>1 then
response.write "<a href='index.asp?PageNo="&(PageNo-1)&"'>ÏÂÒ»Ò³</a> "
end if
%>
</td>
</tr>
</table>
</body>
</html>

IE出错提示：
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/1/index.asp, line 57
=username%

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; MyIE2)

二、即然帖已经开了再看看这个XML文件啊~~~！
代码：
<xml version="1.0" encoding="gb2312">
<site>
<NewList>
<list>
<id>1</id>
<username>苛子</username>
<fromwhere>中国-广州</fromwhere>
<Posttime>05-11-4 23:14</Posttime>
<homepage>http://page2000.xiloo.com</homepage>
<email>lucaihui@cmmail.com</email>
<text>这是我第一个XML文件</text>
</list>
</NewList>
</site>
IE提示：
无法显示 XML 页。
使用 XSL 样式表无法查看 XML 输入。请更正错误然后单击刷新按钮，或以后重试。

--------------------------------------------------------------------------------

文本内容中发现无效字符。处理资源 'http://localhost/1/list.xml' 时出错。

...全文