VB Script数据库中表值的读取---DW

最新推荐文章于 2022-12-10 07:45:41 发布
原创 最新推荐文章于 2022-12-10 07:45:41 发布 · 1.5k 阅读 · 0 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
标签
#数据库 #vbscript #web

1、建立一个提供VBScript脚本支持的站点

2.建立一个数据库，命名为rsgl.mdb，并新建一个表  职工工资，并放入所建站点中，建好后在表格中插入一些记录



3.建立一个主界面，命名为main.asp

<HTML>
  <FRAMESET ROWS="100, *" BORDER="0">
    <FRAME NAME="Top" NORESIZE SCROLLING="No" SRC="Menu.asp">
    <FRAME NAME="Bottom" NORESIZE SRC="List1.asp">
  </FRAMSET>
</HTML>

4.建立一个Menu.asp页面用来控制显示数据库中的数据记录

<HTML>
  <BODY BGCOLOR="#9CCDCD">
    <P align=center><FONT face=隶书 size=6>职工工资管理</FONT>
    <TABLE ALIGN="Center" WIDTH="100%" BORDER="0">
      <TR HEIGHT="30" BGCOLOR="#EDF5F5" ALIGN="Center">
        <TD><A HREF="List1.asp?no=First" TARGET="Bottom">第一个</A></TD>
        <TD><A HREF="List1.asp?no=Previous" TARGET="Bottom">上一个</A>
        <TD><A HREF="List1.asp?no=next" TARGET="Bottom">下一个</A>
        <TD><A HREF="List1.asp?no=last" TARGET="Bottom">最后一个</A>
        <TD><A HREF="List2.asp" TARGET="Bottom">修改</A></TD>
        <TD><A HREF="List3.asp" TARGET="Bottom">增加</A></TD>
        <TD><A HREF="List4.asp" TARGET="Bottom">删除</A></TD>
      </TR>
    </TABLE>
  </BODY>
</HTML>


5.为显示记录，建立一个List1.asp的页面，并在其中链接数据库

<HTML>
  <HEAD><title>职工工资</title></HEAD>
  <BODY>
<%
  Sub ShowPage(objRS,no)
    objRS.AbsolutePosition=no              ' 指定当前记录号
      ' 显示单记录
    For J=0 To objRS.Fields.Count-1
      Data="<TR><td >" & objRS.Fields(j).name & "</td>"
      Data=Data & "<td>" & objRS.Fields(j).Value & "</td>"
      Response.Write data
    Next
  End Sub
  set conn=server.createobject("adodb.Connection")
  CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source="
  conn.ConnectionString=CS & Server.MapPath("rsgl.mdb")
  conn.Open
  set rs=server.createobject("adodb.recordset")
  rs.open "职工工资",conn,1,2,2
  If Request("no") = "" Then
    Session("no")=1
  else
select case Request("no")
      case "First"
        Session("no")=1
      case "Previous"
        Session("no")=Session("no")-1
      case "next"
        Session("no")=Session("no")+1
      case "last"
        Session("no")=RS.RecordCount
    end select
  End If
  if Session("no")>RS.RecordCount then Session("no")=RS.RecordCount
  if Session("no")<1 then Session("no")=1
  Response.write "<table border=1 align=center cellspacing=0 cellpadding=4 height=390>"
  Response.write "<TR><td width=100><td width=195>"
  ShowPage RS, Session("no")
  Response.write "</table>"
  RS.close
  set RS=nothing
  conn.close
  set conn=nothing
%>
  </BODY>
</HTML>


6.为修改增加一个List2.asp页面

<HTML>
  <HEAD><title>职工工资</title></HEAD>
  <BODY>
    <FORM align=center METHOD='POST' name=frm1 ACTION='list2.asp'>
    <table border=1 align=center cellspacing=0 cellpadding=4  height=390>
      <TR><td width=100><td width=195>
<%
  Sub ShowPage(objRS,no,a)
    objRS.AbsolutePosition=no
    if len(a)>0 then
      For J=1 To objRS.Fields.Count
        objRS.Fields(j-1).value=a(j)
      next
      objRS.Update
    end if
    For J=0 To objRS.Fields.Count-1
      Data="<TR><td >" & objRS.Fields(j).name 
      Data=Data & "<td><Input Type=text name='txt' value=" & objRS.Fields(j).Value & ">"
      Response.Write data
    Next
  End Sub
