各位大虾 看看毛病出在那里？？

haozihao 2006-11-07 09:15:17
showtitle(title)%>
<table border="0" cellSpacing="0" width="678">
<tbody>
<tr>
<TD width=600 background="../images/line_bg.gif"><FONT color=blue size="4"><b>请选择员工</b> </font></TD>
</tr>
<tr>
<td width="100%"><form action="gz.asp" id="FORM1"method="post"><b><font size="3"><p><%Set rs1= Server.CreateObject("ADODB.Recordset")
sql1="select * from worker"
rs1.open sql1,conn,1,1
response.write "<select name='id' size='1'>"
response.write "<option value='0'>--请选择--</option>"+chr(13)+chr(10)

if not rs1.eof then
rs1.movefirst
do while not rs1.eof
response.write "<option " & sel & " value='"+CStr(rs1("id"))+"'>"+rs1("name")+"</option>"+chr(13)+chr(10)
rs1.movenext
loop
else
response.write "<option value='0'>没有可选择的员工</option>"+chr(13)+chr(10)
end if
rs1.close
response.write " </select>"
%>　</font></b><input type="text" name="yy" size="8" value="<%=year(date()-30)%>">年 <input type="text" name="mm" size="6" value="<%=month(date()-30)%>">月<input name="submit" type="submit" value="确认"> </form></td>
</tr>
<%
wid=request("id")<>""
if request("id")<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from worker where id="&request("id")
rs.open sql,conn,3,2
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from worker order by id desc"
rs.open sql,conn,3,2
end if
%>
<tr>
<td width="100%">
<form action="savegz.asp?id=<%=rs("id")%>" id="FORM1" method="post" name="FrontPage_Form1">
<table border="0" width="678" bgcolor="#F0F0F0">
<tbody>
<tr bgColor="#838383">
<td colSpan="2" width="709"><font color="white">⊙基本资料</font></td>
</tr>
<tr>
<td width=100><font color="red" size="-1">＊</font>姓名：</td>
<td width=560><%=rs("name")%> </td>
</tr>
<tr>
<td><font color="red" size="-1">＊</font>编号：</td>
<td ><%=rs("card_no")%>
</td>
</tr> <tr>
<td><font color="red" size="-1">＊</font>所属部门：</td>
<td ><%
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from dept where uses_id="&rs("part")
rs2.open sql2,conn,1,2
%>
<%=rs2("uses_name")%> <%rs2.Close%> </td>
</tr>
<tr>
<td><font color="red" size="-1">＊</font>职务：</td>
<td ><%=rs("zw")%>
</td>
</tr>
<%
kmonth=request("mm")
kyear=request("yy")
if kmonth="" then
kmonth=month(date()-30)
end if
if kyear=""then
kyear=year(date()-30)
end if
%>
<tr bgColor="#838383">
<td colSpan="2" width="709"><font color="white">⊙</font><%=kyear%>年<%=kmonth%>月份工资表</font> </td>
</tr>
<% Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from paymana where wid="&rs("id")
rs1.open sql1,conn,1,2
if rs1.EOF then
response.write " 该员工的基本工资尚未确定!<br>"
response.write "<a href=editjbgz.asp?id="&rs("id")&">进入基本工资管理</a>!<br>"
Response.end
end if
jbgz=rs1("jg")+rs1("jt")
rs1.close%>
<tr>
<td>基本工资：</td>
<td ><input type="text" name="wh" size="20"value="<%=jbgz%>"> </td>
</tr> <% Set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select * from roolstat where month="&kmonth&" and kyear="&kyear&" and wid="&wid&""
rs3.open sql3,conn,1,2

if rs3.EOF then
response.write " 该员工没有本月考勤记录!<br>"
response.write "<a href=kq.asp?id="&rs("id")&">进入考勤记录管理</a>!<br>"
Response.end
end if%>
<tr>

