Direkomendasikan: Fungsi pagination ASP praktis Bagikan fungsi pagination ASP, terlihat cukup bagus. Tampilan ditunjukkan pada gambar: Anda dapat memodifikasinya sesuai dengan situasi Anda sendiri. Kode: % 'Xie Liang memperbaiki program paging'call pagecontrol (Catatan Total, Nomor Halaman, Halaman Saat Ini) Sub Pagecontrol (ICount, PageCount, Page) Response.Write (Tipe Gaya = Teks/CSS/*Xie Liang Pagination CSS*/Div.pager {Padding: 10px
Model menggunakan komponen unggahan file ASP untuk mengunggah file ke server untuk menentukan apakah ukuran file melebihi ukuran yang ditentukan. Contoh ini berbicara tentang komponen unggah file unggah_5xsoft. File.filesize> 10000000 dapat membatasi jumlah file k.
unggahan redup, file, formname, formpath, icount, nama file, fileext
Setel unggah = unggah_5xsoft baru 'Buat Objek Unggah
Formpath = download/ 'add (/) setelah direktori
Jika benar (formpath, 1) <>/ lalu formpath = FormPath &/
untuk setiap formname di unggah.file 'daftar semua file yang diunggah
Setel file = unggah.
Jika file.filesize> 1000000 lalu
pesan = 1
lain 'Jika FileSe <20000 berarti ada data file
fileExt = lcase (kanan (file.filename, 4))
Jika fileext <>. exe dan fileext <>. zip dan fileext <>. rar dan fileext <>. mxp lalu
pesan = 2
kalau tidak
mengacak
rannum = int (90000*rnd) +10000
FileName = formpath & lemongtree_ & tahun (sekarang) & bulan (sekarang) & hari (sekarang) & jam (sekarang) & menit (sekarang) & kedua (sekarang) & rannum & fileext
File.Saveas Server.Mappath (FileName) 'Simpan File
Jika fileext = .zip lalu
unggahType = zip
elseif fileExt = .rar lalu
unggahType = rar
elseif fileext = .mxp kalau begitu
unggahType = mxp
elseif fileext = .exe kalau begitu
unggahType = exe
akhiri jika
unggahChar = nama file
size = clng (file.filesize)/1000
Pesan = 3
akhiri jika
akhiri jika
Berikutnya
%>
<% jika pesan = 1 lalu%>
<Html>
<head>
Ukuran <Title> melebihi standar </iteme>
<meta http-equiv = konten-tipe konten = teks/html; Charset = GB2312>
<bahasa skrip = efek halaman web>
function error_size ()
{
peringatan (ukuran file melebihi 1000kb, silakan pilih kembali.);
window.location = unggah.asp;
}
</script>
</head>
<body bgcolor =#f2f2f2 leftmargin = 0 topmargin = 0 onload = error_size ()>
</body>
</html>
<% elseif pesan = 2 lalu%>
<Html>
<head>
<title> ketik ketidakcocokan </iteme>
<meta http-equiv = konten-tipe konten = teks/html; Charset = GB2312>
<bahasa skrip = javascript>
function error_type ()
{
Peringatan (hanya unggah file zip/rar/exe/mxp n Harap pilih jenis file yang benar!);
window.location = unggah.asp;
}
</script>
</head>
<body bgcolor =#f2f2f2 leftmargin = 0 topmargin = 0 onload = error_type ()>
</body>
</html>
<% elseif pesan = 3 lalu%>
<Html>
<head>
<title> diunggah dengan sukses </iteme>
<meta http-equiv = konten-tipe konten = teks/html; Charset = GB2312>
<bahasa skrip = javascript>
function image_success ()
{
peringatan (file unggah berhasil!);
Parent.Form1.url1.value = < %= unggah %>
Parent.Form1.size.Value = <%= ukuran%> k
window.location = unggah.asp;
}
</script>
</head>
<body bgcolor =#f2f2f2 leftmargin = 0 topmargin = 0 onload = image_success ()>
</body>
</html>
< % berakhir jika %>
<%
Setel file = tidak ada
atur unggah = tidak ada '' hapus objek ini
%>
Bagikan: Fitur dan Fungsi Bahasa ASP Produksi Situs Web ASP (singkatan dari halaman server aktif) berarti halaman web server aktif. ASP adalah aplikasi yang dikembangkan oleh Microsoft untuk menggantikan program skrip CGI. Ini dapat berinteraksi dengan basis data dan program lain dan merupakan alat pemrograman yang sederhana dan nyaman. Format file halaman web ASP adalah .asp, dan sekarang biasanya digunakan di berbagai situs web dinamis. ASP adalah lingkungan skrip sisi server yang dapat digunakan