仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 2099|回复: 19
打印 上一主题 下一主题

[学习教程] ASP教程之ASP制造先生档案办理体系(卒业论文)

[复制链接]
飘灵儿 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-2-3 23:30:16 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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版会好点吧
愤怒的大鸟 该用户已被删除
沙发
发表于 2015-2-4 00:04:10 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
变相怪杰 该用户已被删除
板凳
发表于 2015-2-9 07:40:24 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
小女巫 该用户已被删除
地板
发表于 2015-2-25 08:52:20 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
深爱那片海 该用户已被删除
5#
发表于 2015-3-4 09:35:27 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
飘灵儿 该用户已被删除
6#
 楼主| 发表于 2015-3-7 20:08:19 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
山那边是海 该用户已被删除
7#
发表于 2015-3-15 07:41:11 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
爱飞 该用户已被删除
8#
发表于 2015-3-19 04:34:21 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
谁可相欹 该用户已被删除
9#
发表于 2015-3-21 14:16:21 | 只看该作者
那么,ASP.Net有哪些改进呢?
蒙在股里 该用户已被删除
10#
发表于 2015-3-27 18:20:57 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
若天明 该用户已被删除
11#
发表于 2015-4-19 10:16:24 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
admin 该用户已被删除
12#
发表于 2015-4-21 06:23:02 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
小妖女 该用户已被删除
13#
发表于 2015-4-21 07:08:30 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
不帅 该用户已被删除
14#
发表于 2015-4-21 21:11:56 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
飘飘悠悠 该用户已被删除
15#
发表于 2015-5-6 14:09:31 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
16#
发表于 2015-6-9 22:14:28 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
分手快乐 该用户已被删除
17#
发表于 2015-6-11 04:15:19 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
再见西城 该用户已被删除
18#
发表于 2015-6-20 20:52:36 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
第二个灵魂 该用户已被删除
19#
发表于 2015-6-26 04:16:58 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
金色的骷髅 该用户已被删除
20#
发表于 2015-7-9 00:17:13 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-22 18:58

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表