ดังที่เราทุกคนทราบกันดีว่าเทคโนโลยี ASP เป็นเทคโนโลยีหลักสำหรับโปรแกรมเว็บของเราที่ใช้แพลตฟอร์มอินเทอร์เน็ต/อินทราเน็ต ในแอปพลิเคชัน ASP โดยทั่วไปเราใช้ภาษาสคริปต์สองภาษา ได้แก่ vbscript และ javascript อย่างไรก็ตาม ภาษาสคริปต์เป็นภาษาที่ไม่ได้คอมไพล์ และโปรแกรมเว็บที่พัฒนาโดยภาษานี้ก็มีปัญหาในด้านความปลอดภัย ประสิทธิภาพการดำเนินการ และความสามารถในการปรับขนาด ดังนั้น เมื่อพัฒนาระบบเว็บ โดยทั่วไปเราจะใช้ภาษาระดับสูงในการเขียน ASP เนื้อหาการดำเนินการแล้วใช้สคริปต์เป็นภาษาที่ทำหน้าที่เป็นรหัสการเชื่อมต่อเพื่อเรียกเนื้อหาการดำเนินการ asp เพื่อทำการเข้าถึง ในเรื่องนี้ เนื่องจาก Microsoft เปิดตัวเทคโนโลยี ASP โดยทั่วไปเราจึงใช้ VB หรือ VC ดังนั้นโปรแกรมเมอร์ Delphi จะบรรลุเป้าหมายได้อย่างไร
ในเรื่องนี้ ผู้เขียนเพิ่งตระหนักถึงการเขียนโปรแกรมเว็บของเทคโนโลยี ASP ในสภาพแวดล้อม Delphi ผ่านข้อมูลของ inrpisre นี่คือบทนำดังนี้:
1. สร้างโปรเจ็กต์ acdiveX DLL ใหม่ PRoject1 ในสภาพแวดล้อม delphi จากนั้นสร้างอ็อบเจ็กต์ ASP ผ่าน Active Server Object ของ delphi และกรอกชื่อของอ็อบเจ็กต์ MyAspObject ที่สร้างขึ้นใน coClassName
2. ใช้ประเภท Library เพื่อสร้างวิธีการ MyAspRequest สำหรับวัตถุ MyAspObject ที่สร้างขึ้นใหม่ซึ่งจะถูกเรียกโดยภาษาสคริปต์
3. เนื่องจากวัตถุ ASP เพิ่งสร้างขึ้นสืบทอดมาจาก TASPObject เราจึงสามารถใช้วัตถุ ASP ในการสร้างเมธอดได้โดยตรง ตอนนี้กรอกโค้ดสำหรับวัตถุ Asp ที่เราสร้างขึ้นดังนี้:
ผลิต TMyAspObject.MyAspRequest;
เริ่ม
repsonse.write('<p>คุณชื่อ:');
repsonse.write(request.form.item['ชื่อ']);
repsonse.write('</p>');//อ่านชื่อผู้ใช้จากหน้าเว็บที่จะสร้าง//
repsonse.write('<p>งานของคุณคือ:');
repsonse.write(request.form.item['งาน']);
repsonse.write('</p>');//อ่านผลงานของผู้ใช้จากหน้าเว็บที่จะสร้าง//
repsonse.write('<p>เครื่องมือพัฒนาที่คุณใช้:');
ถ้า (request.form.item['delphi'].count>0)
repsonse.write('เดลฟี');
ถ้า (request.form.item['bcb'].count>0)
repsonse.write('c++ Builder');//กำหนดเครื่องมือการพัฒนาที่ผู้ใช้ใช้//
repsonse.write('</p>');
repsonse.write('<p>ตัวตนของคุณ:');
repsonse.write(request.form.item['ตัวตน']);
repsonse.write('</p>');//อ่านตัวตนของผู้ใช้//
จบ;
4. คอมไพล์โปรแกรมและลงทะเบียนเป็นไฟล์ PMyAspObject.dll ใน delphi
5. เขียนไฟล์ภาษาสคริปต์ ASP MyAsp.asp สำหรับการเชื่อมต่อ
<%@ภาษา=jscript %>
<HTML>
<ร่างกาย>
<title>นี่คือวัตถุ ASP ที่สร้างขึ้นด้วย delphi</title>
<center><h3>เนื้อหาที่คุณกรอกมีดังนี้</h3></center>
-
var myasp;
myasp=server.createobject(PMyAspObject.MyAspObject);
//สร้างวัตถุการเชื่อมต่อ//
myasp.MyAspRequest();//เรียกวัตถุ ASP ที่คุณกำหนดเอง//
-
</ร่างกาย>
</HTML>
6. สร้างเว็บเพจ Myhtm.htm เพื่อแสดงผล
<form action='localHost/shd/myasp.asp' method='post">
<h1 align='center">โปรดเลือก</h1>
<P>ชื่อ: <input type='text' size=33 name="name"></p>
<P>งาน: <input type='text' size=33 name="work"></p>
<P>เครื่องมือการพัฒนา: <input type='checkbox' name='delphi' value="on">delphi
<input type='checkbox'name='bcb'value="on">ตัวสร้าง c++</p>
<p>ตัวตนของคุณ:</p>
<p><select name="identity" size="1">
<option>นักเรียน</option>
<option>ช่างเทคนิค</option>
</select></p>
<p><input type="submit" name="mysubmit" value="Submit">
</แบบฟอร์ม>
7. จากนั้นใส่ Myhtm.htm และ myasp.asp ในไดเร็กทอรี shd ของเว็บเซิร์ฟเวอร์ส่วนตัวของคุณเพื่อเรียกดูและทดสอบ
การเรนเดอร์หน้าเว็บ
การเรนเดอร์ ASP
โปรแกรมข้างต้นถูกนำไปใช้ใน pwin98 ME และ delphi5.0 Enterprise