Рекомендуется: практическая функция ASP Pagination Поделитесь функцией Pagination ASP, она выглядит довольно хорошо. Представление показано на рисунке: вы можете изменить его в соответствии с вашей собственной ситуацией. Код: % 'xie liang Ремонт программы пейджинга «Коловой PageControl (общее количество записей, общее число страницы, текущая страница) sub pagecontrol (icount, pagecount, page) response.write (тип стиля = текст/css/*xie liang css css*/div.pager {padding: 10px/*xie liang css*/div.pager
Модель использует компонент загрузки файла ASP для загрузки файла на сервер, чтобы определить, превышает ли размер файла указанный размер. В этом примере рассказывается о компоненте загрузки файла upload_5xsoft. File.filesize> 10000000 может ограничить количество k файлов.
Dim загрузка, файл, FormName, FormPath, Icount, FileName, FileExt
Настройка upload = new okload_5xsoft 'создать объект загрузки
Formpath = скачать/ 'добавить (/) после каталога
Если право (FormPath, 1) <>/ Then FormPath = formPath &///
Для каждого имени FormName в списке upload.file 'все загруженные файлы
set file = opload.file (formname) 'Сгенерировать объект файла
Если file.filesize> 1000000, тогда
Сообщение = 1
else ', если файл размером <20000 означает, что есть данные файла
fileExt = lcase (right (file.filename, 4))
Если FileExt <>. Exe и FileExt <>. Zip и FileExt <>. rar и fileExt <>.
Сообщение = 2
еще
рандомизировать
rannum = int (90000*rnd) +10000
FileName = FormPath & Lemongtree_ & Год (сейчас) и месяц (сейчас) и день (сейчас) и час (сейчас) и минута (сейчас) и второй (сейчас) и Rannum & FileExtext
file.saveas server.mappath (имя файла) 'Сохранить файл
Если FileExt = .zip then
uploadtype = zip
elseif fileext = .rar тогда
uploadtype = rar
elseif fileext = .mxp тогда
uploadtype = mxp
elseif fileext = .exe тогда
uploadtype = exe
конец, если
uploadchar = имя файла
size = clng (file.filesize)/1000
Сообщение = 3
конец, если
конец, если
следующий
%>
<% if message = 1, то%>
<html>
<голова>
<title> размер превышает стандартный </title>
<meta http-equiv = content-type content = text/html; charset = gb2312>
<сценарий языка = эффекты веб -страницы>
function error_size ()
{
оповещение (размер файла превышает 1000 КБ, пожалуйста, зайдите.);
window.location = upload.asp;
}
</script>
</head>
<body bgcolor =#f2f2f2 leftmargin = 0 topmargin = 0 onload = error_size ()>
</body>
</html>
<% elseif message = 2, затем%>
<html>
<голова>
<название> Тип несоответствия </title>
<meta http-equiv = content-type content = text/html; charset = gb2312>
<сценарий языка = javascript>
function error_type ()
{
Alert (только загрузить файлы Zip/rar/exe/mxp n Пожалуйста, выберите правильный тип файла!);
window.location = upload.asp;
}
</script>
</head>
<body bgcolor =#f2f2f2 leftmargin = 0 topmargin = 0 onload = error_type ()>
</body>
</html>
<% else elfect message = 3, затем%>
<html>
<голова>
<Title> Загружено успешно </title>
<meta http-equiv = content-type content = text/html; charset = gb2312>
<сценарий языка = javascript>
function image_success ()
{
предупреждение (успешно загрузка файла!);
parent.form1.url1.value = < %= uploadchar %>
parent.form1.size.value = <%= size%> k
window.location = upload.asp;
}
</script>
</head>
<body bgcolor =#f2f2f2 leftmargin = 0 topmargin = 0 onload = image_success ()>
</body>
</html>
< % end, если %>
<%
Установить файл = ничего
Настройка okload = ничего '' Удалить этот объект
%>
Поделиться: функции и функции производства веб -сайта ASP (аббревиатура страницы Active Server) означает веб -страницу Active Server. ASP - это приложение, разработанное Microsoft для замены программ сценариев CGI. Он может взаимодействовать с базами данных и другими программами и является простым и удобным инструментом программирования. Форматом файла веб -страницы ASP является .asp, и теперь он обычно используется на различных динамических веб -сайтах. ASP-это среда сценариев на стороне сервера, которую можно использовать