Đăng ký học từ xa

Một phần của tài liệu (LUẬN VĂN THẠC SĨ) Quản lý cơ sở dữ liệu trên mạng Internet bằng mô hình cơ sở dữ liệu phân tán (Trang 130 - 134)

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>

Một phần của tài liệu (LUẬN VĂN THẠC SĨ) Quản lý cơ sở dữ liệu trên mạng Internet bằng mô hình cơ sở dữ liệu phân tán (Trang 130 - 134)

Tải bản đầy đủ (PDF)

(141 trang)