我给你个我今天编写的程序吧
你看了自己照着改就可以了<%id=request("id")
xztype=trim(request("xztype"))
if id<>"" and xztype<>"" then
id=int(id)
%>
<table width="100%" border="1" align="center" bordercolor="cccccc">
<form action="bxfl2save.asp" method="post">
<tr align="center" bgcolor="#CCCCCC">
<td height="27">性别</td>
<td>年龄</td>
<td>保险金额</td>
<td>缴费期限<input type="hidden" name="idd" value="<%=id%>">
<input type="hidden" name="xztype" value="<%=xztype%>"></td><td>保费</td>
</tr>
<%sql="select * from bftable where xztype='"&xztype&"' and idd="&id
rs.open sql,conn,1,3
if rs.recordcount=0 then
rs.close
response.write"<tr><td colspan=5><a href=bxfl.asp>请先添加保费后再修改保费</a></td></tr>"
response.end
else
soon=rs.recordcount
do while not rs.eof
i=i+1
if i=2 then
i=0
end if
if i=1 then
xx=""
end if
if i=0 then
xx="bgcolor=#cccccc"
end if
%>
<tr align="center" <%=xx%> >
<td height="27"><input name=id type="hidden" value="<%=rs("id")%>"><select name="sex" size="1" id="sex">
<option value="男" <%if trim(rs("sex"))="男" then
response.write " selected "
end if%>>男</option>
<option value="女" <%if trim(rs("sex"))="女" then
response.write " selected "
end if%>>女</option>
</select>
</td>
<td><input name="age" id="age" size="15" value="<%=trim(rs("age"))%>"></td>
<td><input name="bxmoney" id="bxmoney" size="15" value="<%=trim(rs("bxmoney"))%>"></td>
<td><input name="jfterm" id="jfterm" size="15" value="<%=trim(rs("jfterm"))%>"></td>
<td><input name="bf" size="15" value="<%=trim(rs("bf"))%>"></td>
</tr>
<%rs.movenext
loop
soon=i+1
if (soon mod 2)=0 then
xx="bgcolor=#cccccc"
else
xx=""
end if
end if
response.write"<tr "&xx&"><td colspan=5 height=27 align=center><input type=submit name=Submit value=确定 /></td></tr>"
%></form>
</table>
<%else
end if%>
上面是显示多条记录
下面是修改多条记录
<%
id=request("id")
idd=request("idd")
xztype=request("xztype")
sex=request("sex")
age=request("age")
bxmoney=request("bxmoney")
jfterm=request("jfterm")
bf=request("bf")
sex=split(sex,",")
for i = 0 to ubound(sex)
sex(i)=sex(i)
next
age=split(age,",")
for i = 0 to ubound(age)
age(i)=age(i)
next
bxmoney=split(bxmoney,",")
for i = 0 to ubound(bxmoney)
bxmoney(i)=bxmoney(i)
next
jfterm=split(jfterm,",")
for i = 0 to ubound(jfterm)
jfterm(i)=jfterm(i)
next
bf=split(bf,",")
for i = 0 to ubound(bf)
bf(i)=bf(i)
next
id=split(id,",")
for i = 0 to ubound(id)
id(i)=id(i)
next
for i=0 to ubound(bf)
if sex(i)<>"" or age(i)<>"" or bxmoney(i)<>"" or jfterm(i)<>"" or bf(i)<>"" then
sql="select * from bftable where id="&trim(id(i))
rs.open sql,conn,1,3
rs("sex")=trim(sex(i))
rs("age")=trim(age(i))
rs("bxmoney")=trim(bxmoney(i))
rs("jfterm")=trim(jfterm(i))
rs("bf")=trim(bf(i))
rs.update
rs.close
end if
next
%>
温馨提示:内容为网友见解,仅供参考
wps表格如何同时允许多人共同编辑同一个文档,并且能时时看到其他人的修...
详情请查看视频回答
excel中筛选同一字段的多个数据,怎么做?
1.首先,我们打开我们电脑上面的excel,然后我们在一列中输入一些数字;2.之后我们选中这列数字;3.然后我们点击工具栏中的条件格式,弹出的界面,我们点击突出显示单元格规则,弹出的界面,我们点击重复值;4.弹出的界面,我们点击确定;这样我们就筛选出来了。这样就解决了excel中筛选同一字段的多个数据的...
程序设计中的指令是什么?有哪几种?
在ASP下,VBScript代码被ASP引擎解释执行;在JSP下,代码被编译成Servlet并由Java虚拟机执行,这种编译操作仅在对JSP页面的第一次请求时发生。 运行环境 执行JSP 代码需要在服务器上安装 JSP 引擎。此处我们使用的是 Sun 的 JavaServer Web Development Kit ( JSWDK )。为便于学习,这个软件包提供了大量可供修改的...
java中如何实现分页显示
还见过另一些实现分页的类,是先将所有记录都select出来,然后将ResultSet中的数据都get出来,存入Vector等集合类中,再根据所需分页的大小,页数,定位到相应的位置,读取数据。或者先使用前面提到的两种分页方法,取得所需的页面之后,再存入Vector中。 扔开代码的效率不说,单是从程序结构和使用的方便性上讲,就是很糟糕的...
access中,同时打开数据库文件的数量最多的是
只要系统配置能够跟得上处理速度,理论上是可以打开无限的,但是实际上是不可能的,主要和个人电脑的配置有关 Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点,是 Microsoft Office 的系统程序之一 ...
图书馆管理系统
第五章进行了具体的程序设计,具体划分了三类用户的操作权限,设计了了三个操作界面。实现了数据库表的浏览,记录的添加、删除和修改,报表的生成,实现了多数据库表的连接操作,实现了多条件查询和模糊查询,并灵活实现了对不可更新查询结果集的更新操作,实现了主从表操作,实现了密码维护功能,最后,系统还可以导入数据库以...
局域网内共享文件可以查看、修改。但是绝对不能复制到自己的电脑上和...
第三、设置共享 做好以上的设置就可以设置共享了,点击一个文件夹,属性,共享选项卡,嘿嘿,跟刚刚的不同了吧,下面还多了个权限的按钮。如下图: 点击权限,默认是EVERYONE,也就是每个用户都有完全控制的权限如下图: 其中(BIGEASTAAA)表示计算机bigeast中的AAA用户。 如果我们设置AAA有只读权限,只需要在“读取”那里...
如何构建一个完善的数据库,如何来处理表与表关系.
建立存储过程,记录操作日志,把日志以数据表的形式存储,注意事项:存储过程对本表操作,不要交互太多表 精简参数数量,注意参数存储空间 对记录修改删除、更新标记的时候尽量使用时间来索引 建立关系图,给表与表之间建立直接关系,整理整体挖掘数据性能。建立计划更新任务,优化数据库整体性能。
如何添加多个右键菜单并分别调用不同命令
如删去查找菜单项,只需去掉Directory\\Shell下的 find主键,添加则在Shell下添新主键。3.从“文件夹选项”中修改这种方法比较简单,类似对文件建立关联,方法如下:(1)双击“我的电脑”,打开“查看\/文件夹选项”(对于Windows98,还可以单击“开始\/设置\/文件夹选项”)。(2)单击“文件类型”标签,从中选中“驱动器”,...
Excel表格内容批量填写到网页并提交,用《网页自动操作通用工具》是如...
1、首先,在软件中打开要录入数据的网页,手工录入网页表单中的填写项目。2、然后点击菜单》系统》新建配置文件,建立一个填表任务的配置文件。3、点击软件左下角+号(新建规则)按钮,将分析当前网页中要填写的内容,生成一条填表规则。4、处理好填写的信息后,点参数面板中的数据文件生成按钮,生成一个...