er.MapPath(filespec))) Then IsExists = True Else IsExists = False End If Set fso=nothing End Function '检测文件夹是否存在 Function IsFolder(Folder) Set fso = CreateObject("Scripting.FileSystemObject") If FSO.FolderExists(server.MapPath(Folder)) Then IsFolder = True Else IsFolder = False End If End Function '新建文件夹 Function CreateFolder(fldr) on error resume next Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateFolder(Server.MapPath(fldr)) CreateFolder = f.Path Set f=nothing Set fso=nothing End Function '远程调用BOBO地址 Function GetSource(url) //取得url页面的数据. dim oXmlHttp,oStream set oXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") oXmlHttp.open "GET",url,false oXmlHttp.send() GetSource = bytes2BSTR(oXmlHttp.responseBody) End Function '将调用的地址编码 Function bytes2BSTR(vIn) dim i,strReturn,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 %> 东阳影院首页

推荐电影列表

【收藏到QQ书签】 【添加到百度搜藏】 【意见求片专区】

东阳影院 义乌影院 8000部电影免费观看让你过足瘾

  • 热播电视剧

友情链接: