Direkomendasikan: Gunakan ASP untuk secara otomatis menguraikan alamat gambar di halaman web Sekarang editor HTML berdasarkan halaman web digunakan semakin banyak dalam sistem berita dan sistem artikel. Halaman web dapat mempertahankan gaya aslinya segera setelah menempel, dan gambar juga dapat dipelihara di halaman ini. Namun, selama penggunaan, jika gambar pada halaman yang ditempel dihapus, itu akan
ASP adalah teknologi yang diluncurkan oleh Microsoft untuk menggantikan antarmuka Universal Gateway. Nama lengkapnya adalah halaman server aktif. Ini adalah lingkungan yang berjalan di sisi server web. ASP itu sendiri berisi mesin VBScript dan JavaScript, yang memungkinkan skrip tertanam langsung ke HTML. Sekarang saya akan berbagi dengan Anda beberapa tips tentang bagaimana kami menggunakan ASP.
1. Kolom Berita
Sebagian besar halaman web memiliki bar berita untuk menampilkan topik berita terbaru. Klik topik ini untuk melihat laporan terperinci. Jika Anda menulisnya satu per satu di halaman web setiap hari, akan terlalu merepotkan untuk membuat tautan secara bergantian. Bagaimana cara membuatnya secara otomatis memperbarui berdasarkan file?
1. Persiapan:
1) Buat folder dan beri nama berita, dengan asumsi disimpan dalam D:/ ASP/ direktori;
2) Tulis konten terperinci dari setiap berita ke dalam file, dan bentuk penamaan dari file ini adalah: x (newStime) .htm. Di mana X adalah tema berita ini, dan NewsTime adalah waktu ketika berita dirilis (ditulis dalam urutan hari bulan tahun). Mengapa Anda menulis seperti ini? Anda akan tahu setelah membaca ide -ide algoritma dan program sumber di bawah ini.
2. Ide Algoritma: Untuk file di folder berita, urutkan dari besar ke kecil sesuai dengan waktu rilis berita dalam nama file mereka (mis. Konten dalam kurung). Dengan cara ini, berita terbaru berada di peringkat teratas. Selama beberapa nama file teratas di folder berita ditampilkan di posisi yang sesuai dari halaman web, berita terbaru dapat ditampilkan di kolom berita seperti yang dijelaskan dalam 1.
3. Blok Sumber (ditulis dalam VBScript)
| Berikut ini adalah konten yang dikutip: <% Redup fs, f, f1, fc, filenum jumlah redup redup i, j, t1, t2 file redup (100) Standar Tanggal Dim Mystr (100) dalam file Hitung = 0 Set FS = CreateObject (Scripting.FilesystemObject) Set f = fs.getFolder (d:/asp/news) Atur fc = f.files Untuk setiap F1 di FC hitung = hitung 1 'hitung jumlah file file (count) = fs.getBaseName (f1) 'Tag file basis nama mypos = instr (1, file (count), () ') posisi dalam nama dasar file 'Tanggal String di Nama Basis File mystr (count) = mid (file (count), mypos 1, len (file (count)) - (mypos 1)) Berikutnya untuk i = 1 untuk menghitung untuk j = 1 untuk menghitung-i Jika mystr (j) <mystr (j 1) lalu t1 = file (j) file (j) = file (j 1 file (j 1) = t1 t2 = mystr (j) mystr (j) = mystr (j 1) mystr (j 1) = t2 akhiri jika Berikutnya Berikutnya j = 1 Jika Count <10 maka 'Kolom Berita Menunjukkan 10 Berita Temcount = Count kalau tidak Temcount = 10 akhiri jika lakukan sementara j <= temcount%> <a href = file: /// d:/asp/news/<%= file (j)%> .htm target = new_window> <%= file (j)%> </a> <% j = j 1 lingkaran %> |
4. Konten Kolom Berita yang Diperbarui:
Selama Anda mengembangkan kebiasaan menulis yang baik, buat nama berita mengikuti persyaratan 1, dan kemudian simpan file tertulis ke folder berita, 10 berita terbaru akan ditampilkan secara otomatis.
2. Papan Buletin
Selain kolom berita, yang paling umum digunakan adalah papan buletin, yang terutama digunakan untuk menampilkan beberapa pemberitahuan penting. Tentu saja, pemberitahuan ini perlu sering diubah. Apakah Anda akan membiarkan pengguna pergi ke program sumber untuk memodifikasi setiap kali mereka mengubah konten pengumuman? Tentu saja tidak. Kami harus memberikan antarmuka pemeliharaan kepada pengguna, sehingga selama pengguna memasukkan pemberitahuan, konten pemberitahuan secara alami akan ditampilkan di papan buletin di halaman web.
1. Kunci untuk memecahkan masalah ini terletak pada aplikasi fleksibel dari objek fileSystemObject dan objek TextStream. Dalam aplikasi yang sebenarnya, Anda tidak perlu membuat objek TextStream sendiri, karena selama Anda membuka file dengan Objek FileSystemObject, sistem akan secara otomatis membuat objek TextStream. Artinya, begitu metode OpenTextFile atau CreateTextFile disebut, objek TextStream akan dilewatkan.
2. Ada tiga file yang relevan yang diperlukan: update.asp, pengumuman.
3. Fungsi utama dan blok sumber dari tiga file:
1) update.asp
Fungsi utama adalah membiarkan pengguna memasukkan pengumuman untuk ditampilkan, memverifikasi apakah konten input kosong. Jika tidak kosong, itu akan diserahkan ke program pengumuman.asp untuk diproses.
| Berikut ini adalah konten yang dikutip: <Html> <head> <meta http-equiv = konten-tipe konten = teks/html; Charset = GB2312> <meta name = Content generator = Microsoft FrontPage 4.0> <meta name = progid content = frontPage.Editor.document> <title> Perbarui konten papan buletin </iteme> </head> <body> <bahasa skrip = vbscript> function Datacheck () redup msg, errflag errflag = true if len (trim (maint.t1.value)) = 0 lalu Focusto (0) errflag = false msg = silakan masukkan konten pengumuman yang akan dikirimkan akhiri jika if (errflag = false) lalu MSGBox MSG, 64, oh tidak! fungsi keluar akhiri jika DataCheck = errflag mempertahankan.submit fungsi akhir sub focusto (x) Document.Maintain.elements (x) .focus () akhir sub </script> ① <Form Method = Post Action = pengumuman.asp name = Maint> <p> <input type = name teks = t1 size = 84> <input type = reset value = name write ulang = b2> <input type = nilai tombol = Kirimkan nama = b1 onClick = Datacheck ()> </p> <HR color =#ff99ff size = 1> </form> </body> </html> |
Bagian Tindakan = Pengumuman.
2) pengumuman.asp
File pemeliharaan .txt file dibaca dan tulis melalui objek fileSystemObject dan objek TextScream, sehingga konten 5 baris teratas file ini adalah pengumuman yang akan ditampilkan di papan buletin.
| Berikut ini adalah konten yang dikutip: <% redup str str = request.form (t1) redup (5) const forreading = 1, forwriting = 2 redup fso, myfile atur fso = server.createObject (scripting.filesystemObject) Setel myfile = fso.opentextFile (Pertahankan Text.txt, Forreading) 'Buka File dalam Mode Membaca untuk i = 1 hingga 5 'papan buletin menampilkan 5 pengumuman secara total s (i) = myfile.readline'Read Konten File Berikutnya myfile.close Setel myFile = fso.opentextFile (Pertahankan Text.txt, Forwriting, True) 'Buka File dalam Mode Penulisan myFile.WriteLine str untuk i = 1 hingga 4 myfile.writeLine S (i) 'Tulis data kembali ke file Berikutnya myfile.close %> |
3) Pertahankan Text.txt
File ini mulai kosong, dan setelah memasukkan pengumuman dari antarmuka yang ditampilkan di Update .asp, konten file ini ditulis secara otomatis.
4. Tambahkan kode berikut ke segmen kode di mana lokasi pengumuman untuk menampilkan pengumuman pembaruan di file halaman beranda (biasanya default.asp) untuk menampilkan pengumuman yang diperbarui.
| Berikut ini adalah konten yang dikutip: <marquee scrolllamount = 2 scrolldelay = 50 arah = lebar atas = 223 tinggi = 133 id = a onmouseover = a.stop () onmouseout = a.start ()> gulir ke atas dan ke bawah papan buletin <% Redup (20) Redup fso, myfile Atur fso = createObject (scripting.filesystemObject) Setel myfile = fso.opentextFile (d:/asp/memelihara/memelihara text.txt, 1, true) untuk i = 1 hingga 5 ReadlinetextFile = myfile.readline S (i) = ReadLinetextFile Response.write ★ & S (i) Response.write <br> Berikutnya %> </sarquee> |
Dua tip di atas dapat menyelesaikan banyak masalah seperti itu dengan belajar dari satu contoh. Penggemar desain web mungkin juga mencobanya.
Bagikan: Pemahaman terdalam tentang sesi dan cookie Mari kita bicara tentang debat sesi tentang sesi, tetapi harus ada lebih dari 90 orang yang dapat memahami sesi. Tapi izinkan saya memberi tahu Anda, jangan berpikir Anda sudah tua ~ beberapa orang setuju dengan sesi, sementara yang lain tidak setuju. Tapi apa sebenarnya yang harus saya katakan tentang pertanyaan ini? Mengapa tidak mendengarkan