<td>本月出勤：</td>
<td ><input name="byxx" size="20" value="<%=rs3("sb")%>">天 </td>
</tr>
<tr>
<td>本月加班：</td>
<td ><input name="zys" size="20" value="<%=rs3("jtime")%>">小时 </td>
</tr>
<tr>
<td>基准工资：</td>
<%jzgz=(rs3("sb")-rs3("kg")+rs3("jtime")/8)*jbgz/30%>

<td ><input name="zy" size="20" value="<%=jzgz%>"> </td>
</tr>
<tr>
<td>加班补贴：</td>
<% Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from roolstat where month="&kmonth&" and kyear="&kyear&" and wid="&rs("id")&" and jtime>4"
rs2.open sql2,conn,1,2
jbbt=rs2.recordcount*5
rs2.close
yfgz=jbbt+jzgz
if yfgz<=678 then
sds=0
else
'if yfgz>678 and yfgz<=1300 then
sds=(yfgz-678)*0.05
'else
'if yfgz>1300 and yfgz<=1678 then
' sds=(yfgz-1200)*10-25
' else
'if yfgz>1678 and yfgz<=2500 then
' sds=(yfgz-1678)*15-60
' else
'if yfgz>2500 then
' sds=(yfgz-1678)*20-160
end if
sfgz=yfgz-sds
%>
<td ><input type="text" name="jc" size="20" value="<%=jbbt%>"> </td>
</tr>
<tr>
<td>应发工资：</td>
<td ><input type="text" name="gl" size="20" value="<%=yfgz%>"> </td>
</tr><input type="hidden" name="mm" size="20" value="<%=kmonth%>"><input type="hidden" name="yy" size="20" value="<%=kyear%>">
<tr>
<td>所得税：</td>
<td ><input type="text" name="zc" size="20" value="<%=sds%>"> </td>
</tr>

<tr>
<td>其他扣款：</td>
<td ><input type="text" name="hth" size="20" value="0"> </td>
</tr>

<tr>
<td>实发工资：</td>
<td ><input name="htq" size="20"value="<%=sfgz%>"> </td>
</tr>

<tr>
<td height="36">备  注 ：</td>
<td height="36"><textarea rows="2" name="memo" cols="55"></textarea></td>
</tr>


<tr>
<td colSpan="2" width="709" height="27"><div align="center"><center><p> <input name="submit" type="submit" value="确认提交">
         <input name="reset" type="reset" value="重新填写">
</div>
</center> </td>
</tr>
</tbody>
</table>
</form>
</td>
</tr>
</tbody>
</table>
</center></div>
</body>
</html>

无法显示网页
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 127.0.0.1 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/gz.asp


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

网页：

请大家帮忙看看！！！
...全文
241 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
flyingsnowy 2006-11-10
  • 打赏
  • 举报
 回复
哥们，这么长啊
haozihao 2006-11-09
  • 打赏
  • 举报
 回复
ss
zhenmeiyisi 2006-11-07
  • 打赏
  • 举报
 回复
右上角---管理 ---输入密码
haozihao 2006-11-07
  • 打赏
  • 举报
 回复
头一次来这里 怎么给分 告诉我
haozihao 2006-11-07
  • 打赏
  • 举报
 回复
不过 哥们 怎么给分阿 没有找到阿！！
haozihao 2006-11-07
  • 打赏
  • 举报
 回复
<%if not rs2.eof then%>
<%=rs2("uses_name")%>
<%end if%>
恩 加了这个判断就好了！！谢谢zhenmeiyisi(。。。) 给分！！
zhenmeiyisi 2006-11-07
  • 打赏
  • 举报
 回复
上面的这 if not rs2.eof then
rs2("uses_name")
改成
response.wirte rs2("uses_name")

--
在把所有的
rs.open sql,conn,
都加一个
if not rs.eof then
做个判断

<%
wid=request("id")<>""
if request("id")<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from worker where id="&request("id")
rs.open sql,conn,3,2
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from worker order by id desc"
rs.open sql,conn,3,2
end if

if not rs.eof then
id=rs("id")
name=rs("name")
card_no=rs("card_no")
zw=rs("zw")
end if

