asp 怎么实现可以同时添加多条记录到ORCAL库里啊

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

我现在已把页页都做好了,

但不知怎么把提过来的数添加到库里,

单个提好用,两条以上就不好用了,

代码是

<!--#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>
 <% 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
%>
<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>
<Script Language="Javascript">
  function AddRow()
{
//添加一行
var newTr = aaa1.insertRow();
//添加两列
var newTd0 = newTr.insertCell();
var newTd1 = newTr.insertCell();
var newTd2 = newTr.insertCell();
var newTd3 = newTr.insertCell();
var newTd4 = newTr.insertCell();
var newTd5 = newTr.insertCell();
var newTd6 = newTr.insertCell();
var newTd7 = newTr.insertCell();
var newTd8 = newTr.insertCell();
var newTd9 = newTr.insertCell();
var newTd10 = newTr.insertCell();
var newTd11 = newTr.insertCell();
var newTd12 = newTr.insertCell();
var newTd13 = newTr.insertCell();
var newTd14 = newTr.insertCell();
//设置列内容和属性
newTd0.innerHTML = '<input type="text" name="T21" size=10 maxlength=10 value="<%=mid(datestr(date),1,8)%>" style="font-size: 12px" >';
newTd1.innerHTML= '<td nowrap align="center" height="57" width="51"><%dwoutput("")%>';
newTd2.innerHTML=' <select name="select22"> <option value="燃料结构调整">燃料结构调整 <option value="勘探局及外部队伍服务">勘探局及外部队伍服务<option value="重点区块或重大试验项目">重点区块或重大试验项目';
newTd3.innerHTML=' <select name="select23"> <option value="齐40块蒸汽驱">齐40块蒸汽驱 <option value="杜84块SAGD">杜84块SAGD ';
newTd4.innerHTML='<td width="5%" nowrap><input type="text" name=<%=line%>T24 size="8" maxlength="8" value="0">';
newTd5.innerHTML='<select name="select25"> <option value="YZF50-17-P">YZF50-17-P  <option value="YZF9-21-P">YZF9-21-P <option value="YZF20-17-P">YZF20-17-P  <option value="YZF20-17-P">YZF20-17-P <option value="YZF20-17-P">YZF20-17-P <option value="YZF23-17-P">YZF23-17-P <option value="YZF11-21-P">YZF11-21-P <option value="SF-9.2/17.9-YQ">SF-9.2/17.9-YQ ';
newTd6.innerHTML='<select name="select26"><option value="油">油<option value="燃气">燃气 <option value="渣油">渣油<option value="混配油">混配油<option value="热煤气">热煤气<option value="水焦浆">水焦浆<option value="煤气">煤气 ';
newTd7.innerHTML='<td width="5%" nowrap><input type="text" name=<%=line%>T27 size="8" maxlength="8" value="0">';　
newTd8.innerHTML='<td width="5%" nowrap><input type="text" name=<%=line%>T28 size="8" maxlength="8" value="0">';
newTd9.innerHTML='<td width="6%" nowrap><input type="text" name=<%=line%>T29 size="8" maxlength="8" value="0">';
newTd10.innerHTML='<td width="5%" nowrap><input type="text" name=<%=line%>T30 size="8" maxlength="8" value="0">';
newTd11.innerHTML='<td width="6%" nowrap><input type="text" name=<%=line%>T31 size="8" maxlength="8" value="0">';
newTd12.innerHTML='<td width="5%" nowrap><input type="text" name=<%=line%>T32 size="8" maxlength="8" value="0">';
newTd13.innerHTML='<td width="5%" nowrap><input type="text" name=<%=line%>T33 size="50">';}

function DelRow(iIndex)
{
//删除一行
if(iIndex==-99999)
alert("系统提示：没有选中行号!");
else
tab1.deleteRow(iIndex);
}
</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  id="aaa1" 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>
   <% rq=date-1
 dw=session("dw")
 %>
