แนะนำ: วิธีใช้ ASP เพื่อลบคะแนนสูงสุดสามคะแนนและคะแนนต่ำสุดสามคะแนน คำถาม: วิธีใช้ ASP เพื่อลบคะแนนสูงสุดสามคะแนนและคะแนนต่ำสุดสามคะแนน? วิธีแก้ปัญหา: 1. เรียงลำดับอาร์เรย์ทั้งหมดและลบค่าสูงสุดสามค่าและค่าต่ำสุดสามค่าที่ปลายทั้งสอง (เสนอโดยเน็ตอื่น!) 2. เลือกตัวเลขที่ใหญ่ที่สุดสามตัวและตัวเลขที่เล็กที่สุดสามตัวและสามหมายเลข
ทุกคนรู้ว่าหน้าเว็บ HTML แบบคงที่มีแนวโน้มที่จะได้รับการจัดทำดัชนีโดยเครื่องมือค้นหา ของหน้าเว็บ? ฉันคิดว่าทุกคนก็รู้เช่นกัน
สำหรับสิ่งนี้ฉันตัดสินใจที่จะเปลี่ยนวิธีการก่อนหน้าของการสร้างเว็บไซต์และการออกแบบเว็บ
วิธีการแทนที่ฉลาก: นี่คือคำจำกัดความที่ฉันเข้าใจเป็นการส่วนตัว
วิธีการแทนที่แท็กคือการใส่แท็กชุดลงในเทมเพลตเว็บที่ออกแบบมาแล้วแทนที่ด้วยสิ่งที่คุณต้องการแสดง ชอบ
ไฟล์เทมเพลต 1
เราบันทึกเทมเพลตนี้ในตารางฐานข้อมูลที่น่าเชื่อถือ
<html>
<head>
<title> {$ sitename} </title>
</head>
<body>
{$ arc_list $}
</body>
<html>
ในเทมเพลตด้านบนฉันได้ใส่สองแท็ก {$ sitename} ชื่อเว็บไซต์และ {$ arc_list $} รายการบทความจากนั้นดูรหัสต่อไปนี้
-
Dim Rs, sitename, arc_list, fso, myfile, filepath, html
sitename = หน้า html ที่สร้างขึ้นแบบไดนามิกครั้งแรกของฉัน
filePath = server.mappath (/html/index.html)
ตั้งค่า rs = server.createObject (adodb.recordset)
Rs.OpenSelect [Temp] จาก Temptable, Conn, 1,1
html = rs (temp) 'อ่านเทมเพลตเว็บเพจ
Rs.close
html = แทนที่ (html, {$ sitename}, sitename) 'แทนที่ {$ sitename} แท็กด้วยชื่อ sitename ที่กำหนดเอง
html = html & แทนที่ (html, {$ arc_list $}, get_arclist ()) 'แทนที่แท็ก {$ arc_list $} ด้วยฟังก์ชั่น get_arclist () แบบกำหนดเอง
ตั้งค่า rs = ไม่มีอะไร
conn.close
ตั้งค่า conn = ไม่มีอะไร
ตั้งค่า fso = createObject (*** ing.filesystemobject) 'สร้างวัตถุระบบไฟล์
ตั้งค่า myfile = fso.createtextfile (filepath, true) 'สร้างไฟล์
MyFile.WriteLine (HTML) 'เขียนรหัส HTM ไปยังไฟล์
myfile.close 'ปิดไฟล์
ตั้งค่า myfile = ไม่มีอะไรปล่อยวัตถุไฟล์
ตั้งค่า fso = ไม่มีอะไร 'ปล่อยวัตถุไฟล์ระบบ
response.write <*** language = 'java ***'> window.alert ('การสร้างไฟล์สำเร็จ'); </***>
Response.end ()
ฟังก์ชั่น get_arclist ()
สลัว str, str1
str1 =
str = <ul> {list} </ul>
Rs.OpenSelect Title, URL จาก Arc
ในขณะที่ไม่ใช่ Rs.EOF
str1 = str1 & <li> <a href = & rs (url) &> & rs (ชื่อ) & </a> </li>
Rs.Movenext
ใช้
Rs.close
str = แทนที่ (str, {list}, str1)
get_arclist = str
-
ฟังก์ชันสิ้นสุด
วิธีการข้างต้นเป็นเรื่องง่ายมากหรือไม่? - - ฮ่าฮ่าตอนนี้ Yu กำลังทำงานใน บริษัท ก่อสร้างเว็บไซต์
แบ่งปัน: ใช้ ASP เพื่อรับรู้หน้าที่ของการแปลบทความออนไลน์ บางครั้งฉันต้องการให้การสนับสนุนหลายภาษาสำหรับหน้าเว็บของเรา . lan.htm