%>
<tr>
<td width="100%">
<form action="savegz.asp?id=<%=id%>" id="FORM1" method="post" name="FrontPage_Form1">
<table border="0" width="678" bgcolor="#F0F0F0">
<tbody>
<tr bgColor="#838383">
<td colSpan="2" width="709"><font color="white">⊙基本资料</font></td>
</tr>
<tr>
<td width=100><font color="red" size="-1">＊</font>姓名：</td>
<td width=560><%=name%> </td>
</tr>
<tr>
<td><font color="red" size="-1">＊</font>编号：</td>
<td ><%=card_no%>
</td>
</tr> <tr>
<td><font color="red" size="-1">＊</font>所属部门：</td>
<td ><%
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from dept where uses_id="&rs("part")
rs2.open sql2,conn,1,2
if not rs2.eof then
response.write rs2("uses_name")
end if
rs2.Close
%> </td>
</tr>
<tr>
<td><font color="red" size="-1">＊</font>职务：</td>
<td ><%=zw%>
</td>
</tr>
zhenmeiyisi 2006-11-07
  • 打赏
  • 举报
 回复
<%
wid=request("id")<>""
if request("id")<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from worker where id="&request("id")
rs.open sql,conn,3,2
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from worker order by id desc"
rs.open sql,conn,3,2
end if

if not rs.eof then
id=rs("id")
name=rs("name")
card_no=rs("card_no")
zw=rs("zw")
end if

%>
<tr>
<td width="100%">
<form action="savegz.asp?id=<%=id%>" id="FORM1" method="post" name="FrontPage_Form1">
<table border="0" width="678" bgcolor="#F0F0F0">
<tbody>
<tr bgColor="#838383">
<td colSpan="2" width="709"><font color="white">⊙基本资料</font></td>
</tr>
<tr>
<td width=100><font color="red" size="-1">＊</font>姓名：</td>
<td width=560><%=name%> </td>
</tr>
<tr>
<td><font color="red" size="-1">＊</font>编号：</td>
<td ><%=card_no%>
</td>
</tr> <tr>
<td><font color="red" size="-1">＊</font>所属部门：</td>
<td ><%
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from dept where uses_id="&rs("part")
rs2.open sql2,conn,1,2
if not rs2.eof then
rs2("uses_name")
end if
rs2.Close
%> </td>
</tr>
<tr>
<td><font color="red" size="-1">＊</font>职务：</td>
<td ><%=zw%>
</td>
</tr>


%>
haozihao 2006-11-07
  • 打赏
  • 举报
 回复
重新看一下 上面的程序
<!--#include file="opendb.inc"-->
<%const title="员工工资计算"%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<style>BODY {
FONT-SIZE: 10.5pt
}
</style>

<meta content="Microsoft FrontPage 6.0" name="GENERATOR">
<meta name="Microsoft Border" content="none">
</head>

<body bgColor="#ffffff" text="#000000">

<div align="center"><center>
<!--#include file=myprg.asp-->
<% CheckLogin
showtitle(title)%>
<table border="0" cellSpacing="0" width="678">
<tbody>
<tr>
<TD width=600 background="../images/line_bg.gif"><FONT color=blue size="4"><b>请选择员工</b> </font></TD>
</tr>
<tr>
<td width="100%"><form action="gz.asp" id="FORM1"method="post"><b><font size="3"><p><%Set rs1= Server.CreateObject("ADODB.Recordset")
sql1="select * from worker"
rs1.open sql1,conn,1,1
response.write "<select name='id' size='1'>"
response.write "<option value='0'>--请选择--</option>"+chr(13)+chr(10)