<% set OraSession=createobject("OracleInProcServer.XOraSession") 
Set OraDatabase = OraSession.createdatabase(orahost,orauser&"/"&orapasswd,0) 
Set OraDynaset3 = OraDatabase.CreateDynaset("select * from tab_2007_5 where dw='"&dw&"' and to_char(rq,'yyyymmdd')='" & datestr(rq) & "'" ,0)
'response.write("select * from tab_2007_5 where dw='" & dw1 & "' and rq='"&rq&"'") %>
<%if OraDynaset3.bof and OraDynaset3.eof then 
OraDynaset3.close 
  OraDatabase3.close
  else%>
 <%do%>
   <tr align=center>
         

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

 <input type="text" name="T0" size=10 maxlength=10 value="<%=mid(datestr(date),1,8)%>" style="font-size: 12px" ></td>
    <td nowrap><%=mid(dw,2)%></td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T1   value="<%=OraDynaset3(2)%>">　</td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T2 size="12"  value="<%=OraDynaset3(3)%>">　</td>
    <td width="6%" nowrap><input type="text" name=<%=line%>T3 size="12"  value="<%=OraDynaset3(4)%>" >　</td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T4 size="12"  value="<%=OraDynaset3(5)%>" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="6%" nowrap><input type="text" name=<%=line%>T5 size="8"  value="<%=OraDynaset3(6)%>" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T6 size="8"  value="<%=OraDynaset3(7)%>" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T7 size="8"  value="<%=OraDynaset3(8)%>" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="6%" nowrap><input type="text" name=<%=line%>T8 size="8"  value="<%=OraDynaset3(9)%>" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T9 size="8"  value="<%=OraDynaset3(10)%>" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="6%" nowrap><input type="text" name=<%=line%>T10 size="8"  value="<%=OraDynaset3(11)%>" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T11 size="8"  value="<%=OraDynaset3(12)%>" onFocus="message('数字型字段,99999.99')" οnblur="javascript:jy(this,99999.9999)">　</td>
    <td width="5%" nowrap><input type="text" name=<%=line%>T12 size="50" value="<%=OraDynaset3(13)%>">　</td>
  <%  
    OraDynaset3.movenext
  loop until OraDynaset3.eof
  OraDynaset3.close
  end if%>
  </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 name="button" type="button" onClick="AddRow()" value="继续添加"></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(mid(ga,1,4) & "-" & mid(ga,5,2) & "-" & mid(ga,7,2))
response.Write(t(1))
t(2)=cstr(session("dw"))
response.Write(t(2))
t(3)=request("T1")
t(4)=request("T2")
t(5)=request("T3")
t(6)=request("T4")
t(7)=request("T5")
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) &"' and LB1='" & t(3) & "' and LB1='" & t(4) & "' and ZHLH='" & t(5) & "' and GLXH='" & t(6) & "' and RLZL='" & t(7) & "' and ZQL='" & t(8) & "' and PJPL='" & t(9) & "' and PJGD='" & t(10) & "' and YXXS='" & t(11) & "'",0)
response.write("select * from "&tabname&" where dw='" & t(2) & "' and to_char(rq,'yyyymmdd')='" & datestr(rq) &"' and LB1='" & t(3) & "' and LB1='" & t(4) & "' and ZHLH='" & t(5) & "' and GLXH='" & t(6) & "' and RLZL='" & t(7) & "' and ZQL='" & t(8) & "' and PJPL='" & t(9) & "' and PJGD='" & t(10) & "' and YXXS='" & t(11) & "'")
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
    评论
