Direkomendasikan: Selesaikan angka negatif dalam paging recordset ASP Mengenai fenomena angka negatif selama paging recordset, saya percaya banyak orang mengalami masalah ini. Angka negatif muncul terutama terkait dengan tipe kursor. (Untuk kenyamanan contoh, misalkan sudah ada file conn.asp yang menautkan database dan telah disertakan) sekarang berikan contoh, kodenya seperti
SDCMS Program Pengajuan Online
Kodenya adalah sebagai berikut
<!-#Sertakan file = inc/conn.asp->
<tautan href = style.css rel = stylesheet type = text/css>
<Tipe Gaya = Teks/CSS>
<!-
.Style1 {color: #ff0000}
tubuh, td, th {
font-size: 12px;
}
->
</tyle>
<bahasa skrip = javascript>
fungsi isfull ()
{
var title = document.myform.title.value;
var content = document.myform.content.value;
var classid = document.myform.classid.value;
var author = document.myform.author.value;
var code = document.myform.code.value;
if (title ==)
{
waspada (bagaimana dengan judulnya?);
document.myform.title.focus ();
mengembalikan false;
}
if (konten ==)
{
waspada (tulis beberapa konten);
document.myform.content.focus ();
mengembalikan false;
}
if (classid ==)
{
peringatan (pilih klasifikasi ...);
document.myform.classid.focus ();
mengembalikan false;
}
if (penulis ==)
{
waspada (tinggalkan nama Anda);
document.myform.author.focus ();
mengembalikan false;
}
if (kode ==)
{
waspada (sayangnya, jangan lupa untuk membawa verifikasi Melayu);
document.myform.code.focus ();
mengembalikan false;
}
if (classid ==)
{
peringatan (pilih klasifikasi ...);
document.myform.classid.focus ();
}
Kembali Benar;
}
</script>
<title> Kirim lelucon online </iteme>
</head>
<Lebar Tabel = 777 BORDER = 0 ALIGN = CENTER CELLPADING = 0 CellPacing = 0 bgcolor =#ffffff>
<tr>
<td width = 567 valign = top>
<Lebar Tabel = Batas 100% = 0 CellPacing = 0>
<tr>
<td> <a href = http: //joke.yingzi001.cn> kembali ke beranda </a>
<Lebar Tabel = 100% Border = 0 CellPacing = 0 CellPadding = 0>
<Form Action = Add.asp? Action = Add Method = Posting Nama = MyForm id = MyForm OnsubMit = Return ISFULL ();>
<tr>
<td align = center>
<%jika permintaan (tindakan) = lalu%>
<Lebar Tabel = Batas 100% = 0 CellPadding = 5 CellPacing = 0>
<tr>
<td width = 20% align = right> title </td>
<Lebar TD = 80%>
<Input Name = Judul Tipe = Teks ID = ukuran WP = 35>
* 30 kata sesuai^-^</td>
</tr>
<tr>
<td width = 20% align = kanan> konten </td>
<td>
<TextAreA Name = Content Cols = 60 ROWS = 10 ID = Content> </pextarea> </td>
</tr>
<tr>
<Lebar TD = 20% ALIGN = Right> Kategori </td>
<td>
<input name = classId type = Text ID = classId size = 3 readonly = readonly>
<%
Setel rs_s = server.CreateObject (adodb.recordset)
rs_s.open pilih * dari pesanan sd_class oleh id, conn, 1,1
%>
<SELECT NAME = SELECT2 ONCHANGE = (DOCORY.MYFORM.ClasSID.VALUE = this.Options [this.selectedIndex] .value)> <Opsi Selected> Pilih Kategori
<%
Meskipun tidak rs_s.eof
%>
<Nilai opsi = <%= rs_s (id)%>> <%= rs_s (title)%> </potion>
<%
rs_s.movenext
pergi ke
rs_s.close
atur rs_s = tidak ada
%>
</pilih>
* Klasifikasi secara otomatis sesuai dengan nomor seri </td>
</tr>
</boable>
<Lebar Tabel = 100% Border = 0 CellPadding = 5 CellPacing = 1>
<tr>
<td width = 20% align = bgcolor kanan =#ffffff> penulis </td>
<Lebar TD = 80% bgcolor =#ffffff> <input type = name penulis = penulis/>
- Nama samaran atau alamat situs web Anda dapat </td>
</tr>
<tr>
<Lebar TD = 20% Align = bgcolor kanan =#ffffff> Kode verifikasi </td>
<td> <input name = 'code' type = 'text' size = '6' maxlength = 4>
<img src = getCode.asp alt = tidak dapat melihat dengan jelas?
</tr>
<tr>
<td width = 20% bgcolor =#ffffff> & nbsp; </td>
<td width = 80% bgcolor =#ffffff> <input type = kirim nama = kirim2 nilai = kirimkan lelucon saya/> </td>
</tr>
</boable>
<%berakhir jika%>
</td>
</tr>
</form>
</boable>
</td>
</tr>
</able> </td>
</tr>
</boable>
</body>
</html>
<%
Jika permintaan (tindakan) = Tambahkan lalu
Jika ISEmpty (sesi (getCode)) atau sesi (getCode) <> ucase (request.form (kode)) kemudian
response.write <script> window.alert ('Di mana kuda verifikasi? Akan makan rumput? Situs ini menetapkan yang tidak dapat Anda kirim tanpa kuda ...'); </script>
response.write <script> location.href = 'add.asp' </script>
Respons.end
Kalau tidak
Judul, Konten, Penulis, ClassID
title = trim (request.form (title))
konten = trim (request.form (konten))
penulis = trim (request.form (penulis))
classid = trim (request.form (classId))
Set RS = Server.CreateObject (ADODB.Recordset)
SQL = Pilih * dari SD_INFO
Rs.open SQL, Conn, 1,3
rs.addnew
Panggilan savedata_dlinfo ()
rs.update
rs.close
Setel RS = tidak ada
Hubungi CloseConn ()
response.write <script> waspada ('ok! Terima kasih atas perhatian Anda! Ini akan ditampilkan setelah ditinjau!') </script>
response.redirect add.asp
akhiri jika
sub savedata_dlinfo
rs (judul) = judul
rs (konten) = konten
RS (penulis) = Penulis
RS (ClassID) = ClassID
RS (addDate) = Sekarang
akhir sub
akhiri jika
%>
Bagikan: Tutorial Instance ASP: Objek FilesystemObject Apakah file yang ditentukan oleh Objek FilesystemObject ada? Contoh ini menunjukkan cara membuat objek FileSystemObject terlebih dahulu, dan kemudian menggunakan metode FileExists untuk mendeteksi apakah ada file. Kode contoh ini adalah sebagai berikut: Berikut ini adalah konten yang direferensikan: html body %set fs = server.createObject (scripting.filesystemObject) if (fs.f