username.asp | searchcode

/username.asp

http://laketune.googlecode.com/
ASP | 247 lines | 235 code | 2 blank | 10 comment | 14 complexity | e283e9e50d55ce65b5976dcd8d096588 MD5 | raw file

<!--#include file="lib/utf-8.asp"-->

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

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

<!DOCTYPE HTML>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<title>EOC????</title>

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

<style type="text/css">

	.yform .type-check label {

		width: 6em;

		display: inline-block;

	}

   .subcl,.subcr,.subc {

    padding-bottom: 100em;

    margin-bottom: -100em;

  }

	h6 {

		background: #600;

		color: white;

		font-weight: bold;

		padding: 5px 10px;

	}

	#tablelist{

		font-family:??;

	}

</style>

<script type="text/javascript">

	$(function() {

		$("#form1").validationEngine();

		$("input:checked").next().next().prop("disabled",false)

		$("input[name='post']").click(function(){

			if($(this).prop("checked")){

				$(this).next().next().prop("disabled",false)

			}else{

				$(this).next().next().prop("disabled",true)

			}

		});

	});

</script>

<!--#include file="lib/js-google-analytics.asp"-->

</head>

<%

if not CheckPostFlag(session("aaPostFlag"),0,15) then call JumpErrorPage(2)

id=request("id")

submit=request("submit")

If submit<>"" Then

	conn.BeginTrans

	username=LCase(request("username"))

	password=request("password")

	fullname=request("fullname")

	active=request("active")

	wan=request("wan")

	employee=request("employee")

	if active="" then active=0

	if wan="" then wan=0

	if employee="" then employee=0

	if submit="??" then

		sql="insert into username(username,[password],fullname,active,wan,employee) values('"&username&"','"&password&"','"&fullname&"',"&active&","&wan&","&employee&")"

		'response.write(sql)

		'response.end

		newuserid=ExecuteCommand(sql,true)

	end if

	if submit="??" then

		sql="update username set username='"&username&"',[password]='"&password&"',fullname='"&fullname&"',active="&active&",wan="&wan&",employee="&employee&" where id="&id

		' response.write(sql)

		' response.end

		call ExecuteCommand(sql,false)

		sql="delete from flag where username="&id

		call ExecuteCommand(sql,false)

		newuserid=id

	end if

	for i=1 to request.form("post").count

		post=request.form("post")(i)

		flag=request.form("flag")(i)

		sql="insert into flag(username,post,flag) values("&newuserid&","&post&","&flag&")"

		call ExecuteCommand(sql,flase)

	next

	if err.number=0 then 

		conn.CommitTrans  '????conn??????????

	else

		conn.RollbackTrans '????

		'????????

		'strerr=err.Description

		url=request.ServerVariables("http_host")&request.ServerVariables("url")

		Response.Write "??????<br /><font color=red>Error # " & CStr(Err.Number) & "<br />" & Err.Description & "<br />Source: " & Err.Source &"<br />?????"&url&"</font><br />"

		Response.End

	end if



end if

if id<>"" then

	Set rs = Server.CreateObject("ADODB.Recordset")

	sql = "select username.*,flag.post,flag.flag from username left join flag on username.id=flag.username where id="&id

	rs.Open sql,conn,1,1

	username=rs("username")

	password=rs("password")

	fullname=rs("fullname")

	active=rs("active")

	wan=rs("wan")

	employee=rs("employee")

	aaFlag=rs.getrows(,,array("post","flag"))

	rs.close

	set rs=nothing

' else

	' dim aaFlag(1,0)

	' aaFlag(0,0)=null

	' aaFlag(1,0)=null

end if

%>

<body>

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

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

