Empfohlen: eine praktische ASP -Paginierungsfunktion Teilen Sie eine ASP -Paginierungsfunktion, sie sieht ziemlich gut aus. Die Ansicht ist in der Abbildung dargestellt: Sie können sie nach Ihrer eigenen Situation ändern. Code: % 'xie Liang repariert das Paging -Programm'call pageControl (Gesamtdatensätze, Gesamtseitennummer, aktuelle Seite) Sub PageControl (ICOUNT, PAGECOUNT, PAGE) Antwort.
Ein Modell verwendet die ASP -Datei -Upload -Komponente, um eine Datei auf den Server hochzuladen, um festzustellen, ob die Dateigröße die angegebene Größe überschreitet. In diesem Beispiel wird über die Upload -Datei -Upload -Komponente upload_5xsoft -Datei gesprochen. Datei.FileSize> 10000000 kann die Anzahl der K -Dateien auf.
Dim Upload, Datei, Formname, FormPath, Icount, Dateiname, FileExte
upload = new Upload_5xsoft 'Upload -Objekt erstellen
FormPath = Download/ 'add (/) nach dem Verzeichnis
Wenn rechts (FormPath, 1) <>/ dann formPath = FormPath &/
Für jeden Formnamen in upload.file 'liste alle hochgeladenen Dateien auf.
set File = upload.file (Formname) 'ein Dateiobjekt Generieren Sie ein Dateiobjekt
Wenn Datei.FileSize> 1000000 dann
Nachricht = 1
Ansonsten 'Wenn Filesize <20000 bedeutet, dass Dateidaten vorhanden sind
Fileext = Lase (rechts (Datei.FileName, 4))
Wenn DateiEXT <>. Exe und FileEXT <>. ZIP und FileEXT <>. rar und Fileext <>. mxp dann
Nachricht = 2
anders
randomisieren
Rannum = int (90000*RND) +10000
Dateiname = FormPath & lemoncttree_ & Jahr (jetzt) & monat (jetzt) & Tag (jetzt) & Stunde (jetzt) & Minute (jetzt) und zweiter (jetzt) & rannum & fileext
Datei.Saveas Server.Mappath (Dateiname) 'Datei speichern
Wenn Dateiext = .zip dann
UploadType = ZIP
elseif Fileext = .rar dann
UploadType = rar
elseif fileext = .mxp dann
uploadType = mxp
elseif fileext = .exe dann
UploadType = exe
Ende wenn
UploadChar = Dateiname
size = clng (Datei.FileSize)/1000
Nachricht = 3
Ende wenn
Ende wenn
nächste
%>
<% wenn message = 1 dann%>
<html>
<kopf>
<title> Größe überschreitet den Standard </title>
<meta http-äquiv = content-type content = text/html; charSet = gb2312>
<Skript Sprache = Webseiteneffekte>
Funktion error_size ()
{
ALERT (die Dateigröße überschreitet 1000 KB, bitte wählen Sie erneut aus);
window.location = upload.asp;
}
</script>
</head>
<body bgcolor =#f2f2f2 linksmargin = 0 topmargin = 0 onload = error_size ()>
</body>
</html>
<% elseif message = 2 dann%>
<html>
<kopf>
<title> Mismatch </title> Type
<meta http-äquiv = content-type content = text/html; charSet = gb2312>
<script Language = JavaScript>
Funktion ERRAGE_TYPE ()
{
ALERT (Nur ZIP/RAR/EXE/MXP -Dateien hochladen n Bitte wählen Sie den richtigen Dateityp!);
window.location = upload.asp;
}
</script>
</head>
<Body Bgcolor =#f2f2f2 linksmargin = 0 TopMargin = 0 onload = error_type ()>
</body>
</html>
<% elseif message = 3 dann%>
<html>
<kopf>
<titels> erfolgreich hochgeladen </title>
<meta http-äquiv = content-type content = text/html; charSet = gb2312>
<script Language = JavaScript>
Funktion image_success ()
{
alarm (Datei -Hochladen erfolgreich!);
parent.form1.url1.Value = < %= Uploadchar %>
parent.form1.size.Value = <%= Größe%> k
window.location = upload.asp;
}
</script>
</head>
<body bgcolor =#f2f2f2 linksmargin = 0 topmargin = 0 onload = Image_Success ()>
</body>
</html>
< % Ende wenn %>
<%
Setzen Sie Datei = nichts
Setzen Sie Upload = Nothing '' Löschen Sie dieses Objekt
%>
Teilen: Funktionen und Funktionen der Website -Produktion ASP Sprache ASP (Abkürzung der aktiven Serverseite) bezeichnet die aktive Server -Webseite. ASP ist eine von Microsoft entwickelte Anwendung, um CGI -Skriptprogramme zu ersetzen. Es kann mit Datenbanken und anderen Programmen interagieren und ist ein einfaches und bequemes Programmierwerkzeug. Das Format der Web -Datei von ASP ist .asp und wird jetzt üblicherweise in verschiedenen dynamischen Websites verwendet. ASP ist eine serverseitige Skriptumgebung, die verwendet werden kann