wnp_usertype.asp

U盘身份识别软件

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="WNP_INCLUDE.ASP" -->
<script language="javascript">
<!--
function checkZD(){
  if(zjlx.zdName.value.length<2){
    alert("请正确填写名称！");
    zjlx.zdName.focus();
	return false;
  }
}
//-->
</script>
<!----------字典参数设置---------->
<%
tableName="WNT_GW" 'table
fieldId="WND_GW_ID" 'id
fieldName="WND_GW_Order" 'order
fieldContent="WND_GW_NAME" 'name
fieldValid="WND_GW_Valid" 'valid:"yes"/""
pagename="WNP_UserType.ASP" 'pagename
%>
<table bgColor=#fdfaf4 borderColorDark=#ffffff border=1 cellspacing=0 cellpadding=0 align=center width=760  bordercolorlight=#999999 class=textmost>
  <tr align="center" valign="bottom" class="texttitle">
    <td width="150" height="25">序号</td>
    <td>名称</td>
    <td width="100">不按级</td>
    <td width="100">是否有效</td>
    <td width="150">修改记录</td>
  </tr>
  <%
  sql="select * from "&tableName&" order by "&fieldName&" asc"
  rs.open sql,conn,1,3
  do while not rs.eof
  %>
  <tr align="center" valign="bottom" class="textmost">
    <td><%=rs(fieldName)%></td>
    <td><%=rs(fieldContent)%></td>
    <td><%=rs("WND_GW_NAME1")%></td>
    <td><input name="chxValid" type="checkbox" id="chxValid" value="yes" <%if  rs(fieldValid)="yes" then response.Write "checked"%> disabled></td>
    <td><a href="<%=pagename%>?action=edit&zjid=<%=rs(fieldId)%>">修改记录</a></td>
  </tr>
  <%
  rs.movenext
  loop
  rs.close
  %>
</table>
<%
action=request("action")
if action="" then
%>
<br>
<table bgColor=#fdfaf4 borderColorDark=#ffffff border=1 cellspacing=0 cellpadding=0 align=center width=760  bordercolorlight=#999999 class=textmost>
  <form name="zjlx" method="post" action="<%=pagename%>?action=add" onSubmit="javascript:return checkZD();">
    <tr>
      <td width="150" height="25" align="right" valign="bottom" class="texttitle"> <div align="center">新增记录：
          <%
		  sql="select max("&fieldName&") as maxOrder from "&tableName&""
		  rs.open sql,conn,1,1
		  tempOrder1 = rs("maxOrder")+1
		  rs.close
		  %>
          <input name="xuhao" type=text class="textInput1" id="xuhao" value="<%=tempOrder1%>" size="4" maxlength="4">
      </div></td>
      <td align="right" valign="bottom"><div align="center">
        <input name="zdName" type="text" class="textInput1" id="zdName" size="30" maxlength="30">
          <span class="texttitle"> </span></div></td>
      <td width="100" align="center" valign="bottom">&nbsp;</td>
      <td width="100" align="center" valign="bottom"><input name="chxValid" type="checkbox" id="chxValid" value="yes" checked></td>
      <td width="150" align="center" valign="bottom"><input name="Submit" type="submit" class="newSubmit" value="提 交"></td>
    </tr>
  </form>
</table>
<%
elseif action="add" then
  call addzj()
elseif action="edit" then
  call editzj()
elseif action="delete" then
  call deletezj()
elseif action="mod" then
  call modzj()
end if
%>
<%
sub addzj()
  zjmc=request("zdName")
  orderNumber = request("xuhao")
  call addOrder(tableName,fieldName,orderNumber)
  sql="update "&tableName&" set "&fieldContent&"='"&zjmc&"',"&fieldValid&"='"&request("chxValid")&"' where "&fieldName&"="&orderNumber
  conn.execute(sql)
  response.Redirect pagename
end sub
sub editzj()
  zjid=request("zjid")
  sql="select * from "&tableName&" where "&fieldId&"="&zjid
  rs.open sql,conn,1,1
  if not rs.eof then
%>
<br>
<table bgColor=#fdfaf4 borderColorDark=#ffffff border=1 cellspacing=0 cellpadding=0 align=center width=760  bordercolorlight=#999999 class=textmost>
  <form name="zjlx" method="post" action="<%=pagename%>?action=mod&zjid=<%=rs(fieldId)%>" onSubmit="javascript:return checkZD();">
    <tr valign="bottom">
      <td width="150" height="25" align="right" class="texttitle"><div align="center">修改记录：
          <input name="xuhao" type="text" class="textInput1" id="xuhao" value="<%=rs(fieldName)%>" size="4" maxlength="4">
      </div></td>
      <td align="right"><div align="center">
        <input name="zdName" type="text" class="textInput1" id="zdName" value="<%=rs(fieldContent)%>" size="30" maxlength="30">
      </div></td>
      <td width="100" align="center">&nbsp;</td>
      <td width="100" align="center"><input name="chxValid" type="checkbox" value="yes" <%if  rs(fieldValid)="yes" then response.Write "checked"%>></td>
      <td width="150" align="center"><input name="Submit" type="submit" class="newSubmit" value="提 交"></td>
    </tr>
  </form>
</table>
<%  
  end if
  rs.close
end sub
sub modzj()
  zjid=request("zjid")
  orderNumber = request("xuhao")
  call modOrder(tableName,fieldName,orderNumber,fieldId,zjid)
  sql="update "&tableName&" set "&fieldContent&"='"&request("zdName")&"',"&fieldValid&"='"&request("chxValid")&"' where "&fieldId&"="&zjid
  conn.execute(sql)
  response.Redirect pagename
end sub
sub deletezj()
  zjid=request("zjid")
  call delOrder(tableName,fieldName,fieldId,zjid)'删除记录前调用
  sql="delete from "&tableName&" where "&fieldId&"="&zjid
  conn.execute(sql)
  response.Redirect pagename
end sub
%>
<%
call closedb()
%>