VBScript code:
<%
strSourceFile=Server.MapPath("guestbook.xml")
Set objXML=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
%>
<%
'每页大小
pageSize=4
'所有节点数
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 St
在asp里怎么调用java写的webservice方法，有很多方法
- <message name="RtPnrIn">
<part name="bstrPnrNO" type="s:string" />
<part name ......