<div id="main">

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

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

  <div id="col3" role="main">

    <div id="col3_content" class="clearfix">

      <form id="form1" name="form1" method="post" class="yform" role="application">

        <div class="subcolumns equalize">

          <div class="c50l">

            <div class="subcl">

              <h6>????</h6>

              <div class="type-text">

                <label for="username">???*</label>

                <input name="username" class="validate[required,minSize[3],maxSize[10],custom[onlyLcaseLetter]]" maxlength="10" id="username" type="text" value="<%=username%>" />

              </div>

              <div class="type-text">

                <label for="password">??*</label>

                <input name="password" class="validate[required,minSize[6],maxSize[10],custom[onlyPassword]]" maxlength="10" id="password" type="password" value="<%=password%>" />

              </div>

              <div class="type-text">

                <label for="fullname">??*</label>

                <input name="fullname" class="validate[required,minSize[2],maxSize[4]]" maxlength="4" id="fullname" type="text" value="<%=fullname%>" />

              </div>

              <div class="type-check">

                <input name="active" id="active" type="checkbox" value="1" <%if active then response.write("checked='checked'")%> />

                <label for="active">????</label>

              </div>

              <div class="type-check">

                <input name="wan" id="wan" type="checkbox" value="1" <%if wan then response.write("checked='checked'")%> />

                <label for="wan">????</label>

              </div>

              <div class="type-check">

                <input name="employee" id="employee" type="checkbox" value="1" <%if employee then response.write("checked='checked'")%> />

                <label for="employee">????</label>

              </div>

            </div>

          </div>

          <div class="c50r">

            <div class="subcr">

              <h6>????</h6>

              <%

                Set rs_post = Server.CreateObject("ADODB.Recordset")

                sql_post = "SELECT *  FROM post order by id"

                rs_post.Open sql_post,conn,1,1

                do while not rs_post.eof

              %>

              <div class="type-check">

                <input name="post" id="post<%=rs_post("id")%>" type="checkbox" value="<%=rs_post("id")%>" <%if CheckPost(aaFlag,rs_post("id")) then response.write("checked='checked'")%> />

                <label for="post<%=rs_post("id")%>"><%=rs_post("post")%></label>

                <select name="flag" disabled="disabled">

                <%

                  aAuthKey=dAuthority.keys

                  aAuthItem=dAuthority.items

                  for iAuthLoop=0 to dAuthority.count-1

                %>

                  <option value="<%=aAuthKey(iAuthLoop)%>" <%if CheckPost(aaFlag,rs_post("id")) and GetFlagValue(aaFlag,rs_post("id"))=cint(aAuthKey(iAuthLoop)) then response.write("selected")%>><%=aAuthItem(iAuthLoop)%></option>

                <%

                  next

                %>

                </select>

                <label><%=rs_post("memo")%></label>

              </div>

              <%

                  rs_post.movenext

                loop

                rs_post.close

                set rs_post=nothing

              %>

            </div>

          </div>

        </div>

        <div  class="type-button">

          <%if id="" then%>

          <input type="submit" name="submit" value="??" />

          <%end if%>

          <%if id<>"" and (id<>1 or session("sUserName")="admin") then%>

          <input type="submit" name="submit" value="??" />

          <%end if%>

        </div>

      </form>

      <table id="tablelist" class="full">

        <thead>

          <tr><th colspan="7" scope="col">????</th></tr>

        </thead>

        <tbody>

          <tr>

            <th scope="col">???</th>

            <th scope="col">??</th>

            <th scope="col">??</th>

            <th scope="col">????</th>

            <th scope="col">????</th>

            <th scope="col">??</th>

          </tr>

          <%

            sql = "select * from username order by username"

            Set rs = Server.CreateObject("ADODB.Recordset")

            rs.Open sql,conn,1,1

            do while not rs.eof

          %>

          <tr>

            <th class="sub" scope="row"><a href="username.asp?id=<%=rs("id")%>"><%=rs("username")%></a></th>

            <td><%=rs("fullname")%></td>

            <td><%if rs("active") then response.write("??")%></td>

            <td><%if rs("wan") then response.write("?")%></td>

            <td><%if rs("employee") then response.write("?")%></td>

            <td>

            <%

              Set rs_flag = Server.CreateObject("ADODB.Recordset")

              sql_flag="SELECT post.post,flag from flag inner join post on flag.post=post.id where username="&rs("id")

              rs_flag.Open sql_flag,conn,1,1

              do while not rs_flag.eof

                response.write(FillSpace(rs_flag("post"),12)&"?"&dAuthority(cstr(rs_flag("flag")))&"<br />")

                rs_flag.movenext

              loop

              rs_flag.close

              set rs_flag=nothing

            %>

            </td>

          </tr>

          <%

              rs.movenext

            loop

            rs.close

            set rs=nothing

          %>

        </tbody>

      </table>

    </div>

  </div>

</div>

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

</body>

</html>

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