自考“计算机及应用”专业论文参考范文（6）
来源：本站整理 时间：2020-02-13 15:57:32
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.asp” method=“post”
// 以POST方式将修改的记录通过zhuce.asp页面的程序保存到数据库当中
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
[全文完，参考资料请自行补充]
