แนะนำ: การตั้งค่าการติดตั้ง Windows 2003 IIS การติดตั้งบทที่ 2003: การติดตั้งเริ่มต้นโดยไม่มี IIS ในการติดตั้งโปรดคลิกเริ่ม -> เครื่องมือผู้ดูแลระบบ -> กำหนดค่าตัวช่วยสร้างเซิร์ฟเวอร์ของคุณแล้วทีละขั้นตอน ถึงเวลาเลือกรายการในรายการ เลือกแอปพลิเคชันเซิร์ฟเวอร์ (iis, asp.net) จากรายการ
ตัวอย่างการสาธิต: ก่อนสร้างฐานข้อมูลอย่างง่ายเขียนฟังก์ชั่นเพื่ออ่านและเขียนอุณหภูมิตัวแปร DIM:
รหัส ASP
| ต่อไปนี้เป็นเนื้อหาที่ยกมา: - ฟังก์ชั่น displayRecords () Dim SQL, Conn, RS SQL = SELECT ID, [SZD_F], [SZD_T] จากผู้ดูแลระบบ SET Conn = Server.CreateObject (ADODB.Connection) conn.open driver = {Microsoft Access Driver (*.mdb)}; dbq = & server.mappath (db.mdb) ตั้งค่า rs = server.createObject (adodb.recordset) Rs.Open SQL, Conn, 1, 3 ถ้าไม่ใช่ rs.eof แล้ว อุณหภูมิหรี่ temp = <ความกว้างของตาราง = 90% allign = center Temp = Temp & Border = 1 BorderColor = Silver temp = temp & cellpacing = 2 cellpadding = 0> temp = temp & <tr bgcolor =#ccddee> <td width = 5% temp = temp &> id </td> <td> การดำเนินการ </td> temp = temp & <td> value </td> </tr> ในขณะที่ไม่ใช่ Rs.EOF temp = temp & <tr> <td bgcolor =#ccddee> temp = temp & rs (id) & </td> <td> & rs (szd_f) temp = temp & </td> <td> & rs (szd_t) temp = temp & </td> </tr> Rs.Movenext ใช้ temp = temp & </bable> displayRecords = temp อื่น DisplayRecords = ข้อมูลไม่พร้อมใช้งาน สิ้นสุดถ้า Rs.close conn.close ตั้งค่า rs = ไม่มีอะไร ตั้งค่า conn = ไม่มีอะไร ฟังก์ชันสิ้นสุด 'เขียนถึงแคช ฟังก์ชั่น DisplayCacheDrecords (วินาที) dim retval, datval, temp1 retval = แอปพลิเคชัน (cache_demo) datval = แอปพลิเคชัน (cache_demo_date) ถ้า datval = จากนั้น datval = dateadd (s, secs ตอนนี้) สิ้นสุดถ้า temp1 = datediff (s, ตอนนี้, datval) ถ้า temp1> 0 และ retval <> จากนั้น displayCacheDRecords = retval 'รหัสการดีบัก: Response.write <b> <font color = green> อ่านข้อมูลโดยใช้แคช Response.write ... (& temp1 & วินาทีที่เหลืออยู่) </font> </b> Response.write <br> <br> อื่น สลัวอุณหภูมิ 2 'เปลี่ยน DisplayRecords () เป็นฟังก์ชั่นที่มี 'ค่าที่คุณต้องการแคช temp2 = displayRecords () application.lock แอปพลิเคชัน (cache_demo) = temp2 แอปพลิเคชัน (CACHE_DEMO_DATE) = DateAdd (S, Secs ตอนนี้) application.unlock displayCacheDRecords = temp2 'รหัสการดีบัก: Response.write <b> <font color = red> การแสดงแคชรีเฟรช ... Response.write </font> </b> <br> <br> สิ้นสุดถ้า ฟังก์ชันสิ้นสุด - - Response.write DisplayRecords () - <html> <head> <title> ใช้แคชเพื่ออ่านข้อมูลจากฐานข้อมูล </title> <style> Body, P, TD {Font-Family: Sans-Serif; ขนาดตัวอักษร: 8pt; - TD {padding-left: 5; - </style> </head> <body> - Dim T1, T2 t1 = ตัวจับเวลา Response.write DisplayCacheDrecords (20) t2 = ตัวจับเวลา - <p allign = center> เวลาอยู่: < %= ซ้าย ((CDBL ((T2 - T1) * 1000.0)), 5) %> MS </p> </body> </html> |
แบ่งปัน: การใช้ส่วนประกอบ ASP Adrotator ในบทช่วยสอน ASP พื้นฐาน ส่วนประกอบ ASP Adrotator เมื่อใดก็ตามที่ผู้ใช้เข้าสู่เว็บไซต์หรือรีเฟรชหน้าส่วนประกอบ ASP Adrotator จะสร้างวัตถุ AdroTator เพื่อแสดงภาพอื่น ไวยากรณ์: ต่อไปนี้เป็นเนื้อหาอ้างอิง