scsave_new.asp

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

<!--#include file="conn1.asp"-->
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
sqlstr1="select * from [b2b_userjb] where grpid="&Trim(Request("grpID"))
rs1.open sqlstr1,conn,1,1

Set rs = Server.CreateObject("ADODB.Recordset")
sqlstr="select * from [user] where userid="&request("id")
rs.open sqlstr,conn,1,3

rs("score")=rs("score")+rs1("minipost")
rs("zhuangtai")=0

rs.update
rs.close
set rs=nothing
response.write "<script>window.alert('操作成功');location.href='shsq.asp'</script>"
%>