ASP数据库实验源代码清单Word下载.docx

1、adodb.recordsetstrin= insert into student（no,name,sex,dept,score） VALUES（99001,张三男信管,560）rs.open strin,cn利用connection的execute函数进行插入 strin= 99002赵敏女计算机,700） cn.execute strin%/body/html2. 直接插入数据（Access）direinacc.asp和数据库文件tms.mdb strconn=driver=microsoft access driver （*.mdb）;dbq=&server.mappath（tms.md

2、b cn.open strconn set rs=server.createobject（ rs.open strin,cn99003cn.execute strin3. 通过网页插入数据（SQL Server）formin.htm、formin.asp和数据库文件data文件夹formin.htm通过表单插入信息 table border=1 width=40% align=centercaption通过交互表单提交信息 学生学号：/tdtdinput type=text name=txtno size=20学生姓名：txtname学生性别：radiotxtsex value=男男女女所在院

3、系：select name=txtdeptoption selected value=管理学院管理学院option value=经济学院经济学院文法学院文法学院 材料学院材料学院外国语学院外国语学院入学分数：txtscore td align=center colspan=2submit确认reset提交r1/table/formformin.asp tmpno=request.form（ tmpname=request.form（ tmpsex=request.form（ tmpdept=request.form（ tmpscore=request.form（insert into stud

4、ent（no,name,sex,dept,score） strin=strin&values（tmpno&tmpname&tmpsex&tmpdept&,tmpscore&） response.write script language=JavaScript & alert（记录插入成功！）;history.back（）;/script4. 插入数据并显示数据（SQL Server）finsel.htm、finsel.asp和数据库文件data文件夹（finsel.htm同formin.htm）1 finsel.asp插入同时显示信息学生信息表的所有信息th bgcolor=#CCCCCC v

5、align=middle%=rs（i）.name%/th% next % do while （not rs.eof） %td valign=middle%=rs（i）.value%next % rs.movenext loop % rs.close set rs=nothing cn.close set cn=nothing5. 验证并插入数据（SQL Server）checkin.htm、checkin.asp和数据库文件data文件夹1 checkin.htmscript language=javascript function checkform（） if（checkno（）&check

6、name（）&checksex（）& checkdept（）&checkscore（） return true; else return false; /学号非空+长度+合法性验证function checkno（） var no=document.myform.txtno; if（no.value=） alert（请输入学号 no.focus（）; if（no.value.length!=5）学号长度为5位 no.select（）; if（isNaN（no.value） 学号包含非法字符，只能包括数字 return true;function checkname（） var name=doc

7、ument.myform.txtname; if（name.value=请输入姓名 name.focus（）; if（name.value.length8）姓名最多8个字符 name.select（）;function checksex（） if（document.myform.txtsex0.checked=false&document.myform.txtsex1.checked=false ）请选择性别function checkdept（） if （document.myform.txtdept.selectedIndex=0）请选择院系function checkscore（） if

8、 （document.myform.txtscore.value=请输入成绩 document.myform.txtscore.focus（）; if （document.myform.txtscore.value750）成绩输入错误，成绩必须在0750之间 document.myform.txtscore.select（）;form name=myform action=checkin.asp method=post onsubmit=return checkform（）no selected请选择院系重置2 checkin.aspselect * from student where no= tmpno & rs.open selstr,cn if not （rs.eof） then response.write 该账号已被占用，请重新选择用户名！ rs.close else注册成功！ end if