editusers.asp

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

ASP
139 行
字号 
<%@ 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.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<-->
<!--注意事项<-->

<!-- 以下内容由程序自动生成 -->
<%
	Dim UserName,UserID
	IF Request("Catalog_ID")<>"" then
		UserID = Session("UserID")
	Else
		UserID = Request.QueryString("UserID") 
	End IF	
	Dim strSQL, rsUsers
	
	strSQL = "SELECT * FROM Users WHERE UserID = "& UserID &""
	Set rsUsers = Server.CreateObject("ADODB.Recordset")
	rsUsers.CursorLocation=3
	rsUsers.Open strSQL, conn, adOpenKeyset 
%>
<form name="frmUsers" method="POST" action="SaveEditUser.asp" onsubmit="return formCheck()" ID="Form1">
	<input type="hidden" name="UserID" value="<%=rsUsers("UserID")%>" ID="Hidden1">  
	<table border=0 cellspacing=1 cellpadding=2  class=list width=98% ID="Table1">
	<tr class=header><td colspan=2>修改用户信息</td></tr>

	<tr height=23>
		<td  class=list>用户名：</td>
		<td  class=list><font color=red><%=rsUsers("UserName")%></font></td>
	</tr>

	<tr>
		<td  class=list>真实姓名：</td>
		<td  class=list><input type="text" name="RealName" value="<%=rsUsers("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" value="<%=rsUsers("Userpwd")%>" size="20"  ID="Password1"><font color=red>*</font></td>
	</tr>

	<tr>
		<td  class=list>确认密码：</td>
		<td  class=list><input type="password" name="FIELD_PasswordConfirm" value="<%=rsUsers("Userpwd")%>" size="20"  ID="Password2"><font color=red>*</font></td>
	</tr>
	<tr>
		<td  class=list>邮箱：</td>
		<td  class=list><input type="text" name="Email" value="<%=rsUsers("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" <%If rsUsers("State")=1 then Response.Write "Checked"%>>
        &nbsp;&nbsp;&nbsp; 否 
        <input id="Radio7" value=0 name=state type=radio <%If rsUsers("State")=0 then Response.Write "Checked"%>></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>
<!------------------------->
<%
rsUsers.close
Set rsUsers = Nothing
%>

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

editusers.asp - 源码说明

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

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

⌨️ 快捷键说明

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