Recommandé: une fonction de pagination ASP pratique Partagez une fonction de pagination ASP, elle a l'air plutôt bien. La vue est indiquée sur la figure: vous pouvez le modifier en fonction de votre propre situation. Code:% 'xie liang répare le programme de pagination'call PageControl (enregistrements totaux, numéro de page total, page actuelle) Sub-PageControl (iCount, PageCount, page) Response.Write (Style Type = Text / CSS / * Xie Liang Pagination CSS * / Div.Pager {Padding: 10px Liang Liang
Un modèle utilise le composant de téléchargement de fichiers ASP pour télécharger un fichier sur le serveur pour déterminer si la taille du fichier dépasse la taille spécifiée. Cet exemple parle du composant de téléchargement de fichiers upload_5xsoft. File.filesize> 10000000 peut limiter le nombre de fichiers k aux.
Dim Upload, File, FormName, FormPath, iCount, FileName, FileExt
set upload = new upload_5xsoft 'Créer un objet Télécharger
FormPath = télécharger / 'add (/) après le répertoire
Si bien (formPath, 1) <> / puis formPath = formPath & /
pour chaque nom de formulaire dans upload.file 'liste tous les fichiers téléchargés
set file = upload.file (formName) 'générer un objet de fichier
Si file.filesize> 1000000 alors
message = 1
else 'si la taille des fichiers <20000 signifie qu'il y a des données de fichiers
fileExt = lCase (droite (file.filename, 4))
si fileXt <>. exe and fileext <>. zip and fileext <>. rar and fileext <>. mxp alors
Message = 2
autre
randomiser
rannum = int (90000 * rnd) +10000
FileName = FormPath & LemongTree_ & Year (Now) & Mois (Now) & Day (Now) & Hour (Now) & Minute (Now) & Second (Now) & Rannum & FileExt
file.saveas server.mappath (nom de fichier) 'Enregistrer le fichier
Si fileext = .zip alors
uploadType = zip
elseif fileext = .rar alors
uploadType = rar
elseif fileext = .mxp alors
uploadType = MXP
elseif fileext = .exe alors
uploadType = exe
terminer si
uploadchar = nom de fichier
size = clng (file.filesize) / 1000
Message = 3
terminer si
terminer si
suivant
%>
<% si message = 1 alors%>
<html>
<adal>
<Title> La taille dépasse la norme </Title>
<meta http-equiv = contenu contenu contenu = text / html; charse = gb2312>
<Script Language = Effets de la page Web>
fonction error_size ()
{
alerte (la taille du fichier dépasse 1000 Ko, veuillez reélectionner.);
window.location = upload.asp;
}
</cript>
</ head>
<Body bgColor = # f2f2f2 Leftmargin = 0 topmargin = 0 onload = error_size ()>
</docy>
</html>
<% elseif message = 2 puis%>
<html>
<adal>
<Title> Type Mismatch </Title>
<meta http-equiv = contenu contenu contenu = text / html; charse = gb2312>
<Script Language = JavaScript>
fonction error_type ()
{
alerte (téléchargez uniquement les fichiers zip / rar / exe / mxp n veuillez sélectionner le type de fichier correct!);
window.location = upload.asp;
}
</cript>
</ head>
<Body bgColor = # f2f2f2 Leftmargin = 0 topmargin = 0 onload = error_type ()>
</docy>
</html>
<% elseif message = 3 puis%>
<html>
<adal>
<Title> Téléchargé avec succès </TITME>
<meta http-equiv = contenu contenu contenu = text / html; charse = gb2312>
<Script Language = JavaScript>
fonction image_success ()
{
alert (téléchargement de fichiers avec succès!);
parent.form1.url1.value = <% = uploadchar%>
parent.form1.size.value = <% = size%> k
window.location = upload.asp;
}
</cript>
</ head>
<Body bgColor = # f2f2f2 Leftmargin = 0 topmargin = 0 onload = image_success ()>>
</docy>
</html>
<% fin si%>
<%
set file = rien
set upload = rien '' Supprimer cet objet
%>
Partage: fonctionnalités et fonctions de la production de site Web ASP Language ASP (abréviation de la page du serveur actif) signifie la page Web du serveur actif. ASP est une application développée par Microsoft pour remplacer les programmes de script CGI. Il peut interagir avec les bases de données et autres programmes et est un outil de programmation simple et pratique. Le format du fichier de page Web d'ASP est .asp, et il est maintenant couramment utilisé dans divers sites Web dynamiques. ASP est un environnement de script côté serveur qui peut être utilisé