asp 怎么实现可以同时添加多条记录

最新推荐文章于 2018-07-23 23:16:12 发布
最新推荐文章于 2018-07-23 23:16:12 发布
阅读量2.4k 收藏
点赞数 1
文章标签： asp javascript manager function session vbscript
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/songpujian/article/details/1632326
版权

 大家好,我的表单是这样的,就是我同时想录入三条数据,在填完一条以后,

我点击继续添加,再出现一条空的,让我继续添加,

我好急啊,希望各位帮忙,

代码如下

<!--#include file="common.inc"-->
<%
self="inputzqgl.asp"
tabname="tab_2007_5"
TABCAP="辽河油田重点注汽锅炉运行情况表[数据录入]"
%>
<%if session("manager")<>1 then dw=session("dw")%>
<!--#include file="mouse1.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Expires" content="0">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="cache-control" content="no-cache">
<title><%=tabcap%></title>
<style>
<!--
td         { font-size: 9pt ;text-align=center}
input      { font-size: 9pt }
-->
</style>
</head><script language="javascript" src="menu.js"></script>
<body background="d_102702.gif" leftmargin=0>
<%
if Request.ServerVariables("request_method")="GET" then
%>
<SCRIPT LANGUAGE=vbscript>
<!--
sub message(str)
f1.t.value=str
end sub
sub check()
yn=msgbox("您真的想提交吗?",36,"提示")
If yn=6 Then
  f1.submit
End If
end sub
-->
</SCRIPT>
<script language=javascript>
  function jym(obj)
   {
    if (isNaN(obj.value))
      { 
        alert("日期中含有非法字符!");
  obj.focus();
  obj.select();
   }
     else
     {
     str=obj.value;
      str1=str.substring(0,4);
      str2=str.substring(4,8);
      //obj.value=str2;
     
      if ((str1>9999) || (str1<1) || (str2<1) || (str2>12)||(str.length<8))
                 {
                 alert("日期不正确!")
                 obj.focus();
           obj.select();
                 }
     }
     
   }
  function jy(obj,f)
    {
      if (isNaN(obj.value))
      { 
        alert("请输入数字！");
  obj.focus();
  obj.select();
   }
   else if (obj.value>f)
    {
    alert("输入数字超出范围！");
  obj.focus();
  obj.select();
    }
    }
   
    function jz(obj)
    {
    if (isNaN(obj.value))
      { 
        alert("请输入数字！");
  obj.focus();
  obj.select();
   }

    }
