adduser.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 126 行

ASP
126 行
字号 
<%@ Language=VBScript %>
<%

Response.Buffer = True
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

%>
<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<!--#include file="Function.asp"-->
<html>
<head>
<title>EditUsers</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content=" ">
<meta name="keywords" content=" ">

<link rel="stylesheet" href="../Css/css.css" type="text/css">


<script language="javascript">
	function formCheck() {

	  if (document.frmUsers.UserName.value=="") {
	    alert("请输入你的用户名");
	    document.frmUsers.UserName.focus();
	    return false;
	  }
	  if (document.frmUsers.RealName.value=="") {
	    alert("请输入你的真实姓名");
	    document.frmUsers.RealName.focus();
	    return false;
	  }
	  if (document.frmUsers.FIELD_Password.value=="") {
	    alert("请输入你的密码");
	    document.frmUsers.FIELD_Password.focus();
	    return false;
	  }
	  if (document.frmUsers.FIELD_PasswordConfirm.value=="") {
	    alert("请输入你的确认密码");
	    document.frmUsers.FIELD_PasswordConfirm.focus();
	    return false;
	  }
	  if (document.frmUsers.FIELD_PasswordConfirm.value!=document.frmUsers.FIELD_Password.value) {
	    alert("密码和确认密码不相同");
	    document.frmUsers.FIELD_Password.focus();
	    return false;
	  }
	   if (document.frmUsers.Email.value=="") {
	    alert("请输入邮件地址")
	    document.frmUsers.Email.focus()
	    return false;
	  }
	  var email = document.frmUsers.Email.value
	  var is_error = false
	  var pn_0 = email.indexOf("@")
	  var pn_1 = email.indexOf(".",pn_0)
	  var pn_2 = email.length
	  if (pn_0<1 || pn_1<pn_0+2 || pn_1+2>pn_2) is_error=true
	  if (is_error) {
	    alert("请输入正确的邮件地址")
	    document.frmUsers.Email.focus()
	    return false;
	  }
	   return true;
	   }
</script>	 
</head>
<!-- #Include file = "Menu.asp" -->
<!------------------------->
<!--修改Users<-->
<!--注意事项<-->

<!-- 以下内容由程序自动生成 -->

<form name="frmUsers" method="POST" action="SaveAddUser.asp" onsubmit="return formCheck()" ID="Form1">
	<table border=0 cellspacing=1 cellpadding=2  class=list width=98% ID="Table1">
	<tr class=header><td colspan=2>添加用户信息</td></tr>

	<tr>
		<td  class=list>用户名：</td>
		<td  class=list><input type="text" name="UserName" maxlength=50 size="20"  ID="Text3"><font color=red>*</font></td>
	</tr>

	<tr>
		<td  class=list>真实姓名：</td>
		<td  class=list><input type="text" name="RealName" size="20"  ID=Text1><font color=red>*</font></td>
	</tr>

	<tr>
		<td  class=list>密码：</td>
		<td  class=list><input type="password" name="FIELD_Password" size="20"  ID="Password1"><font color=red>*</font></td>
	</tr>

	<tr>
		<td  class=list>确认密码：</td>
		<td  class=list><input type="password" name="FIELD_PasswordConfirm" size="20"  ID="Password2"><font color=red>*</font></td>
	</tr>
	<tr>
		<td  class=list>邮箱：</td>
		<td  class=list><input type="text" name="Email" size="20"  ID="Text4"><font color=red>*</font></td>
	</tr>
		<tr>
		<td  class=list>是否开放：</td>
		<td  class=list>是
        <input value=1 name=state type=radio  ID="Radio2" checked>
        &nbsp;&nbsp;&nbsp; 否 
        <input id="Radio7" value=0 name=state type=radio></td>
	</tr>
	</table>
	<p><input type="submit" value="提交" name="btnSubmit" ID=Submit1> <input type="reset" value="全部重写" name="B2" ID=Reset1>
<input type="hidden" name="FIELD_UserID" size="20" ID=Text2>	
	</p> 
</form>
<!------------------------->


</body>
</html>
<!--#include virtual="/Include/DBClose.asp"-->

adduser.asp - 源码说明

本页面展示了「ASP编写的一个公司网站的源程序」中的 adduser.asp 源码文件，采用 ASP 编程语言编写，共 126 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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