Tài liệu Web tĩnh HTML

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (115.19 KB, 26 trang )

Mở đầu
Trở về quá khứ, cách mà các ứng dụng phần mềm đợc áp dụng vào thực tế là lập trình ra nó trong một ngôn ngữ
lập trình, sau đó đợc cài vào các máy khác nhau. Chỉ có một phiên bản nh vậy đợc chạy trong cùng một thời điểm.
Đó là mô hình một ứng dụng mang tính tập trung.
Ngày nay, khi công nghệ Internet ra đời từ lúc còn sơ khai cho đến khi đang ở giai đoạn đỉnh điểm thì các ứng
dụng phần mềm có một quan niệm khác. Đặc biệt là khi công nghệ Web đợc coi là sức sống của mạng Internet ra
đời thì việc sử dụng các ứng dụng phân tán dới dạng ứng dụng Web đợc coi là phổ biến. Nó cho phép cùng một ứng
dụng có thể đợc sử dụng bởi nhiều ngời trong cùng một thời điểm. Và do đó dẫn tới một xu thế hiện nay là Hãy
ngồi ở nhà, với chiếc máy tính của bạn, để giao tiếp với thế giới bên ngoài qua các trang Web. Qua đó ta thấy
rằng, Web và Internet là hai thuật ngữ khá phổ biến hiện nay.
Bắt đầu từ các trang Web tĩnh HTML cho phép hiển thị các thông tin cố định thì tiếp tục nảy sinh vấn đề phải
tạo ra đợc các trang Web biểu thị các thông tin thay đổi theo yêu cầu của ngời dùng. Đó là các trang Web động.
Bài viết này đợc chia làm 4 phần :
Phần 1 : Tổng quan về Web.
Phần 2 : ASP.
Phần 3 : Xây dựng ứng dụng Web VTV1.
Phần 4 : Listing.
Phần 1 : Tổng Quan về Web
I. Web là gì ?
Web là công nghệ trên Internet cho phép thể hiện các thông tin một cách sinh động, gần gũi với con ngời
hơn trên 1 trang thông tin gọi là trang Web. Trang Web đợc trình bày trên các bộ duyệt Web (Browser) trên các máy
Client. Trang Web chính là các file văn bản dạng Text đợc cấu trúc hoá theo ngôn ngữ HTML.
II. HTML là gì ?
HTML là ngôn ngữ đánh dấu siêu văn bản (HyperText Markup Language). HTML đợc cấu tạo bởi các thẻ
gọi là các Tab. Các thẻ này là các từ đợc đánh trong 2 dấu < và >.
Cấu trúc chung 1 trang Web HTML :
<HTML>
<HEAD>
<! Thông tin phần header của trang Web >
<TITLE>Tiêu đề của trang Web</TITLE>
</HEAD>

<BODY>
<! Thông tin phần body trang Web >
</BODY>
</HTML>
III. Các loại trang Web :
Các trang Web đợc phân thành 3 loại nh sau :
Trang Web tĩnh (trang .HTML) : Là trang đã đợc lu trữ trên Server từ trớc. Khi có yêu cầu từ phía Client, trang này
sẽ đợc tải về Client và đợc hiển thị trên Server .
Trang Web động (DHTML : Dynamic HTML ): Là các file chơng trình đợc chạy trên Server. Sau khi chạy xong,
Server sẽ sinh ra trang Web tĩnh HTML tơng ứng với chơng trình đó và gửi về Client. Nh vậy đến đây ta có thể
coi rằng trang Web động là các trang Web HTML không tồn tại từ trớc trên Server mà trái lại tuỳ theo yêu cầu từ phía
Client, trang Web này sẽ đợc tạo ra sau khi chạy chơng trình trên Server . Các trang Web động có thể tạo ra bằng các
cách sau :
+ CGI (Common Gateway Interface) : Là chuẩn chung phổ biến nhất để các browser có thể chạy 1 chơng trình
trên server, có thể cài đặt trên mọi hệ điều hành và Web server. Nó là tên gọi để chỉ các chơng trình chạy trên
Server mà đầu vào là các thông tin từ phía Client, đầu ra là các trang HTML để gửi vể phía Client.

CGI cho cách tạo các trang Web động 1 cách chắc chắn nhất trong đó mọi hệ điều hành đều hỗ trợ.
Tuy nhiên việc dùng CGI là khá phức tạp.
+ ASP (Active Server Page) : Là thành phần đợc cài thêm vào Web Server để tạo ra các trang Web động.
Đầu vào là các file.asp có cấu trúc tơng tự nh trang .HTML nhng có thêm các lệnh Script để tạo ra trang Web. Các
file .asp này đợc chạy trên Server. Để chạy đợc ASP bắt buộc phải cài nó trên các Web Server của MicroSoft. Ta sẽ
nói rõ thêm về ASP ở phần sau.
+ JSP (Java Server Page) : Là công nghệ mới công bố của riêng hãng Sun MicroSystem. Nó là sự tích hợp
của cả Web Server và JSP để tạo trang Web động. Nó không phụ thuộc vào mức Web Server và hệ điều hành ở
dới.
Trang Web có nhúng các Applet và Script : Là các trang HTML có nhúng các câu lệnh Script và Applet đợc viết
bằng ngôn ngữ JavaScript , VBScript , Perl Các Applet này đợc chạy bên phía Client. Để các Applet , Script có thể
chạy đợc , các Browser phải hỗ trợ các bộ dịch ngôn ngữ Script, Applet tơng ứng. Các loại Applet chạy trên Browser
(Client) :

