📄 setrenqi1.asp
字号:
<%
if session("admin_pass")<>"ok" then
response.redirect "adminlogin.asp"
response.end
end if
renqi=Request.Form("ren")
user_id=Request.Form("user")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("friend/global.asa")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs_apply=server.createobject("adodb.recordset")
sql="Update larchives Set renqi="& renqi &" Where user_ID=" & user_id
rs_apply.open sql,conn,3,2
conn.close
set conn=nothing
response.redirect "setrenqi.asp?user_id=" & user_id &""
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -