12_14.asp

来自「ASP 网页数据库短训教程源码」· ASP 代码 · 共 22 行

ASP
22
字号
<HTML>
  <HEAD><title>职工工资</title></HEAD>
  <BODY>
<%
  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 cmm=server.createobject("adodb.Command")
  set cmm.ActiveConnection = conn
sSQL="UPDATE 职工工资 SET 基本工资 = 基本工资*1.05 WHERE "
sSQL= sSQL & "基本工资<(Select AVG(基本工资) from 职工工资)"

  cmm.CommandText=sSQL
  cmm.Execute aa,,1
  if aa=1 then Response.Write "更新成功!"
  conn.Close
  set conn=nothing
%>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?