wnp_user_editmore.asp

U盘身份识别软件

<!--#include file="WNP_INCLUDE.ASP" -->
<SCRIPT language=JavaScript>
<!--
function CheckAll(form){
  for (var i=0;i<form.elements.length;i++){
  var e = form.elements[i];
    if(e.disabled == false){
      e.checked = true;
	}
  }
}
function FanAll(form){
  for (var i=0;i<form.elements.length;i++){
    var e = form.elements[i];
    if (e.checked == true && e.disabled == false){e.checked = false; }
    else { e.checked = true;}
  }
}
//-->
</SCRIPT>
<%
pagename="WNP_USER_EDITMORE.ASP"
%>
<table width="760" height="20" border="0" align="center" cellpadding="0" cellspacing="0" class="textmost">
<form name="search" method="post" action="<%=pagename%>">
  <tr valign="bottom">
    <td height="15" colspan="6" align="center">&nbsp;</td>
    <tr valign="bottom" bgColor=#fdfaf4 borderColorDark=#ffffff border=1>
    <td width="85" height="20" align="center">查询：</td>
    <td width="183"><input name="key1" type="text" id="key1"></td>
    <td colspan="4" align="left" bgcolor="#fdfaf4"><input type="image" src="IMAGES/search.jpg"></td>
    <tr valign="bottom">
    <td height="15" colspan="6" align="center">&nbsp;</td>
  </form>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="30" align="center" class="title1">用户批量审核</td>
  </tr>
</table>
<table width="760" height="400" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top">
<!--#include file="WNP_USER_SQL.ASP" -->
<table bgColor=#fdfaf4 borderColorDark=#ffffff border=1 cellspacing=0 cellpadding=0 align=center width=760  bordercolorlight=#999999 class=textmost>
<form name="userlist" method="post" action="WNP_USER_EDITMORE.ASP?action=SaveEditMore&listnum=<%=totalPut%>">
<tr height=20  align=center valign=bottom class=texttitle>
  <td width="60" height="30">用户序号</td>
  <td>用户名</td>
<td>单位名称</td>
<td width="120">选择</td>
<td width="75">有效状态</td>
<td width="150">有效期</td>
<%
     do while not rs.eof and c<MaxPerPage
%>
<tr height="20"  align="center" valign="bottom"><td><%=rs("WND_USER_Order")%></td><td ><%=rs("WND_USER_USERNAME")%></td><td ><%
		sql="select WND_UNIT_UN from WNT_UNIT where WND_UNIT_ID="&rs("WND_USER_UNITID")
		rssub.open sql,conn,1,1
		response.Write rssub("WND_UNIT_UN")
		rssub.close
		%></td>
  <td><input name="checkbox<%=c%>" type="checkbox" id="checkbox<%=c%>" value="<%=rs("WND_USER_ID")%>"></td>
  <td><input name="checkboxr<%=c%>" type="checkbox" id="checkboxr<%=c%>" value="true" <%if rs("WND_USER_VALID") then response.write "checked"%> disabled></td>
  <td><%=rs("WND_USER_TIME")%></td>
  </tr>
<%
	 rs.movenext
	  c=c+1
	  i=i+1
     loop
	 rs.close
%>
<tr height="20"  align="center" valign="bottom">
  <td height="30" colspan="2" bgcolor="#FFFFFF"><span class="texttitle">更改内容：</span></td>
    <td height="30" bgcolor="#FFFFFF"><span class="texttitle">
    <select name="selectyear" id="selectyear">
      <%
		  dim startyear
		  startyear=year(now())
		  %>
      <option value="<%=startyear+1%>" selected><%=startyear+1%></option>
      <%
		  For i=0 to 50
		  %>
      <option value="<%=startyear+i%>"><%=startyear+i%></option>
      <%
		  next
		  %>
    </select>
    <select name="selectmonth" id="selectmonth">
      <option value="<%=month(now())%>" selected><%=month(now())%></option>
      <option value="01">1</option>
      <option value="02">2</option>
      <option value="03">3</option>
      <option value="04">4</option>
      <option value="05">5</option>
      <option value="06">6</option>
      <option value="07">7</option>
      <option value="08">8</option>
      <option value="09">9</option>
      <option value="10">10</option>
      <option value="11">11</option>
      <option value="12">12</option>
    </select>
    <select name="selectday" id="selectday">
      <option value="<%=day(now())%>" selected><%=day(now())%></option>
      <option value="01">1</option>
      <option value="02">2</option>
      <option value="03">3</option>
      <option value="04">4</option>
      <option value="05">5</option>
      <option value="06">6</option>
      <option value="07">7</option>
      <option value="08">8</option>
      <option value="09">9</option>
      <option value="10">10</option>
      <option value="11">11</option>
      <option value="12">12</option>
      <option value="13">13</option>
      <option value="14">14</option>
      <option value="15">15</option>
      <option value="16">16</option>
      <option value="17">17</option>
      <option value="18">18</option>
      <option value="19">19</option>
      <option value="20">20</option>
      <option value="21">21</option>
      <option value="22">22</option>
      <option value="23">23</option>
      <option value="24">24</option>
      <option value="25">25</option>
      <option value="26">26</option>
      <option value="27">27</option>
      <option value="28">28</option>
      <option value="29">29</option>
      <option value="30">30</option>
      <option value="31">31</option>
    </select>
  </span></td>
  <td height="30" bgcolor="#FFFFFF"><span class="texttitle">
    <input name="Qquan" type="button" class="newSubmit" id="Qquan" onClick="CheckAll(userlist)" value="全选">
    <input name="Fxuan" type="button" class="newSubmit" id="Fxuan" onClick="FanAll(userlist)" value="反选">
</span></td>
  <td height="30" bgcolor="#FFFFFF"><input name="newcheckvalue" type="checkbox" id="newcheckvalue" value="true" checked></td>
  <td height="30" bgcolor="#FFFFFF"><input name="Submit" type="submit" class="newSubmit" value="提交"></td>
</tr>
</form>
</table>
<!--#include file="WNP_PAGEEND.ASP" -->
<%
dim action
action=request("action")
if action="SaveEditMore" then
dim listnum
listnum=request("listnum")
For i=1 to listnum
    dim useridedit,newcheckvalue
	newcheckvalue=request("newcheckvalue")
	if newcheckvalue="true" then
	    newcheckvalue=true
	else
	    newcheckvalue=false
	end if
	useridedit=request("checkbox"&i)
    if useridedit<>"" then
    dim selectyear,selectmonth,selectday,newtimevalue
    selectyear=CStr(request("selectyear"))
    selectmonth=request("selectmonth")
    selectday=request("selectday")
	newtimevalue=selectyear&"-"&selectmonth&"-"&selectday
	sql="select * from WNT_USER where WND_USER_ID="&useridedit
	rs.open sql,conn,1,3
    on error resume next
	if not rs.eof then
         if rs("WND_USER_ID")<>session("USERID") then
              rs("WND_USER_TIME")=newtimevalue
              rs("WND_USER_VALID")=newcheckvalue
              rs.update
		 end if
         rs.close
	end if
	end if
next
response.Redirect "WNP_USER_EDITMORE.ASP"
end if
%>
	
</td>
  </tr>
</table>
</body>
</html>
<%
call closedb
%>