if not rs1.eof then
rs1.movefirst
do while not rs1.eof
response.write "<option " & sel & " value='"+CStr(rs1("id"))+"'>"+rs1("name")+"</option>"+chr(13)+chr(10)
rs1.movenext
loop
else
response.write "<option value='0'>没有可选择的员工</option>"+chr(13)+chr(10)
end if
rs1.close
response.write " </select>"
%>　</font></b><input type="text" name="yy" size="8" value="<%=year(date()-30)%>">年 <input type="text" name="mm" size="6" value="<%=month(date()-30)%>">月<input name="submit" type="submit" value="确认"> </form></td>
</tr>
<%
wid=request("id")<>""
if request("id")<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from worker where id="&request("id")
rs.open sql,conn,3,2
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from worker order by id desc"
rs.open sql,conn,3,2
end if
%>
<tr>
<td width="100%">
<form action="savegz.asp?id=<%=rs("id")%>" id="FORM1" method="post" name="FrontPage_Form1">
<table border="0" width="678" bgcolor="#F0F0F0">
<tbody>
<tr bgColor="#838383">
<td colSpan="2" width="709"><font color="white">⊙基本资料</font></td>
</tr>
<tr>
<td width=100><font color="red" size="-1">＊</font>姓名：</td>
<td width=560><%=rs("name")%> </td>
</tr>
<tr>
<td><font color="red" size="-1">＊</font>编号：</td>
<td ><%=rs("card_no")%>
</td>
</tr> <tr>
<td><font color="red" size="-1">＊</font>所属部门：</td>
<td ><%
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from dept where uses_id="&rs("part")
rs2.open sql2,conn,1,2
%>
<%=rs2("uses_name")%> <%rs2.Close%> </td>
</tr>
<tr>
<td><font color="red" size="-1">＊</font>职务：</td>
<td ><%=rs("zw")%>
</td>
</tr>
<%
kmonth=request("mm")
kyear=request("yy")
if kmonth="" then
kmonth=month(date()-30)
end if
if kyear=""then
kyear=year(date()-30)
end if
%>
<tr bgColor="#838383">
<td colSpan="2" width="709"><font color="white">⊙</font><%=kyear%>年<%=kmonth%>月份工资表</font> </td>
</tr>
<% Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from paymana where wid="&rs("id")
rs1.open sql1,conn,1,2
if rs1.EOF then
response.write " 该员工的基本工资尚未确定!<br>"
response.write "<a href=editjbgz.asp?id="&rs("id")&">进入基本工资管理</a>!<br>"
Response.end
end if
jbgz=rs1("jg")+rs1("jt")
rs1.close%>
<tr>
<td>基本工资：</td>
<td ><input type="text" name="wh" size="20"value="<%=jbgz%>"> </td>
</tr> <% Set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select * from roolstat where month="&kmonth&" and kyear="&kyear&" and wid="&wid&""
rs3.open sql3,conn,1,2

if rs3.EOF then
response.write " 该员工没有本月考勤记录!<br>"
response.write "<a href=kq.asp?id="&rs("id")&">进入考勤记录管理</a>!<br>"
Response.end
end if%>
<tr>

<td>本月出勤：</td>
<td ><input name="byxx" size="20" value="<%=rs3("sb")%>">天 </td>
</tr>
<tr>
<td>本月加班：</td>
<td ><input name="zys" size="20" value="<%=rs3("jtime")%>">小时 </td>
</tr>
<tr>
<td>基准工资：</td>
<%jzgz=(rs3("sb")-rs3("kg")+rs3("jtime")/8)*jbgz/30%>

<td ><input name="zy" size="20" value="<%=jzgz%>"> </td>
</tr>
<tr>
<td>加班补贴：</td>
<% Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from roolstat where month="&kmonth&" and kyear="&kyear&" and wid="&rs("id")&" and jtime>4"
rs2.open sql2,conn,1,2
jbbt=rs2.recordcount*5
rs2.close
yfgz=jbbt+jzgz
if yfgz<=678 then
sds=0
else
'if yfgz>678 and yfgz<=1300 then
sds=(yfgz-678)*0.05
'else
'if yfgz>1300 and yfgz<=1678 then
' sds=(yfgz-1200)*10-25
' else
'if yfgz>1678 and yfgz<=2500 then
' sds=(yfgz-1678)*15-60
' else
'if yfgz>2500 then
' sds=(yfgz-1678)*20-160
end if
sfgz=yfgz-sds
%>
<td ><input type="text" name="jc" size="20" value="<%=jbbt%>"> </td>
</tr>
<tr>
<td>应发工资：</td>
<td ><input type="text" name="gl" size="20" value="<%=yfgz%>"> </td>
</tr><input type="hidden" name="mm" size="20" value="<%=kmonth%>"><input type="hidden" name="yy" size="20" value="<%=kyear%>">
<tr>
<td>所得税：</td>
<td ><input type="text" name="zc" size="20" value="<%=sds%>"> </td>
</tr>

