摘要:
Function GetXml(Xml_Url)GetXml_Temp =""Dim objXml'On Error Resume NextSet objXml = Server.CreateObject("Msxml2.ServerXMLHTTP")objXml.SetTimeOuts 10000, 10000, 30000, 30000objXml.Open "GET",Xml_Url,FalseobjXml.Send()If (objXml.ReadyState = 4) And (objXml.Status = 200 阅读全文
摘要:
memailbody = RegReplace("<rplmsg>(.|\n)*?</rplmsg>",memailbody,"<div align=left>"&Trim(request("content"))&"</div>" )Function RegReplace2(stPattern,stString,stReplace)RegReplace= stString Dim regEx, Match, Matches Set regEx =New 阅读全文