<!--#include file="../SQLconn.asp"-->


<%
    MoKuai=request("MoKuai")
	shiyong=request("shiyong")
	if shiyong="不使用" then 
	    abc="使用"
	else
	    abc="不使用"
	end if 
	
	
	set rs=server.createobject("adodb.recordset")
	Rssavesql="update varset set vname1='"&abc& "'  where (name = '选用系统模块') AND (vname  ='"&MoKuai&"')"
	   rs.open Rssavesql,conn,1,1
	   rs.close 
	   set rs=nothing  
	   conn.close
	   set conn=nothing


 
	 
	 
	 
  response.redirect   "setMoKuai.asp"
 %>
 