|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
SQL Server是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 摘要:本体系是依据古代化校园的开展而设计的基于ASP的先生档案办理体系,本体系可以便利先生、家长来黉舍查找先生。完成全校先生信息在线查询。还可以对新来的学员信息停止信息录入。因为学员上课情形庞杂,可以完成信息修正,实时调剂学员的根基情形。
关头字 ASP 在线查询 信息录入 信息修正
1、制造数据库和创立数据源
1、使用Microsoft Access 制造数据库,取名为information,然后制造表,表名为infor.上面写入数据字段。如图所示:
2、创立ODBC数据源(在2000 professional 体系中创立)
步调:
掌握面板à办理东西àODBC数据源à体系DSNàAdd….ODBC界面
2、体系界面
一个好的体系需求一个友爱的用户界面。因为本体系是基于ASP开辟的,所以,咱们使用网页制造东西制造友爱的用户界面。局部界面如图所示:
进入界面:
信息录入界面
信 息 查 询
<P> 3、法式完成
因为本体系是基于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.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> </p>
</form>
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧 |
|