主頁 > 知識庫 > 自動采集程序

自動采集程序

熱門標(biāo)簽:武夷山旅游地圖標(biāo)注 修改地圖標(biāo)注 金昌電話機器人價格 萊西電子地圖標(biāo)注 外呼系統(tǒng)API接口 怎么在地圖標(biāo)注自己 個人可以辦理400電話么 縣域地圖標(biāo)注打印店 鳳臺百度地圖標(biāo)注店
復(fù)制代碼 代碼如下:


  On Error Resume Next 
  Const uploadPath = "/uploads/" '文件存放路徑 
  Const allowFileExt = "jpg,wma,swf,gif" '允許被采集的文件類型 
  'Const allowFileSize = "200" 
  Function getFile(url) 
    If url = "" Then 
      Exit Function 
    Else 
      url = Trim(url) 
    End If 
    '獲取文件 
    fileExt = Lcase(Mid(url,Instrrev(url, ".")+1)) '文件類型 
    fileName = Lcase(Mid(url,Instrrev(url, "/")+1,Instrrev(url, ".")-Instrrev(url, "/")-1)) '無文件類型的文件名 
    newFilePath = getNow("Date")  "_"  Replace(FormatDateTime(Now(),3),":","")  "_"  cleanFileName(fileName)  "."  fileExt 
    if Instr(","Lcase(allowFileExt)",",","fileExt",") = 0 Then 
      getFile = "文件類型不允許" 
      Exit Function 
    End If 
    Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") 
    xmlhttp.open "get",url,false 
    xmlhttp.send 
    'While xmlhttp.readyState > 4 
    ' xmlhttp.waitForResponse 1000 
    'Wend 
    If xmlhttp.status > 200 Then 
      getFile="獲取文件出錯" 
      Exit Function 
    Else 
      Set folder=Server.CreateObject("Scripting.FileSystemObject") 
      Dim folderName 
      folderName = getNow("Year")getNow("Month") '文件夾 
      If folder.FolderExists(Server.MapPath(uploadPath))=False Then 
        folder.CreateFolder Server.MapPath(uploadPath) 
      End If 
      If folder.FolderExists(Server.MapPath(uploadPath  folderName))=False Then 
        folder.CreateFolder Server.MapPath(uploadPath  folderName) 
      End If 
      Set folder=Nothing 
      file=xmlhttp.ResponseBody 
      If lenb(file) > allowFileSize Then 
        getFile = "文件太大,不能保存!" 
        Exit Function 
      Else 
        Set objAdostream=Server.Createobject("ADODB.Str""eam") 
        objAdostream.Open() 
        objAdostream.Type=1 
        objAdostream.Write(file) 
        objAdostream.SaveToFile(Server.Mappath(uploadPath  folderName "/"  newFilePath)) 
        objAdostream.SetEOS 
        Set objAdostream=Nothing 
        getFile= "a href="""uploadPath  folderName "/"  newFilePath""" target=""_balnk"">采集成功/a>" 
      End If 
    End If 
    Set xmlhttp=Nothing 
  End Function 
%> 
script runat="server" language="jscript"> 
function cleanFileName(str){ 
 str = str.replace(/[^_\.a-zA-Z\d]/ig,""); 
 str = str.replace(/^[\/\.]+/,""); 
 return str; 

function getNow(n) 

  d = new Date(); 
  switch (n) 
  { 
    case "Year": 
      return d.getYear(); 
    case "Month": 
     return (d.getMonth() + 1); 
    case "Date": 
      return d.getDate(); 
  } 

/script> 
%if request("do")="getfile" and request("file") > "" then 
response.write(getFile(request("file"))) 
else%> 
form id="gform" method="post" action="?do=getfile" style="display: inline"> 
 input name="file" type="input" style="font-size:12px;" size="40" value="http://blog.xiaobin.net/uploads/200512/08_093616_01.gif">  
 input type="Submit" name="Submit" value="采集 " class="button"> 
/form> 
%end if%>

標(biāo)簽:楚雄 涼山 上海 南京 邢臺 赤峰 通遼 清遠(yuǎn)

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《自動采集程序》,本文關(guān)鍵詞  自動,采集,程序,自動,采集,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《自動采集程序》相關(guān)的同類信息!
  • 本頁收集關(guān)于自動采集程序的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章

    上一篇:登陸asp class

    下一篇:js+asp總結(jié)