</script>
<form name="f1" action="<%=self%>" method="post">
  <table width="105%" cellspacing="0" cellpadding="0">
    <caption>
    <h1><font face="隶书" color="#000000" size="6"><strong><center>辽河油田重点注汽锅炉运行情况表[数据录入]</center></strong></font></h1>
    </caption>
  <tr><td colspan="3">
  <td align="center" width="30%"><input type="text" name="T" size="40" readonly style="text-align: center"></td><td align=center width="16%"></td>
  <table border="1" width="100%" cellspacing="0" bordercolordark=#FFFFFF bordercolorlight=#000000>
  <tr>
    <td width="6%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">日 期</font></td>
    <td width="9%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">油 田</font></td>
    <td width="11%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">类别1</font></td>   
    <td width="5%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">类别2</font></td>
 <td width="5%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">站号炉号</font></td>
 <td width="5%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">锅炉型号</font></td>
 <td width="5%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">燃料种类</font></td>
 <td width="5%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">燃料消耗量<br>(t)</font></td>
 <td width="5%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">期间注汽量<br>(t)</font></td>
 <td width="5%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">平均排量<br>(t/d)</font></td>
 <td width="5%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">平均干度<br>(%)</font></td>
 <td width="5%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">期间运行时间<br>(小时)</font></td>
 <td width="5%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">有效运行时率<br>(%)</font></td>
 <td width="5%" rowspan="2" align="center" nowrap bgcolor="#FFCC99"><font size="2">备 注</font></td>
  </tr>
   <tr align=center>
           <% if session("manager")=1 then
          set OraSession=createobject("OracleInProcServer.XOraSession")          
    Set OraDatabase = OraSession.createdatabase(orahost,orauser&"/"&orapasswd,0) 
    Set OraDynaset = OraDatabase.CreateDynaset("select danwei from yonghu where manager<>'1' and include='1'",0)
                dwstr=""
   Do
     dwstr=dwstr&" <OPTION value="""&OraDynaset(0)&""">"& mid(OraDynaset(0),2)&" </OPTION>"
     OraDynaset.movenext
   Loop until OraDynaset.eof
   OraDynaset.close
   OraDatabase.close
   dwstr=dwstr&"</SELECT>"
   end if
 function dwoutput (stemp)
     if session("manager")<>1 then
        response.write mid(dw,2)& " <input type=""hidden"" name="""&stemp&"dw"" value="""&dw&""">"
         else
        response.write  "<SELECT name="&stemp&"dw>"&dwstr
     end if
   end function
%>

    <tr align=right>
    <td nowrap align="center" height="57" width="45">

 <input type="text" name="T0" size=10 maxlength=10 value="<%=date%>" style="font-size: 12px" ></td>
    <td nowrap align="center" height="57" width="51"><%dwoutput("")%></td>
    <td width="5%" nowrap>
      <select name="select">
        <option value="燃料结构调整">燃料结构调整</option>
        <option value="勘探局及外部队伍服务">勘探局及外部队伍服务</option>
        <option value="重点区块或重大试验项目">重点区块或重大试验项目</option>
      </select>
   　      </td>
    <td width="5%" nowrap>
      <select name="select2">
        <option value="齐40块蒸汽驱">齐40块蒸汽驱</option>
        <option value="杜84块SAGD">杜84块SAGD</option>
      </select>
         </td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T5 size="8" maxlength="8" value="0" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
   <td width="5%" nowrap>
      <select name="select3">
        <option value="YZF50-17-P">YZF50-17-P</option>
        <option value="YZF9-21-P">YZF9-21-P</option>
        <option value="YZF20-17-P">YZF20-17-P</option>
        <option value="YZF20-17-P">YZF20-17-P</option>
        <option value="YZF20-17-P">YZF20-17-P</option>
        <option value="YZF23-17-P">YZF23-17-P</option>
        <option value="YZF11-21-P">YZF11-21-P</option>
        <option value="SF-9.2/17.9-YQ">SF-9.2/17.9-YQ</option>
      </select>
         </td>
   <td width="5%" nowrap>&nbsp;
      <select name="select4">
        <option value="油">油</option>
        <option value="燃气">燃气</option>
        <option value="渣油">渣油</option>
        <option value="混配油">混配油</option>
        <option value="热煤气">热煤气</option>
        <option value="水焦浆">水焦浆</option>
        <option value="煤气">煤气</option>
          </select>
         </td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T6 size="8" maxlength="8" value="0" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T7 size="8" maxlength="8" value="0" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="6%" nowrap><input type="text" name=<%=line%>T8 size="8" maxlength="8" value="0" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T9 size="8" maxlength="8" value="0" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="6%" nowrap><input type="text" name=<%=line%>T10 size="8" maxlength="8" value="0" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T11 size="8" maxlength="8" value="0" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T12 size="50"  >　</td>
 
  </tr>
</table>
      </td>
    </tr>
    <tr><center>
      <td colspan=3 align="center"><br><input type="button" value="提    交" ONCLICK="check()">&nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" value="复    原">&nbsp;&nbsp;&nbsp;&nbsp;<input type="button" value="继续添加" ONCLICK="check()"></td></center>
    </tr>
  </table>

</form>
<%elseif Request.ServerVariables("request_method")="POST" then%>
<%
dim t(30)
for j=1 to 30
t(j)=null
next

ga=request("T0")
t(1)=cdate(request("T0"))
t(2)=cstr(request("dw"))
t(3)=request("select")
t(4)=request("select2")
t(5)=request("T5")
t(6)=request("select3")
t(7)=request("select4")
t(8)=request("T6")
t(9)=request("T7")
t(10)=request("T8")
t(11)=request("T9")
t(12)=request("T10")
t(13)=request("T11")
t(14)=request("T12")
rq=cdate(year(t(1)) & "-" & month(t(1)) & "-" & day(t(1)))

'rq1=dateadd("m",1,rq)
set OraSession=createobject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.createdatabase(orahost,orauser&"/"&orapasswd,0)
Set OraDynaset = OraDatabase.CreateDynaset("select * from "&tabname&" where dw='" & t(2) & "' and to_char(rq,'yyyymmdd')='" & datestr(rq) &"'",0)

if OraDynaset.bof and OraDynaset.eof then
  OraDynaset.dbaddnew
  for j=1 to 14
    OraDynaset.fields(j-1).value=t(j)
  next
  OraDynaset.dbupdate
%>
<p align="center"><strong><font face="宋体" size="4" color="#FF0000">提交成功！</font></strong></p>
<%else%>
<p align="center"><strong><font face="宋体" size="4" color="#FF0000">提交不成功，数据已经存在！</font></strong></p>
<%end if
%>
<%
  OraDynaset.close
  OraDatabase.close 
%>

<%end if%>
<font size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font><a href="jsnblr.asp" target="_top"><font size="2"></font></a><font size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</font>
</body>
</html>

songpujian
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
asp 批量删除选中的多条记录的实现代码
10-28
在ASP(Active Server Pages)开发中，批量删除多...通过以上步骤，就可以在ASP中实现批量删除选中的多条记录的功能。在实际项目中，还需要结合具体的需求和数据库结构进行相应的调整和优化，确保操作的稳定性和安全性。
ASP同时添加多条记录
void_1987的专栏
06-08 3560
为了实现同时像数据库添加多条记录的目的(多个卡号和成绩),我参考了网上的资料,发现很多都比较麻烦复杂,让初学者很难看明白,所以我在这把我采用的方法发出来供广大和我一样的新手参考. 　　 　　 网上的资料往往没有详细的说明,而且贴上的都是整段代码,初学者光看到这一大篇代码就头晕了.其实我觉得我们应该先搞清楚思路. 　　 　　 我的目的是要像数据库里同时添加多条每天的CS混战成绩统计.表名为CS,
asp 如何同时提交多条记录进行保存？
giantjian的专栏
06-02 1221
<br />假如你有5个text文本框<br />那么:<br /><%<br />for i=1 to 5<br />title=request("title"&i)<br />content=request("content"&i)<br />co
通过table批量提交数据
weixin_42288430的博客
07-23 4743
今天遇到需要批量提交数据的情况，不能使用表单，表单只能一个个提交，尝试过用表单包裹住table之后提交，包裹住tr后提交，发现，在每个tr中包裹一个form元素，如果是直接写死的页面，可以通过$("#ID")获取form内数据，如果是通过js动态生成，用append拼接就可以获取，如果是通过字符串拼接，则不能获取form内数据。 但是有个问题，用append拼接处的页面，样式混乱，因此，直接使用...
关于asp中多条记录提交的问题?
haoshanshan的专栏
09-09 758
        在asp 中,一条记录的提交入库很容易,可如果想一次提交多条记录呢,是不是只能通过设置一个循环变量来实现.可如果下次提交的记录大于这个变量,难道非要修改这个变量才行吗?
asp实现批量录入数据
魔拉宝
04-21 1580
请看如下源代码：向数据库写入数据 SUB writeData() dim recCnt,i dim fieldName1,fieldName2,fieldName3 dim conn dim sqlStr,connStr connStr="Provider=SQLOLEDB.1;Initial Catalog=myDatabase;Data Source=myhon;User Id=sa;P
asp 批量删除选中的多条记录
01-02
好多网友问起来，·深度学习网址导航·深度学习整站系统 的后台管理能否增加...1、首先在管理页多条对应记录 的处，添加 form和 input的checkbox，精简代码如下： 2、在记录删除页面 SQL语句 where =改为 where in
GridView中同时编辑多条记录
03-06
"GridView中同时编辑多条记录"这个主题涉及到的是如何增强GridView的功能，使其支持用户在同一时间编辑表格中的多个行，从而提高数据录入的效率。在传统的GridView中，通常只能逐行编辑，而批量编辑功能的实现则需要...
简单的数字转换大写（货币）
tongchou的专栏
05-19 501
<br /><% <br />dim m <br />m=25698932.2 <br />response.write cstr(m)&"<br>" <br />response.write m2h(m) <br />Function m2h(money)  <br />dim str,lstr,rstr,dwstr,dxstr,astr,i,n <br />dim dw_l,dw_r,dx_a,dw,dx,l_len,r_len <br />dw_l=split("圆|拾|佰|仟|万|拾万|佰万|仟万|
asp循环插入多条数据
07-28
asp循环插入多条数据的典型案例 '循环添加到数据库 For i=0 To UBound(pg_fltNo) objStrSTime = pg_sTime(i)&" "&pg_sHour(i)&":"&pg_sMin(i)&":"&pg_sSend(i) objStrETime = pg_eTime(i)&" "&pg_eHour(i)&":"&pg_eMin(i)&":"&pg_eSecd(i) strSql= " insert into ba_flightMileage "&_ " ( flightId, dayNum, flightNo, airlineCn, airlineEn, airfares, planeTypes, "&_ " startPoint, departureAirport, departureCode, departureTerminal, startTime, "&_ " [endPoint], arriveAirport, arriveCode, arriveTerminal, endTime, isNight ) "&_ " values "&_ " ("& objItem.item("fltId") &", '"& pg_dayNum(i) &"', '"& pg_fltNo(i) &"', '"& pg_airlineCn(i) &"', '"& pg_airlineEn(i) &"', '"& pg_airfares(i) &"', '"& pg_planeTypes(i) &"',"&_ " '"& pg_sPoint(i) &"', '"& pg_departAirport(i) &"', '"& pg_departCode(i) &"', '"& pg_departTerminal(i) &"', '"& objStrSTime &"', "&_ " '"& pg_ePoint(i) &"', '"& pg_arriveAirport(i) &"', '"& pg_arriveCode(i) &"', '"& pg_arriveTerminal(i) &"', '"& objStrETime &"', '"& pg_isNight(i) &"')" conn.execute(strSql) Next
ASP实现批量录入数据的实现
05-30 580
批量录入在数据库的应用中比较广泛的，关于批量录入的方法也有好多种。下面我就结合我实际中的应用，谈一下儿我是怎么实现的。主要用到的是form的集合的概念，通过循环取的所有的集合内数据。考虑到大家看着方便，我把它集成到了一个页面。下面是具体的代码：batchInput.asp#####################################File Function:批量录入数
ASP.NET DataGrid的多行提交
The key to .Net
05-03 352
尽管ASP.NET DataGrid是众所周知非常好的表格控件，不过，提起DataGrid的编辑功能，我们却不敢恭维了，就拿DataGrid的数据提交功能来说，的确存在很大的问题：在DataGrid中，每编辑一行就要提交一行，即所谓“单行编辑、单行提交”，这样的话，如果编辑的行数过多，不仅用户操作繁琐，还会造成对服务器的频繁访问，极大降低系统效率。　　　　当然了，有一种借尸还魂的解决方法，那就是把
Asp 多行表单，每行输入数据后自动计算结果
weixin_30364147的博客
09-21 493
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>无标题文档</title></head><body><script language="JavaScript" type="text...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值