+ Java Applet : Xây dựng dựa trên ngôn ngữ Java.
+ ActiveX : Là các đối tợng dới dạng modul có sẵn. Chỉ chạy trên hệ điều hành Window.
+ Plug-In : Các thành phần bổ trợ cho các chức năng mới của Browser.
IV. Mô hình giao tác Client/Server :
Trớc hết ta cần hiểu các khái niệm về Client, Server :
Server :
+ Đợi các yêu cầu (Request) từ các máy Client. Phân tích các yêu cầu đó để xử lý. Gửi kết quả trả lời (Response)về
Client.
+ Chứa các phần mềm Web Server, Database Server
+ Luôn trong trạng thái On-Line.
Client :
+ Tạo các kết nối. Gửi các yêu cầu đến máy Server và chờ nhận kết quả từ Server.
+ Chứa các phần mềm Web Browser nh IE, Nestcape
+ Có thể ở trạng thái Bật/Tắt bất cứ lúc nào.
Nh vậy mô hình một giao tác giữa Client và Server nh sau :
Đầu tiên, Client gửi một yêu cầu kết nối đến Server theo địa chỉ URL mà nó cần kết nối. Server tơng
ứng sẽ nghe và kiểm tra xem các kênh kết nối dành cho nó có kênh nào rỗi không. Nếu có kênh rỗi nó sẽ thiết lập
liên kết và gửi kết quả trả về Client tơng ứng. Đối với các yêu cầu khác hoặc dữ liệu mà Client gửi tới, Server sẽ làm
tơng tự.
Mô hình Client/Server trong ASP :
Phần 2 : ASP (Active Server Page)
I.ASP là gì ?
ASP là một thành phần đợc cài tại Web Server để hỗ trợ việc dùng các trang Web động .asp. ứng dụng
ASP là tập hợp các trang ASP và các thành phần ActiveX.
Các file ASP (.asp) gồm phần văn bản (text), HTML và các lệnh script.
Mỗi khi browser gửi yêu cầu về một file .asp cho Web Server, ASP xử lý phần lệnh script rồi trả lại cho browser kết
quả là một trang HTML.
Các script là các câu lệnh có nghĩa bằng bất cứ ngôn ngữ scripting nào, đợc ngăn cách với phần HTML bằng cặp
dấu <% và %>.
Ngôn ngữ tạo kịch bản (scripting language)

Scripting là ngôn ngữ kết hợp giữa HTML và các ngôn ngữ lập trình nh J, C++, VB
Trong đó:
+ HTML tạo văn bản và kết nối các trang.
+ Các ngôn ngữ lập trình tạo ra những lệnh phức tạp cho máy tính.
- Ngôn ngữ scripting chủ yếu tạo ra các văn bản dạng text và gọi đến các component đã đợc biên dịch sẵn viết bằng
các ngôn ngữ lập trình trên.
- Server mới là bên đọc và xử lý các script trong ASP, vì thế chỉ các Web server mới cần hỗ trợ cho ngôn ngữ này.
- Client browser chỉ cần đa ra yêu cầu về các trang .asp và chờ đợc đáp ứng, nó không cần hỗ trợ các ngôn ngữ
scripting.
- Scripting engine: là chơng trình xử lý các lệnh viết bằng ngôn ngữ scripting nào đó. ASP có hai scripting engine
là VBScript vàJScript.
- Ngôn ngữ scripting cơ sở: là ngôn ngữ đợc mặc định để xử lý các lệnh trong cặp dấu <% và %>. Điều này
phụ thuộc vào từng server cụ thể. Có thể đặt ngôn ngữ cho một trang hoặc tất cả các trang của ứng dụng. Ví dụ
nh
- Đặt ngôn ngữ cho một trang: bằng chỉ dẫn <% @ LANGUAGE = tên ngôn ngữ %>
II. Các đặc điểm của ASP :
Có thể thực hiện đợc các Script trên Web Server mà không phải thực hiện trên các Browser. Do đó Browser không
hỗ trợ các ngôn ngữ Script vẫn có thể thực hiện đợc các Script bằng cách gửi các yêu cầu cho Server thực hiện. Điều
này tạo ra một đặc tính tiện lợi mà ít ai nhận ra là có thể thực hiện đợc các trang Web sinh động mà có thể
dùng các trình duyệt Web đơn giản không có hỗ trợ các Script.
Các file .asp chỉ đợc lu trữ trên Web Server mà không tồn tại ở máy Client.
Các trang Web .asp sẽ đợc thực hiện (biên dịch) bởi thành phần Script Engine cài trong ASP ở Web Server.
Việc sử dụng ASP cho phép tạo ra các ứng dụng Web mạnh và linh hoạt, có giao diện thân thiện với ngời dùng qua
trang HTML.
III. Các thành phần của ASP :
Thành phần chủ yếu trong ASP đợc gọi là ActiveX Server Components
ActiveX là một công cụ mạnh để xây dựng các ứng dụng Web vì nó cung cấp các đối tợng để bạn có thể sử dụng
trong script của mình. Bạn có thể xây dựng các ứng dụng Web động, có tơng tác nhờ sử dụng các component do
server cung cấp.
Các component này đợc sử dụng nh là những khối cơ bản trong script hoặc các ứng dụng Web, chúng thực hiện

những công việc thông thờng để bạn không cần phải viết lại mã lệnh nữa.
Component là mã lệnh đã đợc dịch, sẵn sàng để chạy, đợc đặt dới dạng các file .dll hoặc .exe.
Bạn có thể dùng các component do ASP cung cấp hoặc lấy từ một nguồn nào đó hay tạo ra các component cho mình.
ASP cung cấp 5 thành phần (components) cơ bản:
Advertisement Rotator Tạo đối tợng AdRotator tự động quay các dòng quảng cáo hiện trên một trang theo một lịch
trình định trớc.
Browser Capabilities Tạo đối tợng BrowserType quyết định kiểu, khả năng và version của mỗi browser truy
nhập đến Web site của bạn
Database Access Cung cấp các truy nhập đến cơ sở dữ liệu sử dụng ActiveX Data Objects (ADO).
Content Linking Tạo đối tợng NextLink để tạo ra bảng nội dung của trang Web và nối chúng lại nh là các trang trong
một quyển sách.
File Access Cung cấp các truy nhập đến các file.
IV. Bạn phải làm gì để tạo đợc trang Web động .asp :
- Lắp đặt hệ thống phần cứng về mạng (nối các máy, cài đặt hệ điều hành )
Cài đặt phần mềm Web Server trên máy mà bạn định chọn làm Server. Các phần mềm phổ biến có thể là :
+ IIS (Internet Information Server) : Web Server ( của Microsoft ) dùng để cài trên Window NT. Thờng đợc cài trong
thực tế để làm Web Server trên Internet.
+ PWS (Personal Web Server) : Web Server ( của Microsoft ) dùng để cài trên Window 9x. Thờng đợc cài trên máy
tính cá nhân đơn lẻ để test ứng dụng Web .asp. Nó mô phỏng mô hình Client/Server trên một máy đơn lẻ.
+ FTS (FastTrack Server) : Web Server của Netscape. Cũng thờng đợc cài trong thực tế để làm Web Server trên
Internet.
+ Ngoài ra còn một số các phần mềm Web Server khác.
Cài ASP
Đến đây bạn hoàn toàn có thể tạo các trang ASP bằng một bộ soạn thảo văn bản bất kỳ. Sau đó copy file .asp vừa
soạn thảo vào th mục InetPub hoặc WebShare trên Server. Tuy nhiên để có thể tạo ra các ứng dụng Web có trang
Web động .asp một cách dễ dàng và chuyên nghiệp hơn, bạn nên cài thêm các thành phần sau :
FrontPage Server Extensions : Cho phép copy các file HTML và ASP từ th mục project (của FrontPage hoặc Visual
Interdev) vào th mục InetPub hoặc WebShare của Web Server một cách tự động.
Visual InterDev (trong bộ Visual Studio của MicroSoft): Phần mềm cho phép tạo ứng dụng Web ASP một cách dễ
dàng.

