แนะนำ: ASP+SQL2000 ขั้นตอนการจัดสรรขั้นตอนการจัดเก็บ 1. ส่งคืนขั้นตอนที่เก็บไว้ของจำนวนชุดบันทึกทั้งหมด: สร้างขั้นตอน dbo.recordCount (@tablename nvarchar (100)-ชื่อตาราง-ดาตาบาร์ @strows nvarchar (500)-เงื่อนไข @count int-int --- ค่าเอาท์พุทจำนวนทั้งหมดของชุดบันทึก)
- -
- -
- 'โปรแกรมแนะนำ: กรอกการลบการแก้ไขและการดูข้อความโหนดที่ระบุในเอกสาร XML โดยภาษา ASP
- 'พารามิเตอร์รายการ: ไม่มี
- 'พารามิเตอร์การส่งออก: ไม่มี
- -
- 'ชื่อฟังก์ชั่น: connectxml ()
- 'พารามิเตอร์การ Entermination: ชื่อไฟล์ต้องการการเชื่อมต่อหรือเปิดชื่อไฟล์ XML
- 'พารามิเตอร์การส่งออก: ไม่มี
- 'ค่าส่งคืน: connectxml = 0, xmlmorntekDocument เป็นวัตถุที่โหลดเอกสาร XML ได้สำเร็จ
- 'connectxml <> 0, พิมพ์ข้อความแสดงข้อผิดพลาด strerror
- -
- dimxmlmorntekdocument
- FunctionConnectxml (ชื่อไฟล์)
- dimstrsourcefile
- strSourceFile = server.mappath (ชื่อไฟล์)
- setxmlMorntekDocument = server.createObject (microsoft.xmldom)
- xmlmorntekdocument.async = false
- XMLMORNTEKDOCUMENT.LOAD (StrSourceFile)
- connectxml = xmlmorntekdocument.parseerror.errorCode
- ifxmlmorntekDocument.parseerror.errorCode <> 0 แล้ว
- strerror = <h2> ข้อผิดพลาด & xmlmorntekdocument.parseerror.errorCode & </h2>
- StrerRorStRerRorRorRorStRerRorRor = Strerror & XMLMORNTEKDOCUMENT.PARSEERROR.REASON & <BR>
- StrerRorStRerRorRorRorStRerRorror = Strerror & XmlMorntekDocument.parseerror.url & <br>
- StrerRorStRerRorRorRorStRerRorror = Strerror & XMLMORNTEKDocument.parseerror.line & <br>
- StrerRorStRerRorRorRorStRerRorror = Strerror & XmlMorntekDocument.parseerror.filepos & <br>
- strerRorStRerRorRorRorStRerRororror = strerror & xmlmorntekdocument.parseerror.srctext & <br>
- Response.WritestReror
- endif
- endfunction
- -
- 'ชื่อฟังก์ชั่น: closexml ()
- 'พารามิเตอร์รายการ: ไม่มี
- 'พารามิเตอร์การส่งออก: ไม่มี
- -
- functionclosexml (xmlmorntekdocument)
- ifisObject (xmlmorntekdocument) จากนั้น
- setxmlmorntekDocument = ไม่มีอะไร
- endif
- endfunction
- -
- 'ชื่อฟังก์ชั่น: selectxmlnodetext (ElementName)
- 'พารามิเตอร์รายการ: ชื่อขององค์ประกอบ ElementName
- 'พารามิเตอร์การส่งออก: ไม่มี
- -
- functionSelectxMlNodeText (ElementName)
- ElementName = // & ElementName
- temp = xmlmorntekdocument.selectsingLenode (ElementName) .Text
- selectxmlnodetext = server.htmlencode (temp)
- endfunction
- -
- 'ชื่อฟังก์ชั่น: insertxmlNodeText (befelementName, ElementName, ElementText)
- 'พารามิเตอร์รายการ: ชื่อขององค์ประกอบที่แทรกโดย ElementName
- 'องค์ประกอบแทรก befelementName ก่อนชื่อขององค์ประกอบนี้
- 'ข้อความ elementtext ขององค์ประกอบที่แทรก
- 'พารามิเตอร์การส่งออก: ไม่มี
- -
- FunctionInserTxMlNodeText (befelementName, ElementName, ElementText)
- dimbefelement, องค์ประกอบ
- SetBeFelement = XMLMORNTEKDOCUMENT.SELECTSINGLENODE (// & BEFELEMENTNAME)
- setElement = XMLMORNTEKDOCUMENT.CreateElement (ElementName)
- Mistress.InsertBeForElement, befelement.firstchild
- element.text = elementText
- endfunction
- -
- 'ชื่อฟังก์ชั่น: updatexmlnodetext (ElementName, NewElementText)
- 'พารามิเตอร์รายการ: ชื่อขององค์ประกอบ ElementName
- 'ข้อความใหม่ของ ElementText
- 'พารามิเตอร์การส่งออก: ไม่มี
- -
- FunctionUpDateXMLNodeText (ElementName, NewElementText)
- การปรับขนาด
- setElement = XMLMORNTEKDOCUMENT.SELECTSINGLENODE (// & ElementName)
- element.text = newElementText
- endfunction
- -
- 'ชื่อฟังก์ชั่น: deletexmlnodetext (ElementName)
- 'พารามิเตอร์รายการ: ชื่อขององค์ประกอบ ElementName
- 'พารามิเตอร์การส่งออก: ไม่มี
- -
- FunctionDeletexmlNodeText (ElementName)
- XMLMORNTEKDOCUMENT.SELECTSINGLENODE (// & ElementName) .Text =
- endfunction
- -
แชร์: ASP คลิกเพื่อรีเฟรชรหัสอินสแตนซ์การยืนยัน รหัสการตรวจสอบส่วนใหญ่ในเว็บไซต์คือรหัสการตรวจสอบรูปภาพเช่นเดียวกับรหัสด้านล่าง http://dwww.cn/books.asp ผู้ใช้อาจอยู่บนหน้าเว็บเป็นเวลานานและรหัสการตรวจสอบอาจหมดอายุเมื่อส่งการส่งครั้งสุดท้ายในที่สุด ดังนั้นคุณต้องเพิ่มฟังก์ชั่นรีเฟรช รหัสการตรวจสอบ: ชื่ออินพุต = 'checkimg' type = 'text' class = 'input' id = 'che