orcal客户端.rar
01-14
Oracle客户端是数据库管理员和开发人员用来连接到Oracle数据库服务器的软件工具。在Linux环境中，Oracle提供了11gR2版本的客户端，这是一个高效且功能强大的版本，支持多种数据库操作和管理任务。在这个“orcal...
Oracle左连接返回多条记录中一条记录的查询语句
03-01
Oracle左连接返回多条记录中一条记录的查询语句,更具指定条件分组排序，返回各组中第一条记录
asp中利用数组实现数据库记录的批量录入方法 (转)
ciya3282的博客
10-11 236
asp中利用数组实现数据库记录的批量录入方法 (转)[@more@]ASP中利用数组实现数据库记录的批量录入方法(原创)演示：http://www.zwtd.com/1/yanek/n/needdj2.asprem 文章题目 a...
oracle更新最新一条记录,update同时更新多条记录
weixin_30579759的博客
04-03 2652
该楼层疑似违规已被系统折叠隐藏此楼查看此楼最近写SQL，碰到一个这样的问题，不太会写，问下各位情景是这样的，现在有A表和A1表，两个表结构一模一样，A1表比如有100条数据，A表有10条数据，现在需要将A1表所有数据搞到A表里去，没有的INSERT进去(90条)，这个已经搞定了，如果A表有的，A1表要把这些数据更新进去(10条)，UPDATE能不能写出来一条语句，直接将这10条更新掉？我自己写的...
oracle怎么一次插入多条,Oracle 怎样一次插入多条记录
weixin_28963585的博客
04-09 1518
Oracle 一次性插入多条记录跟 MYSQL 有很大不同。MYSQL是这样的，但在Oracle 中行不同。INSERT INTO Persons (LastName, Address) VALUES ('Wilson', 'Champs-Elysees'),('Gates', 'Champs-Elysees')Oracle 可以使用虚拟表 dual 一次插入多条记录。dual在Oracle里有...
oracle 取1条记录,oracle 获取第一条数据
weixin_39690097的博客
04-04 1万+
关于取第一条数据的sql特此作了一个例子如下：http://www.360doc.com/showweb/0/0/860281883.aspxSELECT*FROMtableNamewherefd_rt='A'--andrownum=1ORDERBYfd_dateDESC正常说 第一条数据应为 16bf4eb91606de5e0ff61f94d0f8f20f在where...
oracle数据库数据合并,oracle数据库将多条记录合并到一条中显示
weixin_32528123的博客
04-02 1857
场景将账户表中同一个用户的账户号合并显示在一条记录中select name, listagg(account_name, ',') within group(order by name) from user_account group by name;效果图 数据准备create table user_account(id number(12,0) primary key,name va...
Oracle 多条记录的某个字段拼接成一个字符串
布懂同学开始提问题
11-30 2910
Oricle 查询多条记录时将某个字段拼接成一个字符串形成一条记录
labview连接orcal数据库
最新发布
02-02
总的来说，LabVIEW连接Oracle数据库涉及了数据库连接、SQL操作、数据处理和错误管理等多个环节，理解并熟练掌握这些知识点是实现高效、稳定的数据交互的基础。希望这个指南能帮助你成功地将LabVIEW与Oracle数据库...
orcal11g客户端
07-07
Oracle 11g客户端是Oracle公司推出的一款数据库访问软件，用于连接到Oracle数据库服务器，进行数据查询、管理、分析等操作。它包含了多种组件，如网络协议支持、SQL*Plus工具、Oracle Data Provider for .NET等，...
Orcal数据库.docx
04-06
服务器与客户端之间没有严格的硬件界限，同一台计算机可以同时扮演服务器和客户端的角色，或者仅担任其中一种角色。 #### 五、Oracle数据库的安装与卸载 **安装步骤**: 1. **初始设置**: 不选择邮箱，直接点击下...
Orcal mysql sqlServer 插入多条语句 insert into table values(),()
Rain
01-25 5396
1.前言，我在写多条插入的时候报错： 2.研究一波 知识点：如下，sqlserver ,oracle,mysql 三个数据库的多条插入的区别。 sqlserver 插入： 这个没找到对应的文档： 但是 一些资料表示： insert into tables values(),()是支持的 mysql 多值插入: 支持： insert into table values(),() oracle...
orcal查询表最新一条数据
libralee233的博客
01-28 2565
通过cjsj(创建时间)取表里最新的一条记录。 先查询Temp表里的倒排数据： select a.cjsj,a.ID from Temp a order by cjsj desc; 得到最新一条数据的创建时间为2021/9/10 11:35:14，ID为：162290 两种常见的错误写法 select a.cjsj,a.ID from Temp a where rownum = 1 order by cjsj desc; select a.cjsj,a.ID from(select b.*,
oracle 查询第二条记录
热门推荐
jlb882800的专栏
08-18 1万+
方法一： select * from (select * from ss ORDER BY CANTIME desc ) where rownum minus select * from (select * from ss ORDER BY CANTIME desc ) where rownum
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
orcal中取相同单号中的一条记录
03-31
根据您提供的信息，我无法确定“orcal”是什么，如果您指的是Oracle数据库，您可以使用以下SQL查询语句来获取相同单号中的一条记录： ``` SELECT * FROM your_table WHERE order_number = 'your_order_number' AND ROWNUM <= 1; ``` 其中，your_table是您的表名，order_number是您的单号列名，your_order_number是要查询的单号。这条SQL语句将返回符合条件的第一条记录。如果您需要返回随机的一条记录，可以使用以下SQL语句： ``` SELECT * FROM your_table WHERE order_number = 'your_order_number' ORDER BY dbms_random.value() FETCH FIRST 1 ROWS ONLY; ``` 这条SQL语句将返回符合条件的一条随机记录。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值