แนะนำ: วิธีใช้เทคโนโลยีการเขียนสคริปต์ ASP ในสคริปต์ VB คุณไม่จำเป็นต้องกำหนดตัวแปรหรือกำหนดประเภทของพวกเขาอย่างชัดเจนในภาษาสคริปต์อื่น ๆ ตัวแปรมีอยู่เมื่อคุณใช้ครั้งแรก อย่างไรก็ตามคุณสมบัตินี้ช่วยให้รหัสของคุณมีอยู่อย่างกว้างขวางใน typeScripts หากคุณกำหนดชื่อตัวแปรในรหัสอย่างผิด ๆ ตัวแปรใหม่จะถูกสร้างขึ้น สคริปต์ของคุณอาจทำงานไม่ถูกต้อง
จะสร้าง HTML ใน ASP ได้อย่างไร? มีระบบข่าวมากมายที่สร้าง HTML แต่พวกเขาทั้งหมดใช้เทมเพลต ฟังก์ชั่นนี้บันทึกรหัส HTML ที่สร้างขึ้นโดยหน้า ASP เป็นไฟล์ HTML ดังนั้นจึงไม่จำเป็นต้องเปลี่ยนหน้าต้นฉบับเพื่อให้ระบบข่าวที่สร้าง HTML สมบูรณ์ -
เนื่องจากรหัสสั้นฉันจะไม่แสดงความคิดเห็นที่นี่
ต่อไปนี้เป็นเนื้อหาที่ยกมา: - 'เมื่อหน้าเป้าหมายมีไฟล์เช่นหน้า #include มีปัญหากับโปรแกรมนี้ 'หมายเหตุ: ไฟล์นี้จะต้องอยู่ในไดเรกทอรีเดียวกับไฟล์ที่ชี้ไปที่ 20041227111723.htm dim hughchiu_rtcode ฟังก์ชั่น get_exe_code (20041227111723.htm) DIM Execode dim tmp_str Dim re, re1, เนื้อหา, fso, f, aspstart, aspend Dim MS, M execode = ตั้งค่า fso = createObject (scripting.filesystemobject) ตั้งค่า f = fso.opentextfile (server.mappath (20041227111723.htm))) content = f.readall f.close ตั้งค่า f = ไม่มีอะไร ตั้งค่า fso = ไม่มีอะไร ตั้งค่า re = ใหม่ regexp re.ignorecase = true re.global = true re.pattern =/</%/@[^/%]/%////////////////////////////////////////////////////////////////// content = re.replace (เนื้อหา,) re.global = false re.pattern =/</!/-/-/s*/#include/s*file/s*=/s*/([^/]) // s*/-///////////////////////////////////////////////////////////// ทำ ตั้งค่า ms = re.execute (เนื้อหา) ถ้า Ms.Count <> 0 แล้ว ตั้งค่า m = ms (0) tmp_str = get_exe_code (m.submatches (0)) content = re.replace (เนื้อหา, tmp_str) อื่น ออก สิ้นสุดถ้า วง ตั้งค่า m = ไม่มีอะไร ตั้งค่า ms = ไม่มีอะไร re.pattern =^/s*= Aspend = 1 ASPSTART = Instr (Aspend, เนื้อหา, <%) 2 ตั้งค่า re1 = ใหม่ regexp re1.ignorecase = true re1.global = false re1.pattern = การตอบสนอง/.write (.) ทำในขณะที่ Aspstart> Aspend 1 execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && แทนที่ (แทนที่ (กลาง (เนื้อหา, aspend, aspstart-aspend-2) ,,), vbcrlf, & vbcrlf &) && vbcrlf ASPEND = Instr (ASPSTART, เนื้อหา,%/>) 2 TMP_STR = MID (เนื้อหา, ASPSTART, ASPEND-ASPSTART-2) ทำ ตั้งค่า ms = re1.execute (tmp_str) ถ้า Ms.Count <> 0 แล้ว ตั้งค่า m = ms (0) tmp_str = re1.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode && m.submatches (0)) อื่น ออก สิ้นสุดถ้า วง ตั้งค่า m = ไม่มีอะไร ตั้งค่า ms = ไม่มีอะไร execode = execode & re.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode &) ASPSTART = Instr (Aspend, เนื้อหา, <%) 2 วง ตั้งค่า re1 = ไม่มีอะไร ตั้งค่า re = ไม่มีอะไร execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && แทนที่ (แทนที่ (mid (เนื้อหา, aspend),), vbcrlf, & vbcrlf &) && vbcrlf get_exe_code = <%& execode &%/> ฟังก์ชันสิ้นสุด ฟังก์ชั่น ASP2HTML (20041227111723.HTM) รหัสหรี่ code = แทนที่ (แทนที่ (แทนที่ (get_exe_code (20041227111723.htm), hughchiu_rtcode = hughchiu_rtcode && vbcrlf,), < %,), %/>,) 'response.write (รหัส) ดำเนินการ (รหัส) 'response.write (hughchiu_rtcode) asp2html = hughchiu_rtcode ฟังก์ชันสิ้นสุด - |
ตัวอย่างการใช้งาน:
ต่อไปนี้เป็นเนื้อหาที่ยกมา: ตั้งค่า fso = createObject (scripting.filesystemobject) ตั้งค่า f = fso.createtextfile (server.mappath (youpage.htm), จริง) F.WriteLine (ASP2HTML (youpage.asp)) f.close ตั้งค่า f = ไม่มีอะไร ตั้งค่า fso = ไม่มีอะไร |
แบ่งปัน: วิธีเริ่มต้นใช้งาน ASP ตัวแปร ตัวแปรใช้ในการจัดเก็บข้อมูล หากตัวแปรถูกประกาศนอกรูทีนย่อยตัวแปรสามารถเปลี่ยนแปลงได้โดยสคริปต์ใด ๆ ในไฟล์ ASP หากตัวแปรถูกประกาศในรูทีนย่อยมันจะถูกสร้างและเพิกถอนทุกครั้งที่มีการดำเนินการรูทีนย่อย ตัวอย่าง: ประกาศตัวแปรดังนี้: HTML Body % ชื่อสลัวชื่อ = การตอบสนองของ Donald Duck