📄 12_14.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 + -