<%
function str(nn)
h=GetLocationURL()
h1=Split(h,"/")
h=Replace(h,h1(UBound(h1)),"LessonMenu.xml")
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",h,False
http.send
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=False
xml.ValidateOnParse=False
xml.Load(http.ResponseXML)
If xml.ReadyState>2 Then
Set item=xml.getElementsByTagName("lesson")
For i=0 To (item.Length-1)
if i=nn-1 then
Set item=item.item(i).getElementsByTagName("td")
For ii=0 To (item.Length-1)
Set content=item.item(ii).getElementsByTagName("content")
Set url=item.item(ii).getElementsByTagName("url")
str=str&"
"& content.Item(0).Text &""
next
end if
Next
Else
Response.Write("文档还未准备就绪。状态："& xml.ReadyState &"")
End If
Set http=Nothing
Set xml=Nothing
end function
%>