Chương 4. Phần mềm thực nghiệm: Quản lý đào tạo từ xa
4.3 Một số mã nguồn
4.3.1 Đăng ký học từ xa
<HTML>
<FONT color=red face="Times New Roman"><B>KHOA CễNG NGHỆ - ĐÀO TẠO TỪ XA</B><BR></FONT></B><FONT
<body>
<p> <font size=4 color=green><b> ĐĂNG KÝ HỌC - HỆ ĐÀO TẠO TỪ XA</font></b> <br>
<%
Dim conn, connstr, rec
set conn=Server.createobject("adodb.connection") connstr="Provider=microsoft.jet.oledb.4.0;data source="
connstr=connstr&Server.mappath("dulieu.mdb") conn.open connstr
set rec=Server.createobject("adodb.recordset") rec.Open "Select *from tentinh",conn
%>
<Form method = post Action ="BSVaolop.asp"
Name="frmDKLop">
<input type =Hidden name="Action" Value="DK">
<table cols=2 border=1 cellspacing=4 aligh=center>
<tr>
<td background="\pics\bg030.jpg" >Họ tờn </td>
<td> <input type =text name="ht" size=25> </td>
<td background="\pics\bg030.jpg"> Ngày sinh </td>
<td> <input type=text name="NS" size=15> </td>
</tr>
<tr>
<td background="\pics\bg030.jpg"> Giới tớnh </td>
<Option value="Nam"> Nam <br>
<Option value="Nu"> Nữ <br>
</select>
</td>
<td background="\pics\bg030.jpg"> Số CMT </td>
<td ><input type=password name="socmt" size=15> <td>
</tr>
<tr>
<td background="\pics\bg030.jpg"> Hộ khẩu</td>
<td width=30 ><Select name="qq">
<%While not rec.eof%>
<option value="<%=rec("tent")%>"><%=rec("tent")%>
<%
rec.movenext wend
%>
</td>
<td background="\pics\bg030.jpg"> Trỡnh độ văn hóa </td>
<td width=15 > <select name="tdvh">
<Option value="PTTH"> PT trung học <br>
<Option value="Trung cap"> Trung cấp <br>
<Option value="Cao dang"> Cao đẳng <br>
<Option value="Dai hoc"> Đại học <br>
<Option value="Sau dai hoc"> Trên đại học <br>
</select></td>
</tr>
<tr>
<td background="\pics\bg030.jpg"> Học ngành </td>
<td width=30 >
<select name="dkhn" size=3>
<Option seleted value= "Cong nghe DTVT" > Cụng nghệ ĐTVT<br>
<Option value= "Cong nghe TT" > Cụng nghệ thụng tin<br>
<Option value= "Vat ly K.thuat" > Vật lý kỹ thuật<br>
</select>
</td>
</tr>
<br>
<tr>
<td></td>
<td>
<Input type=Button Value="Đồng ý" Name="CmdSubmit">
</td>
</tr>
<frmdklop.ht.setfocus>
</table>
</form>
<Script Language =VBScript>
<!--
sub CmdSubmit_Onclick() Dim Chapnhan
Chapnhan=Len(frmDKLop.ht.Value)>0 And Len(frmDKLOP.socmt.value)>0 Chapnhan=chapnhan and len(frmDKLop.ns.Value)>0
Chapnhan=chapnhan and len(frmDKLop.qq.Value)>0 Chapnhan=chapnhan and len(frmDKLop.tdvh.Value)>0 Chapnhan=chapnhan and len(frmDKLop.dkhn.Value)>0 If not Chapnhan then
Alert "Can nhap du thong tin"
'MsgBox "Can nhap du thong tin"
frmDKLop.ht.Focus Exit sub
else
frmDklop.submit() End if
End sub -->
</Script>
</HTML>
BSVAOLOP.ASP
<%
'Khai bao chung va cac ham, thu tuc Option Explicit
Dim connStr, conn,rec Sub Bosungvaolop() Dim sq
'Response.write "Bạn đó đăng ký "&"<br>"
sq="Insert into dangkyhoc"
sq=sq&"(hoten,ngaysinh,gioitinh,socmt,quequan,tdvanhoa,dkhocnganh)"
sq=sq&"values('"&Request.form("ht")&"'"
sq=sq&",#"&Request.form("ns")&"#"
sq=sq&",'"&Request.form("gt")&"'"
sq=sq&",'"&Request.form("socmt")&"'"
sq=sq&",'"&Request.form("qq")&"'"
sq=sq&",'"&Request.form("tdvh")&"'"
sq=sq&",'"&Request.form("dkhn")&"'"
sq=sq&")"
conn.execute sq
'Response.write "Đó đăng ký thành cụng" &"<br>"
end sub
%>
<%
if request.Form ("action")="DK" then 'Ket noi voi CSDL: data.mdb
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data source"
connStr=ConnStr&"=c:\inetpub\wwwroot\02-06pj\dulieu.mdb"
Set conn=Server.CreateObject("ADODB.Connection") conn.Open connStr
Set rec=Server.CreateObject("ADODB.Recordset") rec.Open "Select *From dangkyhoc", conn
%>
<%
Dim Dadk dadk=0
Do while not rec.eof
if request.form("socmt")=rec("socmt") then dadk=1
exit do end if
rec.moveNext loop
if Dadk=1 then
Response.write "Bạn đó đăng ký rồi, chọn OK để tiếp tục"& "<br>"
else
Bosungvaolop()
Response.Write"Bạn đó đăng ký thành cụng, chọn OK để tiếp tục"&"<br>"
end if
%>
<%else
Response.write"Chưa đăng ký, chọn OK để đăng ký lại"
end if
%>
<HTML>
<A href="nhapdanhsach.asp">OK</A>
</HTML>