📄 delmoy.asp
字号:
<%@ language=vbscript %>
<%
set cn=server.createobject("adodb.connection")
pat=server.mappath("../data/union.mdb")
cn.open "provider=microsoft.jet.oledb.4.0; data source="&pat&";jet oledb:database"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 56mdata where id="&request("id")
rs.Open sql,cn,3,2,adcmdtest
if not rs.eof then
rs("y_monny")=rs("y_monny")+rs("qzf")
rs("qzf")=0
rs.update
end if
rs.close
cn.close
set rs=nothing: set cn=nothing
Response.Redirect("user.asp")
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -