zoukankan      html  css  js  c++  java
  • ASP生成静态页面的函数

    '------------------生成静态所用的函数 开始---------------------
    '用途:将指定内容,写入文本文件
    '参数:filepath(包含路径的文件名,支持虚拟路径),fileContent(文件内容)
    '示例:WriteFile "/abc.txt","abcde" 或WriteFile "c:\abc.txt","abcde"
    '编写:杨俊明 2006-2-8 13:10 QQ:278919507 Email:yjmyzz@126.com
    function WriteFile(filepath,fileContent)
    if instr(filepath,"/") then filepath = server.mappath(filepath)
    set t_fso = Server.CreateObject("scripting.FileSystemObject")
    set t_keyFile = t_fso.CreateTextFile(filepath, true)
    t_keyFile.WriteLine(fileContent)
    t_keyFile.Close
    set t_keyfile = nothing
    set t_fso = nothing
    end function

    function getHTTPPage(url)
     on error resume next
     dim http
     set http=Server.createobject("Microsoft.XMLHTTP")
     Http.open "GET",url,false
     Http.send()
     if Http.readystate<>4 then
      exit function
     end if
     getHTTPPage=bytes2BSTR(Http.responseBody)
     set http=nothing
     if err.number<>0 then err.Clear
    end function

    Function bytes2BSTR(vIn)
     dim strReturn
     dim i,ThisCharCode,NextCharCode
     strReturn = ""
     For i = 1 To LenB(vIn)
      ThisCharCode = AscB(MidB(vIn,i,1))
      If ThisCharCode < &H80 Then
       strReturn = strReturn & Chr(ThisCharCode)
      Else
       NextCharCode = AscB(MidB(vIn,i+1,1))
       strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
       i = i + 1
      End If
     Next
     bytes2BSTR = strReturn
    End Function
    '------------------生成静态所用的函数 结束--------------------- 


    Sub wr(str)
      response.Write str
    End Sub

  • 相关阅读:
    编写一个脚本,用它来操纵QTP的运行
    URLbased 方式和 HTMLbased方式的差别(摘自关河)
    提供软件测试、软件开发相关服务
    数组内容的参数化问题
    IIS状态代码的含义
    不成熟的测试工具
    LR利用foxmail发邮件部分的脚本代码
    FTP的两种模式
    pop3的基本流程
    自动化测试在企业中的实施
  • 原文地址:https://www.cnblogs.com/guo2001china/p/2232593.html
Copyright © 2011-2022 走看看