用户授权.asp

校园网综合信息管理系统!实现校园管理的基本功能.

     end if     
     
   
   END SUB
   SUB C17_CLICK()
   
     IF C17.checked=TRUE THEN
     
        C17.value="已授权"
        i17=c17.value
      else
      
        c17.value="没授权"
        i17=c17.value
     end if     
     
   
   END SUB
   SUB C18_CLICK()
   
     IF C18.checked=TRUE THEN
     
        C18.value="已授权"
        i18=c18.value
      else
      
        c18.value="没授权"
        i18=c18.value
     end if     
     
   
   END SUB
   SUB C19_CLICK()
   
     IF C19.checked=TRUE THEN
     
        C19.value="已授权"
        i19=c19.value
      else
      
        c19.value="没授权"
        i19=c19.value
     end if     
     
   
   END SUB
   SUB C20_CLICK()
   
     IF C20.checked=TRUE THEN
     
        C20.value="已授权"
        i20=c20.value
      else
      
        c20.value="没授权"
        i20=c20.value
     end if     
     
   
   END SUB
   SUB C21_CLICK()
   
     IF C21.checked=TRUE THEN
     
        C21.value="已授权"
        i21=c21.value
      else
      
        c21.value="没授权"
        i21=c21.value
     end if     
     
   
   END SUB
   SUB C22_CLICK()
   
     IF C22.checked=TRUE THEN
     
        C22.value="已授权"
        i22=c22.value
      else
      
        c22.value="没授权"
        i22=c22.value
     end if     
     
   
   END SUB
   SUB C23_CLICK()
   
     IF C23.checked=TRUE THEN
     
        C23.value="已授权"
        i23=c23.value
      else
      
        c23.value="没授权"
        i23=c23.value
     end if     
     
   
   END SUB
   SUB C24_CLICK()
   
     IF C24.checked=TRUE THEN
     
        C24.value="已授权"
        i24=c24.value
      else
      
        c24.value="没授权"
        i24=c24.value
     end if     
     
   
   END SUB
   SUB C25_CLICK()
   
     IF C25.checked=TRUE THEN
     
        C25.value="已授权"
        i25=c25.value
      else
      
        c25.value="没授权"
        i25=c25.value
     end if     
     
   
   END SUB
   SUB C26_CLICK()
   
     IF C26.checked=TRUE THEN
     
        C26.value="已授权"
        i26=c26.value
      else
      
        c26.value="没授权"
        i26=c26.value
     end if     
     
   
   END SUB
   SUB C27_CLICK()
   
     IF C27.checked=TRUE THEN
     
        C27.value="已授权"
        i27=c27.value
      else
      
        c27.value="没授权"
        i27=c27.value
     end if     
     
   
   END SUB
   SUB C28_CLICK()
   
     IF C28.checked=TRUE THEN
     
        C28.value="已授权"
        i28=c28.value
      else
      
        c28.value="没授权"
        i28=c28.value
     end if     
     
   
   END SUB
   SUB C29_CLICK()
   
     IF C29.checked=TRUE THEN
     
        C29.value="已授权"
        i29=c29.value
      else
      
        c29.value="没授权"
        i29=c29.value
     end if     
     
   
   END SUB
   SUB C30_CLICK()
   
     IF C30.checked=TRUE THEN
     
        C30.value="已授权"
        i30=c30.value
      else
      
        c30.value="没授权"
        i30=c30.value
     end if     
     
   
   END SUB
   SUB C31_CLICK()
   
     IF C31.checked=TRUE THEN
     
        C31.value="已授权"
        i31=c31.value
      else
      
        c31.value="没授权"
        i31=c31.value
     end if     
     
   
   END SUB
   SUB C32_CLICK()
   
     IF C32.checked=TRUE THEN
     
        C32.value="已授权"
        i32=c32.value
      else
      
        c32.value="没授权"
        i32=c32.value
     end if     
     
   
   END SUB
   SUB C33_CLICK()
   
     IF C33.checked=TRUE THEN
     
        C33.value="已授权"
        i33=c33.value
      else
      
        c33.value="没授权"
        i33=c33.value
     end if     
     
   
   END SUB
   SUB C34_CLICK()
   
     IF C34.checked=TRUE THEN
     
        C34.value="已授权"
        i34=c34.value
      else
      
        c34.value="没授权"
        i34=c34.value
     end if     
     
   
   END SUB
   SUB C35_CLICK()
   
     IF C35.checked=TRUE THEN
     
        C35.value="已授权"
        i35=c35.value
      else
      
        c35.value="没授权"
        i35=c35.value
     end if     
     
   
   END SUB
   SUB C36_CLICK()
   
     IF C36.checked=TRUE THEN
     
        C36.value="已授权"
        i36=c36.value
      else
      
        c36.value="没授权"
        i36=c36.value
     end if     
     
   
   END SUB
   SUB C37_CLICK()
   
     IF C37.checked=TRUE THEN
     
        C37.value="已授权"
        i37=c37.value
      else
      
        c37.value="没授权"
        i37=c37.value
     end if     
     
   
   END SUB
   SUB C38_CLICK()
   
     IF C38.checked=TRUE THEN
     
        C38.value="已授权"
        i38=c38.value
      else
      
        c38.value="没授权"
        i38=c38.value
     end if     
     
   
   END SUB
   SUB C39_CLICK()
   
     IF C39.checked=TRUE THEN
     
        C39.value="已授权"
        i39=c39.value
      else
      
        c39.value="没授权"
        i39=c39.value
     end if     
     
   
   END SUB
   SUB C40_CLICK()
   
     IF C40.checked=TRUE THEN
     
        C40.value="已授权"
        i40=c40.value
      else
      
        c40.value="没授权"
        i40=c40.value
     end if     
     
   
   END SUB
   SUB C41_CLICK()
   
     IF C41.checked=TRUE THEN
     
        C41.value="已授权"
        i41=c41.value
      else
      
        c41.value="没授权"
        i41=c41.value
     end if     
     
   
   END SUB
   SUB C42_CLICK()
   
     IF C42.checked=TRUE THEN
     
        C42.value="已授权"
        i42=c42.value
      else
      
        c42.value="没授权"
        i42=c42.value
     end if     
     
   
   END SUB
   
   SUB C43_CLICK()
   
     IF C43.checked=TRUE THEN
     
        C43.value="已授权"
        i43=c43.value
      else
      
        c43.value="没授权"
        
        i43=c43.value
     end if     
     
   
   END SUB
   
   SUB C44_CLICK()
   
     IF C44.checked=TRUE THEN
     
        C44.value="已授权"
        i44=c44.value
      else
      
        c44.value="没授权"
        i44=c44.value
     end if     
     
   
   END SUB
   
   
   SUB C45_CLICK()
   
     IF C45.checked=TRUE THEN
     
        C45.value="已授权"
        i45=c45.value
      else
      
        c45.value="没授权"
        i45=c45.value
     end if     
   
   END SUB
   
  
   SUB UPDATE_CLICK()
  
   
    rds1.Server="http://<%=request.servervariables("server_name")%>"
      
    rds1.Connect="database=school;uid=sa;pwd=;dsn=school"
    
   rds1.SQL="update   userset   set 学生资料='"&i1&"',学生档案='"&i2&"',成绩输入='"&i5&"',成绩查询='"&i6&"',综合报表='"&i7&"',统计分析='"&i8&"',课程设置='"&i9&"',学生班级='"&i3&"',学生学号='"&i46&"',学生初始设置='"&i4&"',教师资料='"&i10&"',教师档案='"&i11&"',教师初始设置='"&i12&"',图书类别设置='"&i13&"',"+_
                     "图书借阅登记='"&i14&"',图书借还='"&i15&"',待借图书目录浏览='"&i16&"',打印催还单='"&i17&"',借书记录维护='"&i18&"',图书目录查询='"&i19&"',查询借书证目录='"&i20&"',图书库存查询='"&i21&"',查询外借图书目录='"&i22&"',查询图书总册数='"&i23&"',打印图书目录='"&i24&"',打印图书库存='"&i25&"',"+_
                    "打印借书证目录='"&i26&"',打印外借图书目录='"&i27&"',图书增加='"&i28&"',输入图书内容='"&i29&"',图书目录维护='"&i30&"',图书分类输入='"&i31&"',出版社输入='"&i32&"',发放借书证='"&i33&"',收回借书证='"&i34&"',更换IC卡='"&i35&"',借书证维护='"&i36&"',读者类别设置='"&i37&"',"+_
                   "查IC卡更换记录='"&i38&"',校产管理='"&i39&"',公告栏='"&i43&"',讨论园地='"&i44&"',电子邮件='"&i45&"'  WHERE 用户名='<%=username%>'" 
       
   
    rds1.ExecuteOptions = 1
    rds1.Refresh
    
    if err.number=0 then
    
      msgbox "此用户授权成功!",,"提示窗口"
    
    
    end if
     
   
   END SUB


  
</SCRIPT>

</body>
</html>