setrenqi1.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 25 行

<!--#include file="security.asp"-->
<!--#include file=conn.asp --> 
<%

renqi=Request.Form("ren")
user_id=Request.Form("user")

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 "admin.asp"
%>