还是eval的问题在XmlHttp中,感谢:myvicy(热心肠的人)

Question

现在第9行没办法执行
XmlHttp.Open "GET", eval("/"+class+"/"+url+".html"), false 
感觉是eval不行.怎么办.

Answer 1

看来你要了解一下eval作用才行,这里根本就不需要eval

Answer 2

改了.可是还是不好用.
Function momoca(test1,url,name)
//<script>momoca("/news/top10.html","1")< /SCRIPT>
//URL: /news/top10.html
//Function momoca(url,name)
//XmlHttp.Open "GET", url, false 
alert ("/"+test1+"/"+url+".html")
dim XmlHttp
set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", eval("/"+test1+"/"+url+".html"), false 
XmlHttp.setRequestHeader "Content-Type","text/XML"If xmlHttp.readyState < 4 then
eval("document.all.momoca_"+name).innerHTML="loading...<br>页面载入中请等待..."
End IfXmlHttp.SendIf xmlHttp.readyState = 4 then
eval("document.all.momoca_"+name).innerHTML="页面载入成功 —— by momcoa"
End Ifdim html 
html = bytes2BSTR(XmlHttp.responseBody)
eval("document.all.momoca_"+name).innerHTML=html
End Function

Answer 3

Dim Url: Url = "wc"
Dim Class1: Class1 = "wc1"
Dim A_Url1: A_Url1 = Eval("""/"" & Class1 & ""/"" & Url & "".html""") '为什么非要用eval?
DIm A_Url2: A_Url2 = "/" & Class1 & "/" & Url & ".html"
Response.Write A_Url1 & "<br />"
Response.Write A_Url2

Answer 4

XmlHttp.Open "GET", "/"+class+"/"+url+".html", false 
这里直接写，不用eval的。

Answer 5

hansonboy() 谢谢.我明白了.eval是计算字符串值的。

Answer 6

VBS不是有没有getElementById之类的方法, 如果是js就不用这行麻烦,不用eval了,直接document.getElementById("momoca_"+name)就行,当然你要用ID,不能用NAME,eval性能不好