<% // Response.Write(trim(rowsNode.childNodes(i).getAttribute("JS"))) // Dim textvalue=trim(rowsNode.childNodes(i).getAttribute("JS") trim(rowsNode.childNodes(i).getAttribute("JS"))=replace(trim(rowsNode.childNodes(i)).getAttribute("JS"),"。","<p>") Response.Write(trim(rowsNode.childNodes(i).getAttribute("JS")) %>

这是输出部分的语句，我的语言基础不是很好，不知道是不是犯了什么低级错误，请指教。

<% sql6="SELECT * FROM PMIS.PUSER_JY_DWJS T1, PMIS.PUSER_EMS_REGISTAB T2 WHERE T1.KEY_NUM=T2.KEY_NUM AND T2.SFXS='1' and RQ=to_date('"& rq &"','yyyy-mm-dd') ORDER BY T2.xh" set pMdataSrv6 = Server.CreateObject("PMBizLogicSrv.PMBizLogicRemoteSrv") resultxml6=pMdataSrv6.GetXMLDataSet(sql6) set xmldom6= Server.CreateObject("Msxml2.DOMDocument") xmldom6.async=false xmldom6.loadXML(resultxml6) set rowsNode=xmldom6.documentElement.selectSingleNode("//DATAPACKET/ROWDATA") %> </p> <table width="1024" border="0"> <tr> <td width="191">八.记事</td> <td width="622"></td> <td width="98">&nbsp;</td> <td width="95">&nbsp;</td> </tr> </table> <table width="1024" border="1"> <tr> <% for i=0 to rowsNode.childNodes.length-1 %> <td> <% Response.Write(trim(rowsNode.childNodes(i).getAttribute("JS"))) %> <br></td> <% next %> </tr> </table>

没有要求遇到句号换行，直接输出结果的语句如上，可以正常显示。

果然犯了低级错误，少写了一个“）”
         <%
         //Response.Write(trim(rowsNode.childNodes(i).getAttribute("JS")))
         Dim textvalue
         textvalue=trim(rowsNode.childNodes(i).getAttribute("JS"))
         textvalue=replace(textvalue,"。","<p>")
         Response.Write(textvalue)
         %>
这样就OK了