请问怎么把那些不用的代码在读出来时就替换掉！

代码如下：
<HTML>
<HEAD>
<TITLE> </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
</HEAD>
<BODY>
<%
for i=1 to 5
set sxml=server.CreateObject("Microsoft.XMLHTTP")
if i=1 then
url="http://www.hnpi.net/hnyyjg/ypjggs/index.asp"
else
url="http://www.hnpi.net/hnyyjg/ypjggs/index.asp?Direction=Next&job="
end if
sxml.Open "get",url,false
sxml.send
response.write GetBytes2BSTR(sxml.responsebody)
next

Function GetBytes2BSTR(p_sHtmlStr)
dim sReturnStr
dim i,n

sReturnStr = ""
n = LenB(p_sHtmlStr)

For i = 1 To n
dim sCharCode
dim sNextCharCode

sCharCode = AscB( MidB(p_sHtmlStr, i, 1) )

If (sCharCode < &H80) Then
sReturnStr = sReturnStr & Chr(sCharCode)
Else
sNextCharCode = AscB( MidB(p_sHtmlStr, i+1, 1) )
sReturnStr = sReturnStr & Chr(CLng(sCharCode) * &H100 + CInt(sNextCharCode))
i = i + 1
End If
Next

GetBytes2BSTR = sReturnStr
End Function

%>

</BODY>
</HTML>
大家在调试时如出现脚本超时，请把超本请求时间加大。

现在要求的功能为：把那些不用的代码在读出来时就替换掉，只留下那些表，并且把读出来的表合成一个，以便一下子复制到EXCEL表中。！

谢谢！