แนะนำ: ใช้ ASP เพื่อแยกวิเคราะห์ที่อยู่ภาพโดยอัตโนมัติในหน้าเว็บโดยอัตโนมัติ ตอนนี้ตัวแก้ไข HTML ที่ใช้เว็บเพจกำลังถูกใช้มากขึ้นเรื่อย ๆ ในระบบข่าวและระบบบทความ หน้าเว็บสามารถรักษาสไตล์ดั้งเดิมได้ทันทีที่มันติดอยู่และรูปภาพยังสามารถรักษาได้ในหน้านี้ อย่างไรก็ตามในระหว่างการใช้งานหากลบภาพในหน้าวาง
ASP เป็นเทคโนโลยีที่เปิดตัวโดย Microsoft เพื่อแทนที่อินเตอร์เฟส Universal Gateway ชื่อเต็มคือหน้าเซิร์ฟเวอร์ที่ใช้งานอยู่ เป็นสภาพแวดล้อมที่ใช้งานด้านเว็บเซิร์ฟเวอร์ ASP มีเครื่องยนต์ VBScript และ JavaScript ช่วยให้สคริปต์ถูกฝังลงใน HTML โดยตรง ตอนนี้ฉันจะแบ่งปันเคล็ดลับเกี่ยวกับวิธีการใช้ ASP กับคุณ
1. คอลัมน์ข่าว
หน้าเว็บส่วนใหญ่มีแถบข่าวเพื่อแสดงหัวข้อข่าวล่าสุด คลิกหัวข้อนี้เพื่อดูรายงานโดยละเอียด หากคุณเขียนทีละคนบนหน้าเว็บทุกวันมันจะลำบากเกินไปที่จะสร้างลิงก์ในทางกลับกัน จะทำให้อัปเดตโดยอัตโนมัติตามไฟล์ได้อย่างไร
1. การเตรียม:
1) สร้างโฟลเดอร์และชื่อข่าวไอทีโดยสมมติว่ามันถูกเก็บไว้ใน D:/ ASP/ DIRECTORY;
2) เขียนเนื้อหาโดยละเอียดของแต่ละข่าวลงในไฟล์และรูปแบบการตั้งชื่อของไฟล์นี้คือ: x (Newstime) .htm โดยที่ X เป็นธีมของข่าวนี้และ Newstime เป็นเวลาที่ข่าวออกมา (เขียนตามคำสั่งของวันปี) ทำไมคุณถึงเขียนแบบนี้? คุณจะรู้หลังจากอ่านแนวคิดอัลกอริทึมและโปรแกรมแหล่งที่มาด้านล่าง
2. ความคิดอัลกอริทึม: สำหรับไฟล์ในโฟลเดอร์ข่าวเรียงลำดับจากขนาดใหญ่ถึงขนาดเล็กตามเวลาของข่าวประชาสัมพันธ์ในชื่อไฟล์ของพวกเขา (เช่นเนื้อหาในวงเล็บ) ด้วยวิธีนี้ข่าวล่าสุดอยู่ในอันดับต้น ๆ ตราบใดที่ชื่อไฟล์หลายชื่อในโฟลเดอร์ข่าวจะปรากฏขึ้นในตำแหน่งที่สอดคล้องกันของหน้าเว็บข่าวล่าสุดสามารถแสดงในคอลัมน์ข่าวตามที่อธิบายไว้ใน 1
3. บล็อกต้นทาง (เขียนด้วย VBScript)
| ต่อไปนี้เป็นเนื้อหาที่ยกมา: - Dim Fs, F, F1, FC, Fileenum จำนวนหรี่ Dim I, J, T1, T2 Dim File (100) Dim Mystr (100) 'มาตรฐานวันที่ในไฟล์ นับ = 0 ตั้งค่า fs = createObject (scripting.filesystemobject) ตั้งค่า f = fs.getFolder (D:/ASP/News) ตั้งค่า fc = f.files สำหรับ F1 แต่ละตัวใน FC นับ = นับ 1 'นับจำนวนไฟล์ ไฟล์ (count) = fs.getBasename (f1) 'ชื่อแท็กไฟล์ฐาน mypos = instr (1, ไฟล์ (นับ), () ') ตำแหน่งในชื่อฐานไฟล์ 'สตริงวันที่ในชื่อฐานไฟล์ mystr (count) = mid (ไฟล์ (count), mypos 1, len (ไฟล์ (count)) - (mypos 1)) ต่อไป สำหรับ i = 1 ถึงนับ สำหรับ j = 1 ถึง count-i ถ้า mystr (j) <mystr (j 1) แล้ว t1 = ไฟล์ (j) ไฟล์ (j) = ไฟล์ (j 1 ไฟล์ (j 1) = t1 t2 = mystr (j) mystr (j) = mystr (j 1) mystr (j 1) = t2 สิ้นสุดถ้า ต่อไป ต่อไป J = 1 ถ้านับ <10 แล้ว 'คอลัมน์ข่าวแสดงข่าว 10 ฉบับ temcount = นับ อื่น temcount = 10 สิ้นสุดถ้า ทำในขณะที่ j <= temcount%> <a href = ไฟล์: /// d:/asp/news/<%= ไฟล์ (j)%> .htm target = new_window> <%= ไฟล์ (j)%> </a> - J = J 1 วง - |
4. เนื้อหาคอลัมน์ข่าวที่อัปเดต:
ตราบใดที่คุณพัฒนานิสัยการเขียนที่ดีให้สร้างชื่อของข่าวตามข้อกำหนดของ 1 จากนั้นบันทึกไฟล์ที่เขียนลงในโฟลเดอร์ข่าวข่าว 10 ล่าสุดจะแสดงโดยอัตโนมัติ
2. กระดานข่าว
นอกเหนือจากคอลัมน์ข่าวแล้วคอลัมน์ที่ใช้กันมากที่สุดคือกระดานข่าวซึ่งส่วนใหญ่ใช้เพื่อแสดงการแจ้งเตือนที่สำคัญบางอย่าง แน่นอนการแจ้งเตือนเหล่านี้จำเป็นต้องเปลี่ยนแปลงบ่อยครั้ง คุณจะปล่อยให้ผู้ใช้ไปที่โปรแกรมต้นทางเพื่อแก้ไขทุกครั้งที่พวกเขาเปลี่ยนเนื้อหาของการประกาศหรือไม่? ไม่แน่นอน เราต้องจัดเตรียมอินเทอร์เฟซการบำรุงรักษาให้กับผู้ใช้ดังนั้นตราบใดที่ผู้ใช้ป้อนการแจ้งเตือนเนื้อหาการแจ้งเตือนจะปรากฏขึ้นตามธรรมชาติในกระดานข่าวบนหน้าเว็บ
1. กุญแจสำคัญในการแก้ปัญหานี้อยู่ในแอปพลิเคชันที่ยืดหยุ่นของวัตถุ FileSystemObject และวัตถุ TextStream ในแอปพลิเคชันจริงคุณไม่จำเป็นต้องสร้างวัตถุ TextStream ด้วยตัวเองเพราะตราบใดที่คุณเปิดไฟล์ด้วยวัตถุ FileSystemObject ระบบจะสร้างวัตถุ TextStream โดยอัตโนมัติ นั่นคือเมื่อมีการเรียกวิธีการ opentextfile หรือ createTextFile แล้ววัตถุ TextStream จะถูกส่งกลับ
2. จำเป็นต้องมีไฟล์ที่เกี่ยวข้องสามไฟล์: update.asp, ประกาศ. asp, maintenance text.txt และบันทึกไว้ในไดเรกทอรี d:/asp/heattory
3. ฟังก์ชั่นหลักและบล็อกต้นทางของสามไฟล์:
1) Update.asp
ฟังก์ชั่นหลักคือการให้ผู้ใช้ป้อนประกาศเพื่อแสดงตรวจสอบว่าเนื้อหาอินพุตว่างเปล่าหรือไม่ หากไม่ว่างเปล่าจะถูกส่งไปยังโปรแกรมประกาศ. ASP สำหรับการประมวลผล
| ต่อไปนี้เป็นเนื้อหาที่ยกมา: <html> <head> <meta http-equiv = เนื้อหาประเภทเนื้อหา = text/html; charset = gb2312> <meta name = generator content = Microsoft FrontPage 4.0> <meta name = progid content = frontPage.editor.document> <title> อัปเดตเนื้อหากระดานข่าว </title> </head> <body> <ภาษาสคริปต์ = vbscript> ฟังก์ชั่น DataCheck () ผงลืด errflag errflag = true ถ้า len (trim (reative.t1.value)) = 0 แล้ว Focusto (0) errflag = false msg = โปรดป้อนเนื้อหาประกาศที่จะส่ง สิ้นสุดถ้า ถ้า (errflag = false) จากนั้น MSGBox MSG, 64, โอ้ไม่! ฟังก์ชั่นออก สิ้นสุดถ้า datacheck = errflag บำรุงรักษา. submit ฟังก์ชันสิ้นสุด sub focusto (x) document.maintain.elements (x) .focus () สิ้นสุดย่อย </script> ① <วิธีการแบบฟอร์ม = โพสต์การกระทำ = ประกาศชื่อชื่อ = บำรุงรักษา> <p> <อินพุตประเภท = ชื่อข้อความ = t1 size = 84> <อินพุต type = reset value = rewrite name = b2> <อินพุตประเภท = ปุ่มค่า = ส่งชื่อ = b1 onClick = dataCheck ()> </p> <hr color =#ff99ff size = 1> </form> </body> </html> |
ส่วน Action = ประกาศ. ASP ในคำสั่ง①ชี้ให้เห็นว่าโปรแกรมที่จะเริ่มต้นหลังจากส่งแบบฟอร์มคือประกาศ.
2) ประกาศ.
ไฟล์การบำรุงรักษาไฟล์. txt คือการอ่านและเขียนผ่านวัตถุ FilesystemObject และวัตถุ TextScream เพื่อให้เนื้อหาของ 5 อันดับแรกของไฟล์นี้เป็นประกาศที่จะแสดงในกระดานข่าว
| ต่อไปนี้เป็นเนื้อหาที่ยกมา: - DIM STR str = request.form (t1) Dim S (5) const forreading = 1, forwriting = 2 สลัว fso, myfile ตั้งค่า fso = server.createObject (scripting.filesystemobject) ตั้งค่า myfile = fso.opentextfile (รักษา text.txt, forreceding) 'เปิดไฟล์ในโหมดการอ่าน สำหรับ i = 1 ถึง 5 'กระดานข่าวแสดง 5 ประกาศทั้งหมด s (i) = myFile.Readline'Read เนื้อหาไฟล์ ต่อไป myfile.close ตั้งค่า myfile = fso.opentextfile (รักษา text.txt, forwriting, true) 'ไฟล์เปิดในโหมดการเขียน myfile.writeline str สำหรับ i = 1 ถึง 4 MyFile.WriteLine S (i) 'เขียนข้อมูลกลับไปยังไฟล์ ต่อไป myfile.close - |
3) รักษา text.txt
ไฟล์นี้เริ่มว่างเปล่าและหลังจากเข้าสู่การประกาศจากอินเทอร์เฟซที่แสดงใน Update .asp เนื้อหาของไฟล์นี้จะถูกเขียนโดยอัตโนมัติ
4. เพิ่มรหัสต่อไปนี้ลงในเซ็กเมนต์รหัสที่ตำแหน่งประกาศคือการแสดงการประกาศการอัปเดตในไฟล์โฮมเพจ (โดยปกติจะเริ่มต้น) เพื่อแสดงการประกาศที่อัปเดต
| ต่อไปนี้เป็นเนื้อหาที่ยกมา: <Marquee Scrolllamount = 2 Scrolldelay = 50 ทิศทาง = ความกว้างขึ้น = 223 ความสูง = 133 id = a onmouseover = a.stop () onmouseout = a.start ()> 'เลื่อนขึ้นและลงกระดานข่าว - Dim S (20) สลัว fso, myfile ตั้งค่า fso = createObject (scripting.filesystemobject) ตั้งค่า myfile = fso.opentextfile (d:/asp/บำรุงรักษา/บำรุงรักษา text.txt, 1, true) สำหรับ i = 1 ถึง 5 readlinetextFile = myFile.readline s (i) = readlinetextfile Response.write ★ & s (i) Response.write <br> ต่อไป - </marquee> |
เคล็ดลับสองข้อข้างต้นสามารถแก้ปัญหาดังกล่าวได้มากมายโดยการเรียนรู้จากตัวอย่างหนึ่ง ผู้ที่ชื่นชอบการออกแบบเว็บอาจลองดู
แบ่งปัน: ความเข้าใจที่ลึกที่สุดของเซสชั่นและคุกกี้ มาพูดคุยเกี่ยวกับการอภิปรายของเซสชั่นในเซสชั่น แต่ควรมีคนมากกว่า 90 คนที่สามารถเข้าใจเซสชันได้ แต่ให้ฉันบอกคุณอย่าคิดว่าคุณแก่แล้ว ~ บางคนเห็นด้วยกับเซสชั่นในขณะที่คนอื่นไม่เห็นด้วย แต่ฉันควรพูดอะไรเกี่ยวกับคำถามนี้? ทำไมไม่ฟัง