FrontPage : Phần mềm soạn thảo trang HTML.
V. Cơ chế Submit một form trong ASP :
Submit là thuật ngữ để chỉ một giai đoạn khi Web Browser trên máy Client gửi các thông tin mà ngời sử
dụng điền trong một form về Web Server. Ví dụ khi ngời sử dụng điền thông tin trong một Text Box và bấm
Submit. Nh vậy có thể hiểu theo cách khác là khi Browser gửi yêu cầu (Request) đến Server thì gọi là Submit. Có
2 method Submit : Get và Post.
+ Post Method : Thông tin sẽ nằm trong phần thân của form gửi về Server. Bên Server dùng
Collection Form của đối tợng Request để lấy giá trị này.
+ Get Method : Thông tin sẽ đợc gắn vào sau địa chỉ URL đợc ngăn cách bởi dấu ? dới dạng một
chuỗi Query. Dạng của chuỗi này nh sau :
Địa_Chỉ_URL?Name1=Value1,
Bên Server dùng Collection QueryString của đối tợng Request để lấy giá trị này.
Một quá trình truyền thông tin về Server (Submit) thờng kèm theo địa chỉ của trang ASP sẽ tiếp nhận
thông tin đó, xử lý thông tin đó và tạo ra kết quả là trang HTML gửi trả về Browser. Địa chỉ của trang ASP này
đợc xác định bởi thuộc tính Action trong Tab Form của trang HTML chứa form. Ví dụ :
Có một trang HTML nh sau :
<HTML>
<BODY>
<FORM METHOD =POST ACTION =ReceiveParam.asp >
<INPUT TYPE=TEXT NAME=NAME1 SIZE=40>
<INPUT TYPE=SUBMIT VALUE=SEND TO SERVER>
</FORM>
</BODY>
</HTML>
Khi form đợc Submit về Server nó sẽ gửi giá trị của NAME1 đồng thời link tới trang ReceiveParam.asp. Do
đó để lấy đợc giá trị của NAME1 bên Server ta phải tạo một file ReceiveParam.asp và dùng Collection Form của
đối tợng Request nh sau :
<%@ Language = VBScript %>
<% Set ReceivedValue = Request.Form(NAME1)
%>

<HTML>
<BODY>
<%=ReceivedValue%>
</BODY>
</HTML>
Để Test kết quả ở trên hãy thực hiện các bớc sau trên máy đã cài Web Server và ASP :
Tạo một th mục Test trong InetPub(hoặc WebShare với PWS)\WWWROOT
Tạo một file Test.htm trong th mục Test và Paste những dòng trang HTML ở trên vào file đó.
Tạo một file ReceiveParam.asp trong th mục Test và Paste những dòng trang ASP ở trên vào file đó.
Trên Browser bất kỳ đánh địa chỉ URL : http://Server_Name/Test/test.htm.
VI. Một ví dụ đơn giản về trang Web động ASP :
Hãy trở lại với một ví dụ đơn giản về trang HTML Hello World :
<HTML>
<BODY>
<FONT SIZE = 10 >
Hello World !
</BODY>
</HTML>
Nếu chỉ hiển thị 1 dòng nh vậy thì sẽ không có vấn đề xảy ra. Tuy nhiên giả sử ta phải trình bày dòng
Hello World ! trên nhiều dòng và với cỡ chữ to dần. Cách làm ở đây là viết lặp lại 2 dòng <FONT SIZE = i >,
Hello World với i tăng dần. Điều đó sẽ làm cho việc đánh trở nên cồng kềnh và con ong chăm chỉ, không tận
dụng đợc các chức năng lặp của 1 ngôn ngữ lập trình bình thờng. Giải pháp ở đây là xây dựng 1 trang Web
động .asp nh sau :
<%@ Language = VBScript %>
<HTML>
<BODY>
<% For i = 10 To 20 %>
<FONT SIZE = <%=i%> >
Hello World !
<%Next%>

</BODY>
</HTML>
Chỉ với 8 dòng ở trên ta có thể thay cho 24 dòng trong trang Web tĩnh HTML. Bí quyết là giao cho Server thực
hiện các lệnh trên để nó tạo ra 24 dòng HTML và gửi về Client (yêu cầu trang .asp ở trên).
Phần 3 : Xây dựng ứng dụng Web VTV1.
I.Yêu cầu về ứng dụng Web :
Dựa trên mô hình ứng dụng Web Client/Server.
Truy cập đợc cơ sở dữ liệu từ xa trên máy Server.
úng dụng Web động dùng công nghệ ASP.
II.Giới thiệu về trang Web VTV01 :
VTV01 là trang Web cho phép quản lý và theo dõi lịch phát sóng của kênh VTV1 Đài Truyền Hình Việt
Nam.
Nó có các chức năng chính sau :
+ Theo dõi lịch phát sóng.
+ Cập nhật, sửa đổi các chơng trình đã lên kế hoạch từ trớc.
+ Lên kế hoạch các chơng trình mới.
+ Báo cáo chơng trình đã lên kế hoạch theo từng tháng.
VTV01 đợc xây dựng trên nền mạng LAN của công ty FPT. Phần mềm là IIS của MicroSoft và hệ điều
hành Window NT.
VTV01 dùng thành phần Database Access của ASP để truy cập cơ sở dữ liệu VTV.mdb đợc tạo trên
Access 97. Ngoài ra có 2 ngôn ngữ Script đợc dùng trong ứng dụng là VBScript để truy vấn cơ sở dữ liệu và
JavaScript để thực hiện các kết quả báo cáo in ra
III. Cơ sở dữ liệu của trang Web VTV1 :
VTV01 có 1 file cơ sở dữ liệu duy nhất là VTV.mdb đợc tạo ra trên Access. Nó gồm 2 bảng có cấu trúc nh
sau :
Bảng Lịch :
Field Name Data Type Description 1 bản ghi trong bảng
ID AutoNumber 2
Ngay Date/Time Ngay phat song 4/24/99
GioPhut Date/Time Gio phat song 11:30

