如何对Oracle8数据库进行维护?

来源:asp之家 时间:2009-11-20 18:01:00 

我在Web服务器端安装了Web Server IIS4.0、Oracle Net8 for Client,并创建好了和Oracle8数据库的ODBC接口。该如何编写ASP代码对它进行增加、删除、修改、保存和查询等维护工作?

首先,要在Oracle服务器上安装Oracle8数据库,(一般操作系统为UNIX),在Web服务器Windows NT的控制面版中正确配置ODBC。

假设我们的Oracle用户为user—name,密码为user—passwd,编码库表为tab—code[包含两个字段: bm(编码字段,字符型,5位)和mc(名称字段,字符型,20位)]。可进行如下操作:
  1、连接数据库,定义子例程:
 

 <% mc=Request("mc") %>
' 赋初值
  <%
  Set Conn=Server.CreateObject("ADODB.Connection")
' 连接源数据库
  Conn.Open "infosystem","user—name","user—passwd" 
  set bmrs = Conn.Execute("SELECT bm FROM bmb where mc=' "&mc&" ' ")
  temp1 = bmrs("bm")
  sql—1 = request("sql—1")
  if sql—1 = " " then
  sql—1="SELECT bm,mc FROM table—code WHERE bm like ' " & temp1 & "%' order by bm"
  end if
  Call treat()
  %>
  <%
  Sub Reset()
  bm = " "
  temp2 = " "
  End Sub
  %>
  <%
  Call Reset()
  num—recn = Conn.Execute("SELECT Max(bm) FROM table—code WHERE bm like ' " & temp1 & "%' ")
  %>
  <%
  Sub treat()
  Set num—recn = Conn.Execute(sql—1)
  if num—recn.eof then 
  else
  sum—recn = 0
  Do While Not num—recn.EOF
  num—recn.MoveNext
  sum—recn = sum—recn+1
  Loop
  if sum—recn <> 0 then
  sele—recn=sum—recn
  num—recn.MoveFirst
  num—recn.Move(sum—recn-1)
  Call extract()
  end if
  end if
  End Sub
  %>
  <%
  Sub extract()
  bm = num—recn("bm")
  temp2 = num—recn(1)
  num—recn.Close
  End Sub
  %>

2、增加一条记录:
  

<%
  sum—recn =sum—recn + 1
  bm = Request("bm") 
  temp2 = Request("temp2") 
  Insertsql = "INSERT INTO table—code(bm,mc) VALUES (' " & bm & " ',' " & temp2 & " ')" 
  Set Insertrs = Conn.Execute(Insertsql)
  %>

3、删除当前记录:

<%bm = Request("bm")
  set delrs = Conn.Execute("Delete From table—code where bm=' " & bm &" ' ")
  Call treat() 
  %>

4、更新当前记录后入库(提交更新过的记录):  

<% 
  bm = Request("bm") 
  temp2 = Request("temp2") 
  UpdateSQL = "UPDATE table—code SET mc=' " & temp2 & " ' where bm=' " & bm &" ' "
  Set UpdateRS=Conn.Execute(UpdateSQL)
  %>

5、设置查询条件(内容),输出查询结果:
  

<%
  Call Reset()
  temp2 = Request("temp2") 
  sql—1="SELECT bm,mc FROM table—code WHERE mc like ' " & temp2 & "%' order by bm"
  call treat()
  %>
  ' 到第一条记录
  <%
  Set num—recn = Conn.Execute(sql—1)
  sum—recn = Request("sum—recn")
  sele—recn=1
  Call extract()
  %>
  <%
  ' 查找前一条记录
  Set num—recn = Conn.Execute(sql—1)
  sele—recn = Request("sele—recn")
  sum—recn = Request("sum—recn")
  if sele—recn >1 then
  sele—recn = sele—recn-1
  num—recn.Move(sele—recn-1)
  end if
  Call extract()
  %>
  <%
  ' 查找下一条记录
  Set num—recn = Conn.Execute(sql—1)
  sele—recn = Request("sele—recn")
  sum—recn = Request("sum—recn")
  if CInt(sele—recn) < CInt(sum—recn) then
  sele—recn=sele—recn+1
  num—recn.Move(sele—recn-1)
  else
  num—recn.MoveFirst
  num—recn.Move(sum—recn-1)
  end if
  Call extract()
  %>
  <%
  ' 到最后一条记录
  Call treat()
  %>

标签:oracle,数据库,维护
0
投稿

猜你喜欢

  • 关于window.opener的用法

    2008-02-23 11:03:00
  • 去除HTML代码中所有标签的两种方法

    2023-07-03 03:40:48
  • 爱你就要说出来,来表白吧

    2008-11-23 16:23:00
  • Sub-Pixel Bug?!

    2010-03-24 18:09:00
  • 抽取oracle数据到mysql数据库的实现过程

    2024-01-14 03:07:12
  • python scipy 稀疏矩阵的使用说明

    2022-06-22 16:20:48
  • 深入理解ASP中FSO的神奇功能

    2007-09-18 12:22:00
  • 09年QQ登录Banner之转变

    2009-02-16 12:53:00
  • Python变量基础知识

    2021-10-11 02:13:12
  • Python Django 简单分页的实现代码解析

    2021-11-05 13:27:38
  • python format 格式化输出方法

    2023-12-24 16:26:19
  • 基于vue-ssr的静态网站生成器VuePress 初体验

    2024-05-09 09:32:38
  • Oracle 查询存储过程做横向报表的方法

    2024-01-16 00:59:55
  • python+opencv实现的简单人脸识别代码示例

    2021-06-15 01:02:27
  • SQL SERVER如何判断某个字段包含大写字母

    2023-07-01 21:19:12
  • Python格式化css文件的方法

    2021-02-14 11:38:34
  • C#连接SQL数据库和查询数据功能的操作技巧

    2024-01-19 03:31:03
  • 云原生使用Docker部署mysql数据库的详细过程

    2024-01-20 15:57:24
  • asp随机数 随机产生N位由数字和字母组成的密码

    2011-03-10 10:47:00
  • 你可能不知道的Python 技巧小结

    2022-12-18 07:08:10
  • asp之家 网络编程 m.aspxhome.com