set conn=server.createobject("adodb.Connection")
  CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source="
  conn.ConnectionString=CS & Server.MapPath("rsgl.mdb")
  conn.Open
  set rs=server.createobject("adodb.recordset")
  rs.open "职工工资",conn,1,2,2
  If Session("no") = "" Then
    Session("no")=1
  End If
  ShowPage RS, Session("no"),Request.form("txt")   ' 以提交的Txt内容修改当前记录
  Response.write "</table>"
  RS.close  
  conn.close%>
    <table border=0 align=center height=50>
      <tr><td><INPUT type=submit value="确定修改">
    </table>
    <SCRIPT for=txt event=onchange LANGUAGE=VBScript>
      w= ccur(frm1.txt(3).value)+frm1.txt(4).value+frm1.txt(5).value+frm1.txt(6).value
      w=w-frm1.txt(7).value-frm1.txt(8).value
      frm1.txt(9).value=w
    </SCRIPT>
    </Form>
  </BODY>
</HTML>


7.为增加一条记录添加List3.asp页面

<HTML>
  <HEAD><title>职工工资</title></HEAD>
  <BODY LANGUAGE=VBScript>
    <FORM METHOD='POST' name=frm1 ACTION='list3.asp'>
      <table border=1 align=center cellspacing=0 cellpadding=4 height=390>
        <TR><td width=100><td width=195>
        <TR><td >部门<td>
            <SELECT id=select1 style="width:100px" name=select1> 
              <OPTION value="04">保卫<OPTION value="05">财务
              <OPTION value="03">供销<OPTION value="02">技术<OPTION value="01">生产
            </SELECT>
            <Input Type=hidden name=hid value='保卫'>
        <TR><td>编号<td><Input Type=text name=txt1 value=''>
        <TR><td>姓名<td><Input Type=text name=txt2 value=''>
        <TR><td>基本工资<td><Input Type=text name=txt value=0>
        <TR><td>岗位津贴<td><Input Type=text name=txt value=0>
        <TR><td>职务补贴<td><Input Type=text name=txt value=0>
        <TR><td>奖金<td><Input Type=text name=txt value=0>
        <TR><td>房租<td><Input Type=text name=txt value=0>
        <TR><td>水电<td><Input Type=text name=txt value=0>
        <TR><td>实发工资<td><Input Type=text readonly=true name=txt value=0>
      </table>
<SCRIPT for=select1 EVENT=onblur LANGUAGE=vbscript>
        i=frm1.select1.selectedindex
        f=frm1.select1.options(i).text
        k=frm1.select1.options(i).value
        frm1.hid.value=f
        frm1.txt1.value=k
        frm1.txt1.focus
      </SCRIPT>
      <SCRIPT for=txt1 event=onblur LANGUAGE=VBScript>
        if len(frm1.txt1.value)<5 then 
          msgbox "编号太短"
          frm1.txt1.focus
        else
          frm1.txt2.focus
        end if
      </SCRIPT>
<%
  set conn=server.createobject("adodb.Connection")
  CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source="
  conn.ConnectionString=CS & Server.MapPath("rsgl.mdb")
  conn.Open
  set rs=server.createobject("adodb.recordset")
  rs.open "职工工资",conn,1,2,2
p=Request.form("txt2")
  if len(p)>0 then
    redim na(rs.Fields.count-1)
    For J=0 To RS.Fields.Count-1
      na(j)= RS.Fields(j).name
    next
    redim bb(rs.Fields.count-1)  
    bb(0)=Request.form("hid")
    bb(1)=Request.form("txt1")
    bb(2)=Request.form("txt2")
    For J=3 To RS.Fields.Count-1
      bb(j)=Request.form("txt")(j-2)
    next
    RS.AddNew na, bb
    RS.Update
  end if
  Response.write "</table>"
  RS.close  
  conn.close
%>
      <table border=0 align=center height=50>
        <tr><td><INPUT type=submit value="确定增加">
      </table>
    </Form>
<SCRIPT for=txt event=onchange LANGUAGE=VBScript>
      w = ccur(frm1.txt(0).value)+ccur(frm1.txt(1).value)
      w=w+ccur(frm1.txt(2).value)+ccur(frm1.txt(3).value)
      w=w-ccur(frm1.txt(4).value)-ccur(frm1.txt(5).value)
      frm1.txt(6).value=w
    </SCRIPT>
    <SCRIPT for=txt event=onblur LANGUAGE=VBScript>
      if len(frm1.txt2.value)=0 then 
        msgbox "姓名不能空"
        frm1.txt2.focus
      end if
    </SCRIPT>
  </BODY>
