航空总医院神经外科二病区

当前位置：首页 >> 留言板

<% strSourceFile = Server.MapPath("siva.xml") Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM") objXML.load(strSourceFile) Set objRootsite = objXML.documentElement.selectSingleNode("guestbook") '每页显示*条留言 PageSize = cint(""&num&"") '获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1） AllNodesNum = objRootsite.childNodes.length - 1 '算出总页数 PageNum = AllNodesNum\PageSize + 1 PageNo = cint(Request.querystring("PageNo")) '如果是每一次获得页面则定位到每一页显示最新的留言 if PageNo="" or PageNo="0" then PageNo = 1 end if '获得起始节点 StarNodes = AllNodesNum - (PageNo - 1)*PageSize '获得结束节点 EndNodes = StarNodes - PageSize + 1 if EndNodes < 0 then EndNodes = 0 end If '判断起始节点数是否超过总的节点数 if StarNodes > AllNodesNum then '如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错 EndNodes=EndNodes-(StarNodes-AllNodesNum) StarNodes=AllNodesNum end if if EndNodes < 0 then EndNodes=0 end if while StarNodes >= EndNodes id=objRootsite.childNodes.item(StarNodes).childNodes.item(0).text name=objRootsite.childNodes.item(StarNodes).childNodes.item(1).text email=objRootsite.childNodes.item(StarNodes).childNodes.item(2).text sex=objRootsite.childNodes.item(StarNodes).childNodes.item(3).text content=objRootsite.childNodes.item(StarNodes).childNodes.item(4).text addtime=objRootsite.childNodes.item(StarNodes).childNodes.item(5).text reply=objRootsite.childNodes.item(starNodes).childNodes.item(6).text hftime=objRootsite.childNodes.item(starNodes).childNodes.item(7).text ip=objRootsite.childNodes.item(starNodes).childNodes.item(8).text ip=split(ip,".") uip=ip(0)&"."&ip(1)&"."&ip(2)&".*" %>

<%=name%>

留言时间：<%=addtime%>

：<%=email%>

IP：<%=uip%>

<% response.write replace(content,chr(13),"
") if reply<>"" then response.write "

医师回复：" response.write reply response.write "

回复时间：" response.write hftime response.write "

" end if %>

【留言均由李主任亲自回复】请留下联系方式（邮箱、QQ、MSN等），便于我们将主任的建议反馈给您。屏幕左下方有在线咨询，私人联系方式可QQ留言给主任助理。手机：15101137426

<% StarNodes = StarNodes - 1 wend set objXML = nothing %>

页数：<%=pageno%>/<%=pagenum%> <%if pageno <> 1 then response.write "首页" response.write " 上一页" else response.write "首页上一页" end if if pageno <> pagenum then response.write " 下一页" response.write " 尾页" else response.write " 下一页尾页" end if%> 共有<%=AllNodesNum+1%>篇(每页<%=PageSize%>篇)

设为首页　｜　收藏本站　｜　联系我们
E—mail: lixiaoyong9500@126.com或 paul_928@163.com
李小勇主任电话：13552686746 主任助理：15101137426
Powered By www.csfneurosurg.com｜航空总医院神经外科二病区及脑脊液病中心版权所有
《中华人民共和国电信与信息服务业务经营许可证》编号：京ICP备10202325号<%=webname%>