<tr>
<td>其他扣款：</td>
<td ><input type="text" name="hth" size="20" value="0"> </td>
</tr>

<tr>
<td>实发工资：</td>
<td ><input name="htq" size="20"value="<%=sfgz%>"> </td>
</tr>

<tr>
<td height="36">备  注 ：</td>
<td height="36"><textarea rows="2" name="memo" cols="55"></textarea></td>
</tr>


<tr>
<td colSpan="2" width="709" height="27"><div align="center"><center><p> <input name="submit" type="submit" value="确认提交">
         <input name="reset" type="reset" value="重新填写">
</div>
</center> </td>
</tr>
</tbody>
</table>
</form>
</td>
</tr>
</tbody>
</table>
</center></div>
</body>
</html>
java substring替换_各位高手：java中查找字符串并替换用什么方法？
各位高手：java中查找字符串并替换用什么方法？|同意yangzi的看法，这才是最快的方法，不过StringBuffer中的replace是JDK1.2之后才有的，所以我写的一个程序中使用的方法大概如下：1publicStringreplaceSingleTag(StringstrToProcess,StringstrFrom,StringstrTo){2Stri...
音频电解电容应用方法及经验
俗语讲得好!发烧人士玩音箱低级烧友玩管玩运放！中级烧友玩电容玩线和变压器。高级烧友玩银纸（钱）！只要有money百万千万当回事呢！不知道各位是否都是为自己的爱机调教音色而烦恼呢？本人智儒没有高级的经验知识！高烧不是很久时间！只从玩运放玩放大管到现在玩电线！中间经历了玩电容数把月份！没有各位大虾们经验阅历丰富！拿着手中电洛铁左右挥舞！终结了一些经验。跟大家交流交流！献丑了不要见怪！    现在
王辉老师答网友1（转）
问：打开关闭，读写等操作，有这方面的文档吗？答：sys_open(),sys_read()，sys_write();问：在ULK页面回收那章说anonymous memory region是堆和栈区,而在讲进程地址空间layout时把anonymous memory region放在堆区和栈区之间答：是指已经被分配但尚未被使用的内存区域；问：请问各位大虾，写linux下的驱动时
我的镜头观，尼康如何搭配镜头(！！强烈推荐！！) 转贴
文章系统地作了科普，但BBS中各大虾的讨论点评更精彩： http://forum.xitek.com/showthread.php?threadid=461227   随着数码单反的降价，很多朋友都想买数码单反，但是很多人都不知道如何选镜头，而且不少商家、专业媒体为了提高单反的门槛故意的把一些词汇说的很“专业”，不少“大侠、老鸟”也老爱搬出一些尼康的牛头、佳能的神镜来“教育”新人显得...
C++笔试题汇总（6）
1.引言本文的写作目的并不在于提供C/C++程序员求职面试指导，而旨在从技术上分 析面试题的内涵。文中的大多数面试题来自各大论坛，部分试题解答也参考了网友的意见。 许多面试题看似简单，却需要深厚的基本功才能给出完美的解答。企业要求面试者写一个最 简单的strcpy 函数都可看出面试者在技术上究竟达到了怎样的程度，我们能真正写好一个 strcpy 函数吗？我们都觉得自己能，可是我们写出的strcpy 很可能只能拿到10 分中的2 分。 读者可从本文看到strcpy 函数从2 分到1
ASP

28,408

社区成员

356,956

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章