The_Loai Text The loai chuong trinh Hoạt hình
Ten_Chuong_Trinh Text Ten chuong trinh Phim hoạt hình WaltDisney
Bien_Tap Text Ten nguoi bien tap Dhh
Bien_Dich Text Ten nguoi bien dich neu co Haidh
Thoi_Luong Number So phut phat song 20
Vung_SX Text Vung san xuat V2
He_So_Qui_Doi Number He so qui doi 2
Thu_Lao_BT Number Thu lao cho BT 0
Thu_Lao_DD Number Thu lao cho DD 0
Thu_Lao_QP Number Thu lao cho QP 0
Thu_Lao_CTV Number Thu lao cho CTV 0
Bảng The_Loai :
Field Name Data Type Description BG1 BG2 BG3 BG4 BG5 BG6
ID Auto Number 1 2 3 4 5 6
The_Loai Text The loai chuong trinh TGĐV VQTG PKH Phim Tài Liệu Hoạt Hình
Tạp Chí
Quan hệ giữa 2 bảng :
IV. Các trang Web trong VTV01 :
- Default.htm : Trang Web mặc định tơng ứng với địa chỉ URL :
Http://Server_Name/VTV01
Là trang tạo ra 3 frame để hiển thị cùng 1 lúc 3 trang Web khác nhau.
Global.asa (File Active Server Application): Là file không bao gồm những nội dung gửi về phía Client. Nó là file
lựa chọn cho phép khai báo các đối tợng ở mức phiên và mức ứng dụng để dùng trong ứng dụng Web ASP. Nó lu trữ
các thông tin về các sự kiện và các đối tợng đợc sử dụng một cách toàn cục trong ứng dụng. Đợc lu trữ trong th mục
gốc của ứng dụng Web và mỗi ứng dụng chỉ có duy nhất một file Global.asa. Trong ứng dụng VTV01 các đối tợng
mức phiên dùng Database Access đợc khai báo ở đây.
Trong th mục (Folder) Code :
About.htm : Trang Web giới thiệu. Đợc hiển thị lúc đầu trong Default.htm.
Header.htm : Trang Web ảnh của VTV1 và FPT. Hiển thị trên phần đầu trang.
LeftBat.htm : Trang Web link đến các trang động .asp khác. Hiển thị ở khung bên trái.

ScheduleInit.asp : Trình bày form để User nhập thông tin về tháng cần xem lịch phát sóng.
Schedule.asp : Vẽ lịch phát sóng tơng ứng với tháng mà User yêu cầu.
ListOne.asp : Hiển thị nội dung một chơng trình.
UpdateElm.asp : Trình bày form để sửa đổi nội dung một chơng trình.
UpdateAsp.asp : Thực hiện việc cập nhật cơ sở dữ liệu và trình bày kết quả thay đổi nội dung chơng trình.
DeleteAsp.asp : Xoá một chơng trình khỏi cơ sở dữ liệu và trình bày kết quả xoá.
Input.asp : Trình bày form để tạo một chơng trình mới.
InputAsp.asp : Thực hiện việc thêm một chơng trình mới vào cơ sở dữ liệu và trình bày kết quả thêm.
MonthReport.asp : Trình bày form để nhập thông tin về tháng cần báo cáo.
BKTTCT.asp : Vẽ báo cáo các chơng trình trong một tháng theo mẫu của Đài Truyền Hình Việt Nam.
Trong th mục (Folder) Inc :
- FieldNull.inc : File include trong BKTTCT.asp. Chứa các hàm chuyển đổi ngày giờ
V. Sơ đồ liên kết giữa các trang Web trong VTV01 :
VI. Nhận xét :
ứng dụng đợc cài đặt trên nền Web Server : MicroSoft Internet Information Server và hệ điều hành
Window NT 4.0. Nhìn chung đã đảm bảo đợc các yêu cầu đề ra ở trên. Tuy nhiên còn một số hạn chế là cha có khả
năng kiểm tra lỗi thông tin nhập và khả năng tơng thích với các Web Server và hệ điều hành khác là cha đợc đảm
bảo.
PhÇn 4 : Listing
Global.asa :
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
'You can add special event handlers in this file that will get run automatically when
'special Active Server Pages events occur. To create these handlers, just create a
'subroutine with a name from the list below that corresponds to the event you want to
'use. For example, to create an event handler for Session_OnStart, you would put the
'following code into this file (without the comments):
'Sub Session_OnStart
'**Put your code here **
'End Sub
'EventName Description

'Session_OnStart Runs the first time a user runs any page in your application
'Session_OnEnd Runs when a user's session times out or quits your application
'Application_OnStart Runs once when the first page of your application is run for the first time by any user
'Application_OnEnd Runs once when the web server shuts down
</SCRIPT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
'==Visual InterDev Generated - startspan==
' Project Data Connection
Application("Connection_ConnectionString") =
"DSN=VTV;DBQ=D:\PROJECTS\vtv\Database\vtv.mdb;DriverId=25;FIL=MS
Access;MaxBufferSize=512;PageTimeout=5;"
Application("Connection_ConnectionTimeout") = 15
Application("Connection_CommandTimeout") = 30
Application("Connection_CursorLocation") = 3
Application("Connection_RuntimeUserName") = ""
Application("Connection_RuntimePassword") = ""
' Project Data Environment
'Set DE = Server.CreateObject("DERuntime.DERuntime")
'Application("DE") = DE.Load(Server.MapPath("Global.ASA"),
"_private/DataEnvironment/DataEnvironment.asa")
'==Visual InterDev Generated - endspan==
End Sub
</SCRIPT>
<SCRIPT LANGUAGE=JScript RUNAT=Server>
function Session_OnStart()
{
//Create ADO Object
Session("objConnection") = new ActiveXObject("ADODB.Connection");
Session("objConnection").ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data

Source=VTV;DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;";
Session("objConnection").ConnectionTimeOut = 30;
Session("objConnection").open();
}
</Script>
Default.htm :
<html>
<head>
<title>VTV Program</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<frameset rows="62,*">
<frame name="banner" scrolling="no" marginwidth="0" marginheight="0" noresize target="contents"
eader.htm">
<frameset cols="17%,*">
<frame name="contents" target="main" src="Code/LeftBar.htm" marginwidth="0" marginheight="0"
scrolling="no">
<frame name="main" src="Code/about.htm">
</frameset>
<noframes>
<body>
<p>This page uses frames, but your browser doesn't support them.</p>
</body>
</noframes>
</frameset>
</html>
About.htm :
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Developer Studio">

