欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

关于url的相对路径跟绝对路径.知道的请进来

更新时间: 2014-01-05 01:50:30 责任编辑: Author_N1

 

关于URL的相对路径和绝对路径.知道的请进来.
URL红色部分问题. 如何设置相对路径?知道的请告知一下,万分感谢

Dim time2,time1
time1=timer

Url = "http://www.baidu.com/index2.asp"
Url = "index2.asp"


cacheTime=600   '缓存时间,单位为s秒

'强制生成!
If Request.QueryString("g")<>"" Then Call makecache()

'判断 自动生成!
If application("ourcyindex")<>"" And isDate(application("tqexpire_ourcyindex")) Then '如果缓存的日期存在并且符合时间日期格式
    If CDate(application("tqexpire_ourcyindex"))<Now()  Then makecache() '如果缓存到期时间小于了现在的时间,就是过期了,调用生成缓存过程。
Else
    makecache()'如果缓存日期不存在或者不符合时间日期格式,直接调用生成过程。
End If

time2=timer
'这是我为了去掉我站内的执行时间而进行的替换,你可以不管,直接输出application("ourcyindex")就行了

response.write Replace(application("ourcyindex"),"info@ourcy.com","info@ourcy.com 执行时间 "& FormatNumber((time2-time1)*1000,1) &" 毫秒 缓存过期:"& application("tqexpire_ourcyindex")&"")


'定义生成缓存过程
Sub makecache
    List_PageCode=getHTTPPage(Url)
    application.lock
    application("ourcyindex")=List_PageCode
    application("tqexpire_ourcyindex")=dateadd("s",cacheTime,Now()) 
    application.unlock
End Sub




Function getHTTPPage(url) 
    IF(IsObjInstalled("Microsoft.XMLHTTP") = False)THEN
        Response.Write "<br><br>服务器不支持Microsoft.XMLHTTP组件" 
        Err.Clear
        Response.End
    END IF
    On Error Resume Next
    Dim http 
    SET http=Server.CreateObject("Msxml2.XMLHTTP") 
    Http.open "GET",url,False 
    Http.send() 
    IF(Http.readystate<>4)THEN
        Exit Function 
    END IF 
    getHTTPPage=BytesToBSTR(Http.responseBody,"GB2312")
    SET http=NOTHING
    IF(Err.number<>0)THEN
        Response.Write "<br><br>获取文件内容出错" 
        'Response.End
        Err.Clear
    END IF  
End Function
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:50:30
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1868/
本文WWW.DOC100.NET DOC100.NET版权所有。