⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 deluser.asp

📁 标准的小型企业网站程序
💻 ASP
字号:
<html>
<head>
<title>具体产品管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
<link href="../css/main.css" rel="stylesheet" type="text/css">
<link href="../images/style.css" rel="stylesheet" type="text/css">
</head>
<!--#include file=conn.asp-->
<!--#include file=refuse.asp-->
<%
dim message
message=request.QueryString("message")
if message="" then message="为了数据的安全,请你仔细填写各项(加*为必填)"
%>
<body>
<table width="500" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#6B8FC8">
  <!--DWLayoutTable-->
  <tr> 
    <td width="496" height="29" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr> 
          <td width="496" height="27" valign="middle">
<div align="center" ><font color="red"  size="3"><%=message%></font></div></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="183" valign="top" bgcolor="#E8F1FF"><div  align="center">
	    <form name="form1" id="form1" method="post" action="deluser2.asp">
          <table >
            <!--DWLayoutTable-->
            <tr> 
              <td width="116" height="21">&nbsp;</td>
              <td width="145">&nbsp;</td>
            </tr>
            <tr> 
              <td height="22" valign="top" class="boxcontent">请输入要删除的账号:</td>
              <td valign="top"> <div align="left"> 
                  <input name="username" type="text" class="INPUT" id="username" size="13">
                  *</div></td>
            </tr>
            <tr> 
              <td height="23">&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td height="30" valign="top"><div align="center"> 
                  <input type="submit" name="Submit" value="提交" onClick="return check();">
              </div></td>
              <td valign="top"><input type="reset" name="Submit2" value="重置"></td>
            </tr>
			<%set rs=server.createobject("adodb.recordset")
sql="select * from admin"
rs.open sql,conn,1,1
%>
            <tr>
              <td height="28" colspan="2" valign="top"><p>&nbsp;</p>
                <p>所有用户帐号如下:</p>
                <p>                  <%if rs.eof and rs.bof then
		   else
		   do while not rs.eof
		   %>
                  <%=rs("username")%>,
                  <% rs.movenext
		   loop
		   end if
		   rs.close
		   set rs=nothing%>
                </p></td>
            </tr>
          </table>
		 
        </form>
		</div>	</td>
  </tr>
</table>
<br>
<SCRIPT LANGUAGE="JavaScript">
<!--
function check()
{
   if(checkspace(document.form1.username.value)) {
	document.form1.username.focus();
    alert("不能为空,请重新输入!");
	return false;
  }   
 }


function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
//-->
</script>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -