แนะนำ: แก้ตัวเลขลบใน ASP Recordset Paging เกี่ยวกับปรากฏการณ์ของจำนวนลบในระหว่างการเพจชุดบันทึกฉันเชื่อว่าหลายคนพบปัญหานี้ ตัวเลขเชิงลบส่วนใหญ่เกี่ยวข้องกับประเภทเคอร์เซอร์ (เพื่อความสะดวกของตัวอย่างสมมติว่ามีไฟล์ conn.asp อยู่แล้วที่เชื่อมโยงฐานข้อมูลและรวมอยู่ด้วย) ตอนนี้ให้ตัวอย่างรหัสเป็นเหมือน
โปรแกรมการส่งออนไลน์ SDCMS
รหัสมีดังนี้
<!-#รวมไฟล์ = inc/conn.asp->
<link href = style.css rel = stylesheet type = text/css>
<style type = text/css>
-
.STYLE1 {สี: #FF0000}
ร่างกาย, td, th {
ขนาดตัวอักษร: 12px;
-
-
</style>
<ภาษาสคริปต์ = JavaScript>
ฟังก์ชั่น 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 ==)
-
การแจ้งเตือน (แล้วชื่อเรื่อง?);
document.myform.title.focus ();
กลับเท็จ;
-
ถ้า (เนื้อหา ==)
-
การแจ้งเตือน (เขียนเนื้อหาบางส่วน);
document.myform.content.focus ();
กลับเท็จ;
-
ถ้า (classid ==)
-
การแจ้งเตือน (เลือกการจำแนกประเภท ... );
document.myform.classid.focus ();
กลับเท็จ;
-
ถ้า (ผู้เขียน ==)
-
แจ้งเตือน (ทิ้งชื่อของคุณ);
document.myform.author.focus ();
กลับเท็จ;
-
ถ้า (รหัส ==)
-
การแจ้งเตือน (อนิจจาอย่าลืมนำการตรวจสอบมาเลย์);
document.myform.code.focus ();
กลับเท็จ;
-
ถ้า (classid ==)
-
การแจ้งเตือน (เลือกการจำแนกประเภท ... );
document.myform.classid.focus ();
-
กลับมาจริง;
-
</script>
<title> ส่งเรื่องตลกออนไลน์ </title>
</head>
<ความกว้างของตาราง = 777 border = 0 Align = Center cellpading = 0 cellpacing = 0 bgcolor =#ffffff>
<tr>
<td width = 567 valign = top>
<ความกว้างของตาราง = 100% border = 0 cellpacing = 0>
<tr>
<td> <a href = http: //joke.yyingzi001.cn> กลับไปที่หน้าแรก </a>
<ความกว้างของตาราง = 100% border = 0 cellpacing = 0 cellpadding = 0>
<form action = add.asp? action = เพิ่ม method = post name = myform id = myform onsubmit = return iSfull ();>
<tr>
<td align = center>
<%ถ้าคำขอ (การกระทำ) =%>
<ความกว้างของตาราง = 100% border = 0 cellpadding = 5 cellpacing = 0>
<tr>
<td width = 20% allign = ขวา> title </td>
<td width = 80%>
<ชื่ออินพุต = ชื่อประเภท = ข้อความข้อความ = size wp = 35>
* 30 คำเหมาะสม^-^</td>
</tr>
<tr>
<td width = 20% allign = ขวา> เนื้อหา </td>
<td>
<textarea name = content cols = 60 rows = 10 id = เนื้อหา> </textarea> </td>
</tr>
<tr>
<td width = 20% allign = ขวา> หมวดหมู่ </td>
<td>
<ชื่ออินพุต = classId type = text id = classid size = 3 readonly = readonly>
-
ตั้งค่า rs_s = server.createObject (adodb.recordset)
rs_s.open select * จากคำสั่ง sd_class โดย id, conn, 1,1
-
<select name = select2 onChange = (document.myform.classid.value = this.options [this.selectedIndex] .Value)> <เลือกตัวเลือก> โปรดเลือกหมวดหมู่
-
ในขณะที่ไม่ใช่ rs_s.eof
-
<ค่าตัวเลือก = <%= rs_s (id)%>> <%= rs_s (ชื่อ)%> </portion>
-
rs_s.movenext
ใช้
rs_s.close
ตั้งค่า rs_s = ไม่มีอะไร
-
</เลือก>
* การจำแนกประเภทสอดคล้องกับหมายเลขซีเรียลโดยอัตโนมัติ </td>
</tr>
</table>
<ความกว้างของตาราง = 100% border = 0 cellpadding = 5 cellpacing = 1>
<tr>
<td width = 20% allign = ขวา bgcolor =#ffffff> ผู้แต่ง </td>
<td width = 80% bgcolor =#ffffff> <อินพุตประเภท = ชื่อผู้เขียน = ผู้เขียน/>
- นามแฝงหรือที่อยู่เว็บไซต์ของคุณสามารถ </td>
</tr>
<tr>
<td width = 20% allign = ขวา bgcolor =#ffffff> รหัสการตรวจสอบ </td>
<td> <name input = 'code' type = 'text' size = '6' maxLength = 4>
<img src = getCode.asp alt = ไม่เห็นชัดเจน?
</tr>
<tr>
<td width = 20% bgcolor =#ffffff> & nbsp; </td>
<td width = 80% bgcolor =#ffffff> <ประเภทอินพุต = submit name = submit2 value = ส่งเรื่องตลกของฉัน/> </td>
</tr>
</table>
<%end ถ้า%>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>
-
หากคำขอ (การกระทำ) = เพิ่มแล้ว
ถ้า isEmpty (เซสชัน (getCode)) หรือเซสชัน (getCode) <> ucase (request.form (รหัส)) จากนั้น
Response.write <Script> window.alert ('ม้าตรวจสอบอยู่ที่ไหนฉันไปกินหญ้า? เว็บไซต์นี้กำหนดว่าคุณไม่สามารถส่งได้หากไม่มีม้า ... '); </script>
Response.write <Script> location.href = 'add.asp' </script>
Response.end
อื่น
ชื่อสลัว, เนื้อหา, ผู้แต่ง, classid
title = trim (request.form (title))
content = trim (request.form (เนื้อหา))
ผู้แต่ง = trim (request.form (ผู้เขียน))
classID = trim (request.form (classID))
ตั้งค่า rs = server.createObject (adodb.recordset)
SQL = เลือก * จาก SD_INFO
Rs.Open SQL, Conn, 1,3
Rs.Addnew
โทร savedata_dlinfo ()
Rs.update
Rs.close
ตั้งค่า rs = ไม่มีอะไร
โทร closeconn ()
Response.write <script> การแจ้งเตือน ('ตกลง! ขอบคุณสำหรับความสนใจของคุณ! มันจะปรากฏขึ้นหลังจากการตรวจสอบ!') </script>
Response.redirect add.asp
สิ้นสุดถ้า
SUB SAVEDATA_DLINFO
RS (ชื่อเรื่อง) = ชื่อเรื่อง
RS (เนื้อหา) = เนื้อหา
RS (ผู้แต่ง) = ผู้แต่ง
RS (classID) = classID
rs (adddate) = ตอนนี้
สิ้นสุดย่อย
สิ้นสุดถ้า
-
แบ่งปัน: ASP Instance Tutorial: FileSystemObject Object ไฟล์ที่ระบุโดยวัตถุ FilesystemObject มีอยู่หรือไม่? ตัวอย่างนี้แสดงให้เห็นถึงวิธีการสร้างวัตถุ FileSystemObject ก่อนจากนั้นใช้วิธี FileeExists เพื่อตรวจสอบว่ามีไฟล์อยู่หรือไม่ รหัสของตัวอย่างนี้มีดังนี้: ต่อไปนี้เป็นเนื้อหาอ้างอิง: HTML Body %Set Fs = Server.createObject (Script.FilesYstemObject) ถ้า (fs.f