<title>Document Title</title>
</head>
<body background=" /images/bgr.gif">
<! Insert HTML here >
<font face=".VnTime">
<p><img src=" /images/Point.gif" WIDTH="13" HEIGHT="13">  VTV - ver 1.0 Bản quyền của Công
ty <font color="Blue"><u>FPT</u></font>
<p><img src=" /images/Point.gif" WIDTH="13" HEIGHT="13">  VTV là chơng trình cho phép các
cán bộ của đài tryền hình
quản lý và theo dõi lịch phát sóng của đài. Chơng trình gồm các chức năng chính sau:
<p><img src=" /images/NextArrow.gif" WIDTH="30" HEIGHT="16"> <font color="Blue"><u>Xem
lịch</u></font> : Theo dõi lịch phát sóng
<br><img src=" /images/NextArrow.gif" WIDTH="30" HEIGHT="16"> <font color="Blue"><u>Chơng
trình mới</u></font> : Nhập các chơng trình sẽ phát của đài
<br><img src=" /images/NextArrow.gif" WIDTH="30" HEIGHT="16"> <font color="Blue"><u>Sửa đổi
lịch</u></font> : Thay đổi chơng trình đã lên kế hoạch trớc
</font>
</body>
</html>
Header.htm :
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">
<title>Document Title</title>
<base target="contents">
</head>
<body>
<! Insert HTML here >
<table border="0" width="100%" cellspacing="0" height="100%" cellpadding="0">
<tr>

<td width="7%"></td>
<td width="9%"><img src="http://halh/vtv01/images/Fpt.gif" alt="FPT" border="0" width="79" height="50"
></td>
<td width="78%"><img src="http://halh/vtv01/images/fpt_internet.gif" alt="VTV Program." border="0"
WIDTH="600"
HEIGHT="50"></td>
<td width="6%"></td>
</tr>
</table>
</body>
</html>
LeftBar.htm :
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">
<title>Document Title</title>
<base target="main">
</head>
<body background=" /Images/Fptbgr.gif">
<! Insert HTML here >
<font face=".VnTime">
<table border="0" width="100%" height="190" cellpadding="0">
<tr>
<td width="100%" height="40"><strong><font face=".VnTime">
Chøc n¨ng
chÝnh
</font></strong></td>
</tr>
<tr>
<td width="100%" height="17">

<img ./images/bullet01.gif" alt="bullet01.gif (85 bytes)" WIDTH="10" HEIGHT="10"
><font size="2" face=".VnTime"><a href="ScheduleInit.asp" target="main"> Xem kÕ ho¹ch
ph¸t
sãng</a></font><br></td>
</tr>
<tr>
<td width="100%" height="17"><img src=" /images/bullet01.gif" alt="bullet01.gif (85 bytes)" WIDTH="10"
HEIGHT="10"><a target="main" href="Input.asp"><font size="2" face=".VnTime">
Lªn kÕ ho¹ch ch¬ng tr×nh
míi</font></a></td>
</tr>
<tr>
<td width="100%" height="13"></td>
</tr>
<tr>
<td width="100%" height="40"><strong><font face=".VnTime">
In b¸o
c¸o</font></strong></td>
</tr>
<tr>
<td width="100%" height="14"><img src=" /images/bullet01.gif" alt="bullet01.gif (85 bytes)" WIDTH="10"
HEIGHT="10"><font size="2" face=".VnTime"><a target="main" href="MonthReport.asp">
B¸o c¸o th¸ng</a></font></td>
</tr>
<tr>
<td width="100%" height="13"></td>
</tr>
<tr>
<td width="100%" height="40"><strong><font face=".VnTime">
Giíi

thiÖu</font></strong></td>
</tr>
<tr>
<td width="100%" height="14"><img src=" /images/bullet01.gif" alt="bullet01.gif (85 bytes)" WIDTH="10"
HEIGHT="10"><font size="2" face=".VnTime"><a target="main" href="About.htm">
Ch¬ng tr×nh VTV</a></font></td>
</tr>
<tr>
<td width="100%" height="13"></td>
</tr>
</table>
</font>
</body>
</html>
BKTTCT.asp :
<%@ Language=VBScript %>
<! #include file=" /Inc/FieldNull.inc" >
<%
MyMonth = Request.Form("Month")
MyYear = Request.Form("Year")
'QFromDate = request("QFromDate")
'QToDate = request("QToDate")
'connect to database
'sql = "select * from Lich"' where Ngay>=#"+QFromDate+"# and Ngay<=#"+QToDate+"#"
MyStartDate = MyMonth + "/1/" + MyYear
MyEndDate = CStr(MyMonth+1) + "/1/" + MyYear
sql = "select * from Lich where Ngay>=#" + MyStartDate + "# and Ngay<#" + MyEndDate + "#"
'Response.Write(sql)
Set rs = Session("objConnection").Execute (sql)
%>

<Script Language="JScript" RUNAT="Server">
function getNgay()
{
var d=new Date();
return d.getDate();
}
function getThang()
{
var d=new Date();
return d.getMonth()+1;
}
function getNam()
{
var d=new Date();
var s=new String(d.getYear());
if (s.length==2)
return "19"+s;
else return s;
}
</Script>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY background= /images/bgr.gif>
<FONT face=".VnTime" Size="2">
<FONT Face=".VntimeH">
<TABLE Width=720 border="0" cellspacing="0">
<tr align="middle">
<td width ="220" align="middle"><FONT Size="2">§µi truyÒn h×nh

ViÖt Nam</FONT></td>
<td><FONT Size="4">B¶ng
kª thanh to¸n ch¬ng tr×nh</FONT></td>
</tr>
<tr align="middle">
<td><FONT Size="2">Ban Khoa
gi¸o</FONT></td>
<td><FONT Face=".VnTime" Size=4>TiÓu ban :. Ngo¹i ng÷. . . . . . . .
.</FONT></td>
</tr>
</TABLE>
</FONT>
<br>
<TABLE Width=720 border="0" cellspacing="0">
<tr>
<td width ="550"> </td>
<td>Th¸ng
<%=MyMonth%>
n¨m
<%=MyYear%></td>
<! getThang() , '=getNam() >
</tr>
</TABLE>
<P>
<table border="1" width="720" cellspacing="0">
<tr align="middle" bgcolor=#eeffff>
<td rowspan="2" Width="30">TT</td>
<td rowspan="2" Width="160">Tªn ch¬ng
tr×nh</td>
<td rowspan="2" Width="80">Ngµy ph¸t

sãng</td>
<td rowspan="2" Width="50">Biªn tËp</td>
<td rowspan="2" Width="60">Vïng SX</td>
<td rowspan="2" Width="50">ThÓ lo¹i</td>
<td rowspan="2" Width="50">
<P>Thêi  lîng</P></td>
<td rowspan="2" Width="40">BËc</td>
<td colspan="4">Thï lao nhuËn
bót</td>
<td rowspan="2" Width="40">Thï lao CTV</td>
</tr>
<tr bgcolor=#eeffff>
<td Width="40">BT</td>
<td Width="40">DD</td>
<td Width="40">QP</td>
<td Width="40">Céng</td>
</tr>
<%Dim i
i=0
do while not rs.EOF
i=i+1%>
<tr>
<td>
<%=i%></td>
<td>
<%=strNull(rs("Ten_Chuong_Trinh"))%></td>
<td>
<%=strNgay(rs("Ngay"))%></td>
<td>
<%=strNull(rs("Bien_Tap"))%></td>

<td>
<%=strNull(rs("Vung_SX"))%></td>
<td>
<%=strNull(rs("The_Loai"))%></td>
<td>
<%=numNull(rs("Thoi_Luong"))%></td>
<td>
<%=numNull(rs("He_So_Qui_Doi"))%></td>
<td>
<%=numNull(rs("Thu_Lao_BT"))%></td>
<td>
<%=numNull(rs("Thu_Lao_DD"))%></td>
<td>
<%=numNull(rs("Thu_Lao_QP"))%></td>
<td>
<%=numNull(rs("Thu_Lao_BT")+rs("Thu_Lao_DD")+rs("Thu_Lao_QP"))%></td>
<td>
<%=numNull(rs("Thu_Lao_CTV"))%></td>
</tr>
<%rs.MoveNext
loop%>

</table>
<%
set rs=Nothing
%>
</FONT></P>
</BODY>
</HTML>
DeleteASp.asp :

<%
sql="Delete * from Lich"
sql=sql+" where id="+request("ID")
'Response.Write(sql)
Session("objConnection").Execute (sql)
%>
<Html>
<body>
<Script Language="JScript">
function back()
{
window.history.go(-3);
//document.a.location.reload();
//window.alert(document.url);
}

</Script>
<Font Face=".VnTime" size="3">
B¶n ghi ®· ®îc xo¸.
<p><a href="javascript:back()">TiÕp tôc</a>
</Font>
</Body>
</html>
InputASp.asp :
<%@ Language=VBScript %>
<%
'connect to database
sql = "select The_Loai from The_Loai"
'Response.Write(sql)
Set rs = Session("objConnection").Execute (sql)

%>
<HTML>
<HEAD>
<SCRIPT LANGUAGE="JScript">
function insert()
{
document.frmInput.submit();
}
</SCRIPT>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<! Insert HTML here >
<Font face='.vnTime'>
<Form action="InputAsp.asp" method="POST" name="frmInput">
<table border="0" width="400" cellpadding="0" cellspacing="0">
<tr>
<td width="100">Ngµy :</td>
<td width="80"><input type="text" name="Ngay" size="12"></td>
<td width="40"></td>
<td width="100">Giê phót :</td>
<td width="80"><input type="text" name="GioPhut" size="12"></td>
</tr>
<tr>
<td width="100">ThÓ lo¹i CT:</td>
<td width="80">
<select name="The_Loai" width= '12' size="1">
<%do while not rs.EOF %>
<font face = ".VnTime">
<option value="<%=rs("The_Loai")%>"><%=rs("The_Loai")%></option>

</font>
<% rs.MoveNext
loop%>
<%
set rs=Nothing
%>
</select></td>
<td width="40"></td>
<td width="100"></td>
<td width="80"></td>
</tr>
<tr>
<td width="100">Tªn CT:</td>
<td width="320" colspan="4"><input type="text" name="Ten_Chuong_Trinh" size='33' style="FONT-
FAMILY:.VnTime"></td>
</tr>
<tr>
<td width="80">Biªn tËp:</td>
<td width="80"><input type="text" name="Bien_Tap" size="12" style="FONT-FAMILY:.VnTime"></td>
<td width="40"></td>
<td width="100">Biªn dÞch:</td>
<td width="80"><input type="text" name="Bien_Dich" size="12" style="FONT-FAMILY:.VnTime"></td>
</tr>
<tr>
<td width="100">Thêi lîng:</td>
<td width="80"><input type="text" name="Thoi_Luong" size="12"></td>
<td width="40"></td>
<td width="100">Vïng SX:</td>
<td width="80"><input type="text" name="Vung_SX" size="12" style="FONT-FAMILY:.VnTime"></td>
</tr>

<tr>
<td width="100">HS qui ®æi:</td>
<td width="80"><input type="text" name="He_So_Qui_Doi" size="12"></td>
<td width="40"></td>
<td width="100">Thï lao BT:</td>
<td width="80"><input type="text" name="Thu_Lao_BT" size="12"></td>
</tr>
<tr>
<td width="100">Thï lao DD:</td>
<td width="80"><input type="text" name="Thu_Lao_DD" size="12"></td>
<td width="40"></td>
<td width="100">Thï lao QP:</td>
<td width="80"><input type="text" name="Thu_Lao_QP" size="12"></td>
</tr>
<tr>
<td colspan="5" width="400" align="Center"><br><a href="javascript:insert()"><img
/images/ThucHien.gif" border="0" WIDTH="85" HEIGHT="21"></td>
</tr>
</table>
</form>
</Font>
</BODY>
</HTML>
InputASp.asp :
<%@ Language=VBScript %>
<%
sql="Insert into Lich (Ngay,GioPhut,The_Loai, Ten_Chuong_Trinh, Bien_Tap, Bien_Dich)"
sql=sql+" Values ("
sql=sql+"'"+request("Ngay")+"'," 'Ngay
sql=sql+"'"+request("GioPhut")+"'," 'GioPhut

sql=sql+"'"+request("The_Loai")+"'," 'TheLoai
sql=sql+"'"+request("Ten_Chuong_Trinh")+"'," 'Ten Chuong trinh
sql=sql+"'"+request("Bien_Tap")+"'," 'Bien Tap
sql=sql+"'"+request("Bien_Dich")+"'" 'Bien Dich
sql=sql+")"
'Response.Write(sql)
Session("objConnection").Execute (sql)
%>
<Html>
<body>
<Font Face=".VnTime" size="3">
Mét b¶n ghi ®· ®îc bæ xung.
<p><a href="Input.asp">TiÕp tôc</a>
</Font>
</Body>
</html>
ListOne.asp:
<%@ Language=VBScript %>
<%
ID = request("ID")
'connect to database
sql = "select * from Lich where ID="+ID
'Response.Write(sql)
Set rs = Session("objConnection").Execute (sql)
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<Font Face=".VnTime" color="DarkBlue" Size="3">
<font color="#800080" face=".VnTime" size=5><em><strong>LÞch ph¸t sãng
VTV</strong></em></font>
<br>
<hr width="50%" Color="blue" align="left" Size="3">
<br>
<STRONG>Ngµy : </STRONG>
<%=rs("Ngay")%>
<br><STRONG>Giê
: </STRONG>
<%=rs("GioPhut")%>
<br><STRONG>ThÓ lo¹i
: </STRONG>
<%=rs("The_Loai")%>
<br><STRONG>Tªn ch¬ng
tr×nh : </STRONG>
<%=rs("Ten_Chuong_Trinh")%>
<br><STRONG>Biªn tËp
: </STRONG>
<%=rs("Bien_Tap")%>
<br><STRONG>Biªn dÞch
: </STRONG>
<%=rs("Bien_Dich")%>
<br><STRONG>Thêi
lîng : </STRONG>
<%=rs("Thoi_Luong")%>
<br><STRONG>Vïng s¶n
xuÊt : </STRONG>
<%=rs("Vung_SX")%>
<br><STRONG>HÖ sè qui

