oblog 出错了:类型不匹配: '[string: ""]' Post By:2008-11-
我就自己去看 去琢磨代码
第30行:
nTime = oblog.CacheConfig(60) 'CacheConfig(60)是定义缓存的
[color=Red]If nTime < 30 or nTime > 1440 Then nTime = 30[/color]
代码如下:
PostUrl=http://www.xxx.com/
Server.ScriptTimeOut=20
Set oXMLHttp = createObject("Microsoft.XMLHTTP")
Call oXMLHttp.Open("get", PostUrl, false)
Call oXMLHttp.Send("")
sHtmlStr = oXMLHttp.responseBody
Set oXMLHttp = nothing
初步判定可能是打开的页面有跳转的原因,解决办法是用
MSXML2.ServerXMLHTTP
替换掉
Microsoft.XMLHTTP
即可解决。
另外在CSDN上找到这么一段代码
ServerURL=PostUrl
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.CreateMHTMLBody ServerURL,31
AA=Mail1.HTMLBody
Set Mail1 = Nothing
Response.Write AA
试了一下,也可以用,拷过来收藏
<%
url=Request.ServerVariables("QUERY_STRING") '取得来路网址
arr=Split(url,"/") '用/分割
n=ubound(arr) '求得最后一个/
%>
<!--js直接跳转-->
<script language="javascript">
window.top.location="http://www.1100do.cn/<%= arr(n)%>";
</script>