📄 11618807869906_4.html
字号:
<li id="legv2-16"><a href="javascript:if(confirm('http://tech.ddvip.com/program/other/index.html \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/program/other/index.html'" tppabs="http://tech.ddvip.com/program/other/index.html">其它</a></li> </ul> </div> </div> <div id="tech_content_tl" class="tlad"></div><!-- 内容部分 --><div class="content"> <div class="location"> <a href="javascript:if(confirm('http://www.ddvip.com/ \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://www.ddvip.com/'" tppabs="http://www.ddvip.com/" target="_balnk">豆豆网</a> > <a href="javascript:if(confirm('http://tech.ddvip.com/index.html \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/index.html'" tppabs="http://tech.ddvip.com/index.html">技术应用</a> > <a href="javascript:if(confirm('http://tech.ddvip.com/program/index.html \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/program/index.html'" tppabs="http://tech.ddvip.com/program/index.html">程序设计</a> > <a href="javascript:if(confirm('http://tech.ddvip.com/web/asp/index.html \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/web/asp/index.html'" tppabs="http://tech.ddvip.com/web/asp/index.html">asp</a> > 正文 </div> <div class="content_left"> <div class="article"> <div class="article_title"> <h1>ASP入门基础教程-实例 工资管理系统</h1> <div class="title_bottom"><script language="javascript" src="../a_dir_d/title_bottom.js" tppabs="http://tech.ddvip.com/a_dir_d/title_bottom.js"></script></div> <p><a href="javascript:if(confirm('http://tech.ddvip.com/ \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/'" tppabs="http://tech.ddvip.com/">http://tech.ddvip.com</a> 2006年10月27日 <a href="javascript:if(confirm('http://bbs.ddvip.com/ \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://bbs.ddvip.com/'" tppabs="http://bbs.ddvip.com/">社区交流</a></p> </div> <div class="article_content"> <div class="title_bottom_cpr"><script src="../a_dir_d/ad_title_bottom.js" tppabs="http://tech.ddvip.com/a_dir_d/ad_title_bottom.js"></script></div> <!--ID="929"--><div class="searchhot">关键字：<a href="javascript:if(confirm('http://tech.ddvip.com/search.php?key=ASP技巧 \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/search.php?key=ASP技巧'" tppabs="http://tech.ddvip.com/search.php?key=ASP技巧" target="_blank">ASP技巧</a> <a href="javascript:if(confirm('http://tech.ddvip.com/search.php?key=ASP脚本 \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/search.php?key=ASP脚本'" tppabs="http://tech.ddvip.com/search.php?key=ASP脚本" target="_blank">ASP脚本</a> <a href="javascript:if(confirm('http://tech.ddvip.com/search.php?key=Server \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/search.php?key=Server'" tppabs="http://tech.ddvip.com/search.php?key=Server" target="_blank">Server</a> <a href="javascript:if(confirm('http://tech.ddvip.com/search.php?key=ODBC \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/search.php?key=ODBC'" tppabs="http://tech.ddvip.com/search.php?key=ODBC" target="_blank">ODBC</a> <a href="javascript:if(confirm('http://tech.ddvip.com/search.php?key=ASP连接数据库 \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/search.php?key=ASP连接数据库'" tppabs="http://tech.ddvip.com/search.php?key=ASP连接数据库" target="_blank">ASP连接数据库</a> <a href="javascript:if(confirm('http://tech.ddvip.com/search.php?key=ASP入门 \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/search.php?key=ASP入门'" tppabs="http://tech.ddvip.com/search.php?key=ASP入门" target="_blank">ASP入门</a> </div> <div class="article_z"><h2> 本文详细介绍ASP入门基础教程-实例 工资管理系统 </h2> </div> <div class="article_ad"><script language="javascript" src="../a_dir_d/ads_250x250.js" tppabs="http://tech.ddvip.com/a_dir_d/ads_250x250.js"></script></div> <div id='clickeye_content'> <div class="article_c" id="fontsize"> <p> 1、采用 server 对象的 createobject 方法创建一个连接对象和一个记录集对象；</p><p> 2、采用连接（Connection) 对象的 Open (打开）和 Close （关闭）两个方法打开和关闭一个数据库；</p><p> 3、采用记录集（Recordset) 对象中的 Open 和 Close 两个方法打开和关闭记录集；</p><p> 4、通过 Recordset 对象的 Update 属性更新记录；</p><p> 5、通过 Session 对象保存会话期中当前记录号；</p><p> 6、通过把 text3 到 text8 六个文本框之值的代数和赋给 text9文本框，自动输出实发工资的数;</p><p> 7、ccur 函数：强制进行货币计算。</p><p> <strong>添加记录</strong></p><p> 一、添加记录页面的功能：添加新增员工的工资信息：</p><p> 二、添加记录页面的实现过程：</p><p> 1、创建一个表单。用于输入记录中各字段的字段值；</p><p> 2、通过列表框中的选中项，将其赋给 txt1 文本框，作为员工编号的头部，并使 txt1 文本框获得焦点；</p><p> 3、当 txt1 文本框失去焦点时，判断此文本框值的长度是否小于5，若是，则弹出一个信息框：“编号太短”，否则将焦点转交给txt2文本框。</p><p> 4、连接数据库并打开“老师工资”表；</p><p> 5、判断“员工姓名”是否输入了，若是，则从记录集中将各字段名读取后赋给数组 an ，并从表单中读取各对象的值赋给数组 bb ；否则，弹出一个信息框：“姓名不能为空”；</p><p> 6、通过 Recordset 对象的 AddNew 方法将 aa 和 bb 两数组中的值添加到记录集；</p><p> 7、通过 Recordset 对象的 Update 方法更新记录集；</p><p> 8、关闭记录集和数据库。</p><p> 三、修改记录页面的代码如下：</p><code><html><br /><head><title>教师工资表</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><br /><body bgcolor="#cccc99" Language=VBScript><br /><!--创建一个表单。用于输入记录中各字段的字段值。--><br /><form method='post' name=frm1 action='list3.asp'><br /><table border=1 align=center cellspcing=1 cellpadding=4 height=200 bgcolor="#909011"><br /><tr><td width=100><td width=195><br /><tr><td>所在部门<td><br /><select id=select1 style="width:100px" name=select1><br /><option value="01">教务处<br /><option value="02">英语教研室<br /><option value="03">语文教研室<br /><option value="04">数学教研室<br /><option value="05">财务处<br /></select><br /><input type=hidden name=hid value='教务处'><br /><tr><td>员工编号<td><input type=text name=txt1 value=""><br /><tr><td>员工姓名<td><input type=text name=txt2 value=""><br /><tr><td>基本工资<td><input type=text name=txt value=""><br /><tr><td>岗位工资<td><input type=text name=txt value=""><br /><tr><td>职务工资<td><input type=text name=txt value=""><br /><tr><td>年动工资<td><input type=text name=txt value=""><br /><tr><td>养老保险<td><input type=text name=txt value=""><br /><tr><td>医疗保险<td><input type=text name=txt value=""><br /><tr><td>实发工资<td><input type=text name=txt value=""><br /></table><br /><!--当名为select1的列表框失去焦点时，则执行<script></script>标签之内的语句。--><br /><script for=select1 event=onblur Language=vbscript><br />i=frm1.select1.selectedindex '将在列表框中选中项的索引号赋给变量i。<br />f=frm1.select1.options(i).text '将在列表框中选中项的文本值赋给变量f。<br />k=frm1.select1.options(i).value '将在列表框中选中项的值赋给变量k。<br />frm1.hid.value=f '将在列表框中选中项的文本值赋给隐藏框的值。<br />frm1.txt1.value=k '将在列表框中选中项的值赋给文本框1的值。<br />frm1.txt1.focus '文本框1获得的焦点。<br /></script><br /><!--当 txt1 文本框失去焦点时，则判断此文本框值的长度是否小于5，若是，则弹出一个信息框：“编号太短”，否则将焦点交给txt2文本框。--><br /><script for=txt1 event=onblur language=vbscript><br />if len(frm1.txt1.value)<5 then<br />msgbox"编号太短"<br />frm1.txt1.focus<br />else<br />frm1.txt2.focus<br />end if<br /></script><br /><%<br />set conn=server.createobject("adodb.Connection")<br />CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source="<br />conn.ConnectionString=CS & Server.MapPath("rsgl.mdb")<br />conn.Open<br />set rs=server.createobject("adodb.recordset")<br />rs.open"教师工资表",conn,1,2,2<br />p=Request.form("txt2")<br />'如果姓名不为空，则读取各字段的名称添加到数组 na 中。<br />if len(p)>0 then<br />redim na(rs.Fields.count-1)<br />for j=0 to RS.Fields.count-1<br />na(j)=RS.Fields(j).name<br />next<br />redim bb(rs.Fields.count-1)<br />bb(0)=Request.form("hid")<br />bb(1)=Request.form("txt1")<br />bb(2)=Request.form("txt2")<br />for j=3 to RS.Fields.Count-1<br />bb(j)=Request.form("txt")(j-2)<br />next<br />'添加一条新记录。<br />RS.AddNew na,bb<br />'更新一条记录。<br />RS.Update<br />end if<br />Response.write"</table>"<br />RS.close<br />conn.close<br />%><br /><table border=0 align=center height=40><br /><tr><td><input type=submit value="确定增加"><br /></table><br /></form><br /><!--当名为 txt 的各文本框中某一个文本框的值被改变时，实发工资文本框中的值将随之改变。--><br /><script for=txt event=onchange language=vbscript><br />w=ccur(frm1.txt(0).value)+ccur(frm1.txt(1).value)+ccur(frm1.txt(2).value)+ccur(frm1.txt(3).value)<br />w=w-ccur(frm1.txt(4).value)-ccur(frm1.txt(5).value)<br />frm1.txt(6).value=w<br /></script><br /> <!--如果当名为 txt 的各文本框中某一个文本框失去焦点时，则判断姓名是否为空，如为空则弹出一个信息框，并将焦点返回给它自身。--><br /><script for=txt event=onblur language=vbscript><br />if len(frm1.txt2.value)=0 then<br />msgbox"姓名不能空"<br />frm1.txt2.focus<br />end if<br /></script><br /></body><br /></html></code><p> 六、小结：</p> </div> </div> <!-- 分页 --> <div class="page"><a href="11618807869906_3.html" tppabs="http://tech.ddvip.com/2006-10/11618807869906_3.html">上一页</a><a href="11618807869906.html" tppabs="http://tech.ddvip.com/2006-10/11618807869906.html">1</a><a href="11618807869906_2.html" tppabs="http://tech.ddvip.com/2006-10/11618807869906_2.html">2</a><a href="11618807869906_3.html" tppabs="http://tech.ddvip.com/2006-10/11618807869906_3.html">3</a><span class="current">4</span><a href="11618807869906_5.html" tppabs="http://tech.ddvip.com/2006-10/11618807869906_5.html">5</a><a href="11618807869906_5.html" tppabs="http://tech.ddvip.com/2006-10/11618807869906_5.html">下一页</a></div> <!-- 分页end --><p style="color:#000000; font-size:12px; text-align:right; padding-right:4px;">作者：含笑 责编：豆豆技术应用</p> <div id="art_content_end_468x60"><script src="../a_dir_d/ads_468x60.js" tppabs="http://tech.ddvip.com/a_dir_d/ads_468x60.js"></script></div> </div> <div class="related"> <div class="relatedtop">与“ASP入门基础教程-实例 工资管理系统”相关的文章</div> <ul> <li>暂无相关文章</li> </ul> </div> <div class="clear"></div> <div class="related"> <div class="relatedtop">本栏目更新</div> <ul> <li><a href="javascript:if(confirm('http://tech.ddvip.com/2008-09/122111675163590.html \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/2008-09/122111675163590.html'" tppabs="http://tech.ddvip.com/2008-09/122111675163590.html">实例讲解Access数据库在线压缩的实现方法</a></li>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -