asp 小偷写入数据库

Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng)) ''出错可能与这个有关！
if Newstring<=0 then Newstring=Len(wstr)
End Function

Dim JM_Url,JM_Open,JM_Over,JM_Html
JM_Url=getHTTPPage("http://www.cnhmgdjj.com/index.php/archive/show/491.html")
'a=replace(<SPAN style="COLOR: #000000">,","")
JM_Open=Newstring(JM_Url,"<SPAN style='COLOR:#000000'>") '''''这行，去掉“”就可以写入，加上就出错!
JM_Over=Newstring(JM_Url,"</SPAN>")
JM_Html=mid(JM_Url,JM_Open,JM_Over-JM_Open)


在线等答案、、、

---

字符串当然要加""了，不能去

---

JM_Open=Newstring(JM_Url," <SPAN style=COLOR:#000000>")//这样试试

---

采集的 html代码里 就是 <SPAN style=“COLOR:#000000”>")  
去掉“” 就找不到内容了。当然不行啦！

---

JM_Open=Newstring(JM_Url," <SPAN style=""COLOR:#000000"">") 
ASP字符串中，用两个"表示"

---

顶了！可惜这个我也不知道！

---

引用

JM_Open=Newstring(JM_Url," <SPAN style=""COLOR:#000000"">")
ASP字符串中，用两个"表示"

 
早就试过了。不行！！

---

JM_Open=Newstring(JM_Url," <SPAN style="&chr(34)&"COLOR:#000000"&chr(34)&">")

---

先