</HTML>


8.为删除一条记录添加List4.asp页面

<HTML>
  <HEAD><title>职工工资</title></HEAD>
  <BODY>
    <FORM METHOD='POST' ACTION='list4.asp?YesNo=yes'>
      <table border=1 align=center cellspacing=0 cellpadding=4 height=390>
        <TR><td width=100><td width=195>
<%
  Sub ShowPage(objRS,no)
    objRS.AbsolutePosition=no
      ' 显示单记录
    For J=0 To objRS.Fields.Count-1
      Data="<TR><td >" & objRS.Fields(j).name
      Data=Data & "<td>" & objRS.Fields(j).Value
      Response.Write data
    Next
  End Sub
set conn=server.createobject("adodb.Connection")
  CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source="
  conn.ConnectionString=CS & Server.MapPath("rsgl.mdb")
  conn.Open
  set rs=server.createobject("adodb.recordset")
  rs.open "职工工资",conn,1,2,2
  if  Request("YesNo") = "yes" Then
    n=Session("no")
    RS.AbsolutePosition=n
    rs.delete
    rs.update
  end if
  If Session("no") = "" Then Session("no")=1
  if Session("no")>RS.RecordCount then Session("no")=RS.RecordCount
  ShowPage RS, Session("no")
  Response.write "</table>"
RS.close
  set RS=nothing
  conn.close
  set conn=nothing
%>
      <table border=0 align=center height=50>
        <tr><td><INPUT type=submit value="确定删除">
      </table>
    </FORM>
  </BODY>
</HTML>

然后通过IIS服务器解析后可以实现以上功能.

不足之处,请多多指教.



vb怎么样实时取mysql数据库数据_浅谈如何使用vb.net从数据库中提取数据
weixin_29335033的博客
02-04 732
1.设置从Model中的Sub Main 启动2.程序结构3.Model1Imports System.Windows.Forms.ApplicationModule Module1Sub Main()'form1 是测试多文档窗口'Dim frm1 As New Form1()'frm1.Show()Dim formStudentSysMain As New FormStudentSysMain...
vb获取、创建数据库及包含表和字段名
gyzsky的专栏
06-08 3619
Option Explicit Dim isConnect As Boolean '判断数据库是否连接成功 Dim ConADODB As New ADODB.Connection '用于连接MASTER系统数据库 Dim ResADODB As New ADODB.Recordset '用于获取所有数据库 'Dim ConADODB As New ADODB.Connection '用于
VB读取ACCESS数据库数据
qq_18671205的博客
12-28 5101
1.注意datagrid名称和adodc名称的修改 2.此程序为vb实时读取Access数据库的内容。
VBS访问SQL数据库
s13596191285的博客
12-10 1809
'####################################################################################### '功能：VBS访问SQL数据库 dim conn set conn=WScript.CreateObject("ADODB.Connection") conn.Open "Driver={SQL server};server=192.168.1.1;database=mydb;uid=myuser;pwd=mypwd;"
vb从服务器读取配置信息,VB从服务器获取数据库
weixin_35890512的博客
08-09 461
VB从服务器获取数据库 内容精选换一换在GaussDB(DWS)数据库中创建一个Hadoop外表，用来访问存储在MRS HDFS文件系统上的Hadoop结构化数据。Hadoop外表是只读的，只能用于查询操作，可直接使用SELECT查询其数据。您可以按照以下步骤创建外表：请确保您已经完成前提条件根据创建外表(CREATE FOREIGN TABLE (SQL on Hadoo用户通过psycopy...
VB script 入门
程序员的冷浪漫
05-20 2572
这里简单介绍下vb script 脚本的基本语法： 后面可以参考这个例子： Sub 创建任务脚本_Click() Dim Line As String Dim ColumnStr As String Dim Substr As String Dim Str, Val, n max_line = 20000 Set fs = CreateObject("Sc
ASP获取数据库表名，字段名以及对字段的一些操作
bubuy的专栏
10-14 1757
       最近，在ASP论坛上看到很多网友问怎么获取数据库表名，字段名以及如何对字段进行删除，增添的操作故写此文。 本人对SQLServer比较熟一些，故以SQLServer为列：          SET  Conn=Server.CreateObject("ADODB.Connection")      Conn.Open  "Server=IP地址;Provider=sqloledb;D
VB通过ADO连接SQL数据的两种方法
有梦想就能飞翔
07-25 3057
VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值