信息录入界面

信 息 查 询

三、程序实现



由于本系统是基于ASP开发的实现在线操作的系统。所以，本系统的完成需要借助HTML，又由于HTML是网页编程的基础，所以，在这里就省去HTML代码，相信大家都是HTML高手。



1、信息录入



<%

dim strsql,rs

set conn=createobject(ADODB.connection) //建立ADODB连接

conn.open (DSN=information;UID=;PWD=;) //打开数据源information

set rs=createobject(ADODB.Recordset) //建立记录对象rs

rs.open infor,conn,3,3 //打开数据库里的infor表

rs.Addnew //添加一条新的记录

rs(name).value=request.form(name) /*取得表单名为 name里的内容“送”

到数据库name记录里（备注：表单名是信息录入界面里的提示信息是“姓名”的表单域的名字，以下类似）*/

rs(sex).value=request.form(sex)

rs(birth).value=request.form(birthday)

rs(zzmm).value=request.form(zz)

rs(teach).value=request.form(teach)

rs(xl).value=request.form(xl)

rs(class).value=request.form(class)

rs(school).value=request.form(school)

rs(add).value=request.form(add)

rs(tel).value=request.form(tel)

rs(hy).value=request.form(mar)

rs(jg).value=request.form(addr)

rs(career).value=request.form(career)

rs(date).value=request.form(time)

rs(school).value=request.form(school)

rs.Update //保存数据库里的记录

Response.Write (你已经成功注册的这位学员的信息。请继续<a href='input.htm'>注册 </a>) //显示提示信息

rs.close //关闭数据记录

conn.close //关闭连接

set rs=nothing

set conn=nothing

%>



2、信息查询



<%

dim strsql,conn,rs

set conn=server.createobject(ADODB.connection)

conn.open (DSN=information;UID=;PWD=;)

set rs=server.createobject(ADODB.Recordset)

strsql=select * from infor where name= ' & request(name) &'//利用SQL建立查询

rs.open strsql,conn

%>

<table width=1205 border=1 align=left bordercolor=#6600CC>

<tr> //本行写上要显示的字段的相应的中文名

<td width=69><div align=center><font size=2>姓名</font></div></td>

<td width=46><div align=center><font size=2>性别</font></div></td>

<td width=122><div align=center><font size=2>出生年</font></div></td>

<td width=46><div align=center><font size=2>学历</font></div></td>

<td width=91><div align=center><font size=2>政治面貌</font></div></td>

<td width=91><div align=center><font size=2>专业</font></div></td>

<td width=50><div align=center><font size=2>班级</font></div></td>

<td width=69><div align=center><font size=2>班主任</font></div></td>

<td width=122><div align=center><font size=2>入学时间</font></div></td>

<td width=146><div align=center><font size=2>联系电话</font></div></td>

<td width=337><div align=center><font size=2>联系地址</font></div></td>

</tr>

<% while Not rs.eof %> //循环语句控制符合条件的记录输出

<tr> //本行根据循环条件可以重复输出

<td><div align=center><font size=2><%=rs(name)%></font></div></td>

/*输出数据库中符合条件的name字段的值*/

<td><div align=center><font size=2><%=rs(sex)%></font></div></td>

<td><div align=center><font size=2><%=rs(birth)%></font></div></td>

<td><div align=center><font size=2><%=rs(xl)%></font></div></td>

<td><div align=center><font size=2><%=rs(zzmm)%></font></div></td>

<td><div align=center><font size=2><%=rs(career)%></font></div></td>

<td><div align=center><font size=2><%=rs(class)%></font></div></td>

<td><div align=center><font size=2><%=rs(teach)%></font></div></td>

<td><div align=center><font size=2><%=rs(date)%></font></div></td>

<td><div align=center><font size=2><%=rs(tel)%></font></div></td>

<td><div align=center><font size=2><%=rs(add)%></font></div></td> </tr>

<% rs.movenext

Wend

rs.close

conn.close

%>

</table>



3、信息修改



<%

set conn=server.createobject(adodb.connection)

conn.open DSN=information;UID=;PWD=;

set rs=server.CreateObject(adodb.recordset)

username=request(name) // 取得name表单的值赋给username

strsql=select * from infor where name='&username&' //建立SQL查询

rs.open strsql,conn,3,3

%>

<form action=zhuce.html method=post>

// 以POST方式将修改的记录通过zhuce.html页面的程序保存到数据库当中

<table width=75% border=1 align=center bordercolor=#663399>

<tr>

<td width=18%><div align=right><font size=2>姓 名：</font></div></td>

<td width=36%><font size=2>

<input name=name type=text id=name value=<%=rs.fields(name)%>>

</font></td> //显示符合查询条件的数据库当中name字段的值，供修改

<td width=15%><div align=right><font size=2>入学时间：</font></div></td>

<td width=31%><input name=time type=text id=time value=<%=rs.fields(date)%>></td>

</tr>

<tr>

<td height=20><div align=right><font size=2>性 别：</font></div></td>

<td><p>

<label>

<input name=sex type=radio value=<%=rs.fields(sex)%> checked>

男</label>

<label>

<input type=radio name=sex value=<%=rs.fields(sex)%>>

女</label>

<br>

</p></td>

<td><div align=right><font size=2>专业：</font></div></td>

<td><input name=career type=text id=career value=<%=rs.fields(career)%>></td>

</tr>

<tr>

<td><div align=right><font size=2>出生年月：</font></div></td>

<td><font size=2>

<input name=birthday type=text id=birthday value=<%=rs.fields(birth)%>>

</font></td>

<td><div align=right><font size=2>班级：</font></div></td>

<td><input name=class type=text id=class value=<%=rs.fields(class)%>></td>

</tr>

<tr>

<td><div align=right><font size=2>政治面貌：</font></div></td>

<td><select name=zz id=zz>

<option value=团员>团员</option>

<option value=党员>党员</option>

<option value=其他>其他</option>

</select></td>

<td><div align=right><font size=2>班主任：</font></div></td>

<td><input name=teach type=text id=teach value=<%=rs.fields(teach)%>></td>

</tr>

<tr>

<td><div align=right><font size=2>学历：</font></div></td>

<td><font size=2>

<select name=xl id=xl>

<option value=初中>初中</option>

<option value=高中>高中</option>

<option value=大专>大专</option>

<option value=本科>本科</option>

<option value=研究生>研究生</option>

<option value=其他>其他</option>

</select>

</font></td>

<td><div align=right><font size=2>教室：</font></div></td>

<td><input name=room type=text id=room></td>

</tr>

<tr>

<td><div align=right><font size=2>原毕业学校：</font></div></td>

<td><font size=2>

<input name=school type=text id=school value=<%=rs.fields(school)%>>

</font></td>

<td colspan=2 rowspan=5><div align=left>

<p><font color=#FF0000 size=2>请数据录入人员认真录入学员信息，以便以</font></p>

<p><font color=#FF0000 size=2>后查询！</font></p>

</div></td>

</tr>

<tr>

<td><div align=right><font size=2>联系地址：</font></div></td>

<td><font size=2>

<input name=add type=text id=add value=<%=rs.fields(add)%>>

</font></td>

</tr>

<tr>

<td><div align=right><font size=2>联系电话：</font></div></td>

<td><font size=2>

<input name=tel type=text id=tel value=<%=rs.fields(tel)%>>

</font></td>

</tr>

<tr>

<td><div align=right><font size=2>婚姻状况：</font></div></td>

<td><select name=mar id=mar>

<option value=已婚>已婚</option>

<option value=未婚>未婚</option>

</select></td>

</tr>

<tr>

<td><div align=right><font size=2>籍贯：</font></div></td>

<td><font size=2>

<input name=addr type=text id=addr value=<%=rs.fields(jg)%>>

</font></td>

</tr>

</table>

<table width=75% border=0>

<tr>

<td><div align=center>

<input type=submit name=Submit2 value=保 存>

</div></td>

<td><input type=reset name=Reset value=重 写></td>

</tr>

</table>

<p>&nbsp;</p>

</form>