cscjyclientinfohome.asp

一个相当不错的BS结构学习源码

<%
           nc = Session("client_id")
           kl = Session("user_pass")
           cz = Request("CscModButton")
           
       ModSet = ""

       if not isempty(Request("check01")) then
              ModSet = ModSet + "A"
       end if
       if not isempty(Request("check02")) then
              ModSet = ModSet + "B"
       end if
       if not isempty(Request("check03")) then
              ModSet = ModSet + "C"
       end if
       if not isempty(Request("check04")) then
              ModSet = ModSet + "D"
       end if
       if not isempty(Request("check05")) then
              ModSet = ModSet + "E"
       end if
       if not isempty(Request("check06")) then
              ModSet = ModSet + "F"
       end if
       if not isempty(Request("check07")) then
              ModSet = ModSet + "G"
       end if
       if not isempty(Request("check08")) then
              ModSet = ModSet + "H"
       end if
       if not isempty(Request("check09")) then
              ModSet = ModSet + "I"
       end if
       if not isempty(Request("check10")) then
              ModSet = ModSet + "J"
       end if
       if not isempty(Request("check11")) then
              ModSet = ModSet + "K"
       end if
       if not isempty(Request("check12")) then
              ModSet = ModSet + "L"
       end if

       Session("CscModSet") = ModSet

       set Cscjy_Home=server.createobject("weboa.cscjy")
       response.write Cscjy_Home.cschome(nc,kl,cz,ModSet)
       set Cscjy_Home=nothing
%>