帮我看一下面一段ASP编程代码 谢谢了

sub html()
str=split(delid,",")
i=0
response.write ubound(str)
for i=0 to ubound(str)
ServerURL="http://"&Request.ServerVariables("SERVER_NAME")&"/wytx/ShowJs.asp?JsID="&trim(str(i))&""
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.CreateMHTMLBody ServerURL,31
AA=Mail1.HTMLBody
Set Mail1 = Nothing
set objfso = Server.CreateObject("Scripting.FileSystemObject")
conn.execute "update js_body set click=1 where ID="&trim(str(i))
set htmout = objfso.CreateTextFile(server.mappath("../html/"&trim(str(i))&".html"))

htmout.write replace(AA,"images/","../images/")
next
htmout.close

set htmout=nothing
set objfso=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('转静态成功成功！');" &"window.loca

asp高手帮我看一段代码 大家来帮我看一段ASP代码 帮看一下哪有问题 请高手帮我看一下这是一段ASP代码是什么意思! 帮我看一下asp代码是什么意思？ 请帮我看一段ASP代码哪里错了 高手帮我看一段简单的ASP代码 帮我看看一段asp代码。教教我改一下 下面一段asp代码,我不理解,请帮我一下? 关于一段ASP.NET代码,哪位帮我改一下... 帮我看一段代码