Программа сбора может прямо или косвенно получать данные в соответствии с правилами. Поэтому многие люди сами напишут программу сбора для удобства. Итак, как они должны написать программу сбора? Ниже приведен пример кода программы автоматической коллекции, составленной редактором Foxin для всех.
Кода -копия выглядит следующим образом:<%
При ошибке резюме следующим
Const uploadpath = "/uploads/"
Const alloundfileext = "jpg, wma, swf, gif", разрешены
'Const alluctionFilesize = "200"
Функция getFile (URL)
Если url = "" тогда
Выходная функция
Еще
url = trim (url)
Конец, если
'Получите файл
fileExt = lcase (mid (url, instrrev (url, ".")+1)) 'Тип файла
filename = lcase (mid (url, instrrev (url, "/")+1, instrrev (url, ".")-instrrev (url, "/")-1)) "Имя файла без типа файла
newFilePath = getNow ("date") & "_" & reply (formatDateTime (now (), 3), ":", "") & "_" & cleanFilename (имя файла) & ".". & fileExt
Если instr ("," & lcase (AllingFileext) & ",", ",", "& fileExt &", ") = 0
getFile = "Тип файла не разрешен"
Выходная функция
Конец, если
Установить xmlhttp = server.createObject ("microsoft.xmlhttp")
xmlhttp.open "get", url, false
xmlhttp.send
'While xmlhttp.readystate <> 4
'xmlhttp.waitforresponse 1000
'Венд
Если xmlhttp.status <> 200, тогда
getFile = "Ошибка получения файла"
Выходная функция
Еще
SET FOLDER = SERVER.CreateObject ("scripting.filesystemobject")
Dim Pollername
foldername = getNow ("Год") и GetNow ("месяц") 'Папка
Если folder.folderexists (server.mappath (uploadpath)) = false then
folder.createfolder server.mappath (uploadpath)
Конец, если
Если folder.folderexists (server.mappath (uploadpath & foldername)) = false then
folder.createfolder server.mappath (uploadpath & fotername)
Конец, если
Установить папку = ничего
file = xmlhttp.responsebody
Если lenb (файл)> allowfilesize, тогда
getFile = "Файл слишком большой, чтобы сохранить!"
Выходная функция
Еще
Установить objadoStream = server.createObject ("adodb.str" & "eam")
objadostream.open ()
objadoStream.type = 1
objadoStream.write (файл)
objadoStream.savetofile (server.mappath (uploadpath & foldername & "/" & newfilepath)))
objadostream.seteos
Установить ObjadoStream = ничего
getFile = "<a href =" "" & uploadpath & foldername & "/" & newfilepath & "" target = "" _ Balnk ""> Сборник успешно </a> "
Конец, если
Конец, если
Установите xmlhttp = ничего
Конечная функция
%>
<script runat = "server" language = "jscript">
Функция CleanFilename (str) {
str = str.replace (/[^_/. a-za-z/d]/ig, "");
str = str.Replace (/^^///.t+/, "");
вернуть Str;
}
функция getNow (n)
{
d = новая дата ();
переключатель (n)
{
Дело "Год":
return d.getyear ();
Дело "месяц":
return (d.getmonth () + 1);
Дело "дата":
return d.getDate ();
}
}
</script>
<%if refct ("do") = "getfile" и request ("file") <> "" Тогда
response.write (getfile (request ("file")))))
иначе%>
<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 = "Отправить" name = "Отправить" value = "collection" class = "кнопка">
</form>
<%конец, если%>
Выше приведен пример кода для программы автоматической сбора. Если вы хотите узнать глубже, вы можете ввести неправильный новый канал технологии, чтобы узнать об этом.