shsave_new.asp

来自「小型网上购物网站」· ASP 代码 · 共 14 行

<!--#include file="conn1.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sqlstr="select * from [user] where userid="&request("id")
rs.open sqlstr,conn,1,3

rs("grpid")=Trim(Request("grpID"))
rs("zhuangtai")=0

rs.update
rs.close
set rs=nothing
response.write "<script>window.alert('通过审核');location.href='shsq.asp'</script>"
%>