shsave_new.asp

信运网店系统是一套功能完善、简洁美观

<!--#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>"
%>