®æi : </STRONG>
<%=rs("He_So_Qui_Doi")%>
<br><STRONG>Thï lao BT
: </STRONG>
<%=rs("Thu_Lao_BT")%>
<br><STRONG>Thï lao DD
: </STRONG>
<%=rs("Thu_Lao_DD")%>
<br><STRONG>Thï lao QP
: </STRONG>
<%=rs("Thu_Lao_QP")%>
<br><STRONG>Thï lao CTV
: </STRONG>
<%=rs("Thu_Lao_CTV")%>
<%
set rs=Nothing
%>
<! xoa sua >
<br><br>
<Table width="50%" border=0>
<tr>
<td width="25%"><a href="UpdateElm.Asp?ID=<%=id%>">Söa</a></td>
<td width="25%"><a href="DeleteAsp.Asp?ID=<%=id%>">Xo¸</a></td>
</tr>
</Table>
</Font>
</BODY>
</HTML>
MonthReport.asp:
<%@ Language=VBScript %>

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title></title>
</head>
<body background=" /images/bgr.gif">
<Script language="JScript">
function getCurrentYear()
{
var d = new Date();
var s = String(d.getYear());
if (s.length<=2) s="19"+s;
document.frm.Year.value=s;
}

</Script>
<script language="JavaScript">
<!
function thuchien()
{
document.frm.submit();
}
// >
</script>
<font color="#800080" Size="5" face = ".VnTime"><em><strong>
B¸o c¸o lÞch ph¸t sãng VTV theo th¸ng
</strong></em></font>
<SCRIPT LANGUAGE="JScript">
</SCRIPT>

<a href="javascript:thuchien()"><img /images/Thuchien.gif" alt="Xem b¸o c¸o thêi gian truy cËp
INTERNET" border="0" WIDTH="85" HEIGHT="21"></a></strong></font></p></div></td>
</tr>
</table>
</div>
</form>
<p align="left"><font face=".VnTime"></p></FONT>
<script>
getCurrentYear();
</script>
</body>
</html>
Schedule.asp:
<%@ Language=JavaScript %>
<%
var month = Request("month");
var year = Request("year");
function drawCalendar(month,year)
{
var startDay=new Date(year,month-1,1);
var endDay=new Date(year,month-1,31);
i=31;
while (endDay.getMonth()>month-1)
{
endDay=new Date(year, month-1,i-1);
i ;
}
startDate=1;
endDate=endDay.getDate();
//mang lu lich

var luoi=new Array(42);
for (i=0;i<42;i++) luoi[i]=0;
//how many week in month
var numWeek;

//ngay dau thang la thu may
n=endDay.getDate();
var Week=new Array(); // So ngay cua tung tuan
if (startDay.getDay()==0) Week[0]=1;
else Week[0]=7-startDay.getDay()+1;
for (j=6;j>6-Week[0];j ) luoi[j]=j-6+Week[0];
n=n-Week[0];
i=0;
while (n>0)
{
i++;
if (n>=7) Week[i]=7;
else Week[i]=n;
for (j=0;j<Week[i];j++) luoi[j+7*i]=(i-1)*7+j+1+Week[0];
n=n-Week[i];
}
//ve bang
Response.Write("<Font color=#800080><h2>LÞch ph¸t sãng th¸ng "+month+" n¨m "+year+"
</h2></Font>");
Response.Write("<Table border=1 cellpadding=0 cellspacing=0 width=840>");
//Tinh chieu rong va cao o
var CellWidth=(840-60)/(Week.length);
// Hang chi so tuan
Response.Write("<tr align=center bgcolor=#808000>");
for (j=-1;j<Week.length;j++)

{
Response.Write("<td>");
switch (j)
{
case -1: Response.Write("Tuần"); break;
case 0: Response.Write("I"); break;
case 1: Response.Write("II"); break;
case 2: Response.Write("III"); break;
case 3: Response.Write("IV"); break;
case 4: Response.Write("V"); break;
case 5: Response.Write("VI"); break;
}
Response.Write("</td>");
}
Response.Write("</tr>");
// vong lap viet ra ngay
for (i=0;i<7; i++)
{
Response.Write("<tr bgcolor=#C0C0C0 align=center>");
// viet thu
Response.Write("<td width=60 rowspan=2>");
switch (i)
{
case 0: Response.Write("Thứ hai"); break;
case 1: Response.Write("Thứ ba"); break;
case 2: Response.Write("Thứ t"); break;
case 3: Response.Write("Thứ năm"); break;
case 4: Response.Write("Thứ sáu"); break;
case 5: Response.Write("Thứ bảy"); break;
case 6: Response.Write("Chủ nhật"); break;

}
Response.Write("</td>");
for (j=0;j<Week.length;j++)
{
Response.Write("<td width="+CellWidth+">");
if (luoi[i+7*j]!=0) Response.Write(luoi[i+7*j]);
else Response.Write(" ");
Response.Write("</td>");
}
Response.Write("</tr>");
Response.Write("<tr>");
for (j=0;j<Week.length;j++)
{
Response.Write("<td>");
if (luoi[i+7*j]==0) Response.Write(" ");
else
{
var day=luoi[i+7*j];
sql="Select * from Lich where Ngay=#"+month+"/"+day+"/"+year+"#";
var rs = Session("objConnection").Execute(sql);
while (!rs.EOF)
{
Response.Write("<a href=\"ListOne.asp?ID="+rs("id")
+"\"> "+rs("Ten_Chuong_Trinh")+"</a><br>");
rs.MoveNext();
}
rs.close();
}
Response.Write("</td>");
}

Response.Write("</tr>");
}
Response.Write("</Table>");
}
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY background=" /Images/bgr.gif">
<Font face=".VnTime" size=3>
<%drawCalendar(month,year);%>
<P> </P>
</Font>
</BODY>
</HTML>
ScheduleInit.asp:
<%@ Language=VBScript %>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<Script language="JScript" RUNAT="SERVER">
function selectMonth(month)
{
var d = new Date();
if (month==(d.getMonth()+1))
return "Selected";
else
return "";
}

</Script>
<Script language="JScript">
function getCurrentYear()
{
var d = new Date();
var s = String(d.getYear());
if (s.length<=2) s="19"+s;
document.frm.year.value=s;
}

</Script>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title></title>
</head>
<body background=" /images/bgr.gif">
<script language="JavaScript">
<!
function thuchien()
{
document.frm.submit();
}
// >
</script>
<font color="#800080" Size="5" face=".VnTime"><em><strong>
LÞch ph¸t sãng theo th¸ng
</strong></em></font>
<SCRIPT LANGUAGE="JScript">
</SCRIPT>
<form action="Schedule.asp" method="post" name="frm">
<div align="left"><table border="0" width="502" cellspacing="0" cellpadding="0">

</form>
<p align="left"><font face=".VnTime"></p></FONT>
<Script>
getCurrentYear();
</Script>
</body>
</html>
UpdateAsp.asp:
<%@ Language=VBScript %>
<%
sql="Update Lich set "
sql=sql+"Ngay='"+request("Ngay")+"',"
sql=sql+"GioPhut='"+request("GioPhut")+"',"
sql=sql+"The_Loai='"+request("The_Loai")+"'," 'TheLoai
sql=sql+"Ten_Chuong_Trinh='"+request("Ten_Chuong_Trinh")+"'," 'Ten Chuong trinh
sql=sql+"Bien_Tap='"+request("Bien_Tap")+"'," 'Bien Tap
sql=sql+"Bien_Dich='"+request("Bien_Dich")+"'" 'Bien Dich
sql=sql+" where id="+request("ID")
'Response.Write(sql)
Session("objConnection").Execute (sql)
%>
<Html>
<body>
<Script Language="JScript">
function back()
{
window.history.go(-2);
//document.a.location.reload();
//window.alert(document.url);
}

</Script>
<Font Face=".VnTime" size="3">
Bản ghi đã đợc cặp nhật.
<p><a href="javascript:back()">Tiếp tục</a>
</Font>
</Body>
</html>
UpdateElm.asp:
<%@ Language=VBScript %>
<%
ID = request("ID")
'connect to database
sql = "select * from Lich where ID="+ID
'Response.Write(sql)
Set rs = Session("objConnection").Execute (sql)
'connect to database
sql = "select The_Loai from The_Loai"
'Response.Write(sql)
Set rsTheLoai = Session("objConnection").Execute (sql)
Function optionCT(s1,s2)
if (s1=s2) then
optionCT="selected"
exit Function
else
optionCT=""
exit Function
end If
End Function
%>

<HTML>
<HEAD>
<SCRIPT LANGUAGE="JScript">
function update()
{
document.frmUpdate.submit();
}
</Script>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<! Insert HTML here >
<Font face='.vnTime'>
<Form action="UpdateAsp.asp" method="POST" name="frmUpdate">
<input type="Hidden" name="ID" Value="<%=ID%>">
<table border="0" width="400" cellpadding="0" cellspacing="0">
<tr>
<td width="100">Ngày :</td>
<td width="80"><input type="text" name="Ngay" size="12" Value="<%=rs("Ngay")%>"></td>
<td width="40"></td>
<td width="100">Giờ phút :</td>
<td width="80"><input type="text" name="GioPhut" size="12" Value=<%=rs("GioPhut")%>></td>
</tr>
<tr>
<td width="100">ThÓ lo¹i CT:</td>
<td width="80">
<select name="The_Loai" width= '12' size="1">
<%do while not rsTheLoai.EOF %>
<font face = ".VnTime">
<option face=".VnTime" style="FONT-FAMILY:.VnTime" value="<%=rsTheLoai("The_Loai")%>" <

%=optionCT(rsTheLoai("The_Loai"),rs("The_Loai"))%>><%=rsTheLoai("The_Loai")%> </option>
</font>
<% rsTheLoai.MoveNext
loop%>
<%
set rsTheLoai=Nothing
%>
</select></td>
<td width="40"></td>
<td width="100"></td>
<td width="80"></td>
</tr>
<tr>
<td width="100">Tªn CT:</td>
<td width="320" colspan="4"><input type="text" name="Ten_Chuong_Trinh" size='33' Value="<
%=rs("Ten_Chuong_Trinh")%>" style="FONT-FAMILY:.VnTime"></td>
</tr>
<tr>
<td width="80">Biªn tËp:</td>
<td width="80"><input type="text" name="Bien_Tap" size="12" Value="<%=rs("Bien_Tap")%>"
style="FONT-FAMILY:.VnTime"></td>
<td width="40"></td>
<td width="100">Biªn dÞch:</td>
<td width="80"><input type="text" name="Bien_Dich" size="12" Value="<%=rs("Bien_Dich")%>"
style="FONT-FAMILY:.VnTime"></td>
</tr>
<tr>
<td width="100">Thêi lîng:</td>
<td width="80"><input type="text" name="Thoi_Luong" size="12" Value="<%=rs("Thoi_Luong")%>"></td>
<td width="40"></td>

<td width="100">Vïng SX:</td>
<td width="80"><input type="text" name="Vung_SX" size="12" Value="<%=rs("Vung_SX")%>"
style="FONT-FAMILY:.VnTime"></td>
</tr>
<tr>
<td width="100">HS qui ®æi:</td>
<td width="80"><input type="text" name="He_So_Qui_Doi" size="12" Value="<%=rs("He_So_Qui_Doi")
%>"></td>
<td width="40"></td>
<td width="100">Thï lao BT:</td>
<td width="80"><input type="text" name="Thu_Lao_BT" size="12" Value="<%=rs("Thu_Lao_BT")
%>"></td>
</tr>
<tr>
<td width="100">Thï lao DD:</td>
<td width="80"><input type="text" name="Thu_Lao_DD" size="12" Value="<%=rs("Thu_Lao_DD")
%>"></td>
<td width="40"></td>
<td width="100">Thï lao QP:</td>
<td width="80"><input type="text" name="Thu_Lao_QP" size="12" Value="<%=rs("Thu_Lao_QP")%>"></td>
</tr>
<tr>
<td colspan="5" width="400" align="Center"><br><a href="javascript:update()"><img
/images/ThucHien.gif" border="0" WIDTH="85" HEIGHT="21"></td>
</tr>

Tài liệu Web tĩnh HTML

Tài liệu liên quan

Tài liệu bạn tìm kiếm đã sẵn sàng tải về