📄 12_14.asp

📁 ASP 网页数据库短训教程源码

💻 ASP

字号:

<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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -