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

📄 updateyezhu.asp

📁 投资管理系统, asp+ mssql server
💻 ASP
字号:
<%
response.expires=-1
dim ThisKey
ThisKey = "e"
%>
<!--#include file="../inc/permission.asp"-->
<!--#include file="../inc/conn.asp"-->
<html>
<head>
<title>修改业主情况</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet href="../css/main.css" type="text/css">
</head>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
ID=cint(trim(request("ID")))
rs.open "select * from tblYeZhuBase where ID="&ID,conn,1,2
if rs.eof then
	rs.close
	Set rs=Nothing
	response.write "此用户不存在。<a href=# onclick='javascript:window.close();'>【关闭窗口】</a>"
	response.end
else
	Name=trim(rs("Name"))
	Zerenren=trim(rs("Zerenren"))
	Lianxiren=trim(rs("Lianxiren"))
	Tel=trim(rs("Tel"))
	Address=trim(rs("Address"))
	PostCode=trim(rs("PostCode"))
	Fax=trim(rs("Fax"))
	EMail=trim(rs("EMail"))
	LoginName=trim(rs("LoginName"))

	if trim(request("submit"))<>"" then
		if request("Pwd1")<>request("Pwd2") then
			response.write "请验证你输入的用户口令。<a href=# onclick='javascript:history.back(-1);'>【返回】</a>"
			response.end
		else
			if trim(rs("Name"))<>replace(trim(request("Name")),"'","''") then
				Set rs1=Server.CreateObject("ADODB.Recordset")
				rs1.open "select ID from tblYeZhuBase where Name='"&replace(trim(request("Name")),"'","''")&"' and ID<>"&ID,conn,1,1
				if not rs.eof then
					rs1.close
					Set rs1=Nothing
					response.write "此单位名称已经存在。<a href=# onclick='javascript:history.back(-1);'>【返回】</a>"
					response.end
				end if
				rs1.close
				Set rs1=Nothing
			end if
			rs("Name")=replace(trim(request("Name")),"'","''")
			rs("Zerenren")=replace(trim(request("Zerenren")),"'","''")
			rs("Lianxiren")=replace(trim(request("Lianxiren")),"'","''")
			rs("Tel")=replace(trim(request("Tel")),"'","''")
			rs("Address")=replace(trim(request("Address")),"'","''")
			rs("PostCode")=replace(trim(request("PostCode")),"'","''")
			rs("Fax")=replace(trim(request("Fax")),"'","''")
			rs("EMail")=replace(trim(request("EMail")),"'","''")
			if request("Pwd1")<>"" then
				rs("Pwd")=request("Pwd1")
			end if
			rs.update
			rs.close
			Set rs=Nothing
			%>
			<form name="returnform" action="index.asp" method="post" target="FrmRight">
				<Script language="JavaScript">
					returnform.submit();
				</Script>
			</form>
			<body onload="javascript:window.close();" onunload="alert('修改成功!');">
			<%
		end if
	end if
end if
%>
<BODY BGCOLOR="#FFFFCC">
<table border=0 cellpadding=0 cellspacing=0 width=560 align=center>
 <form name="SubmitForm" method="post" action="">
  <tr>
   <td width="80" align=center class=tdlt>单位名称</td>
   <td align=left class=tdrt><INPUT TYPE="text" NAME="Name" value="<%=Name%>" class="input" size=26 maxlength=150></td>
   <td width="80" align=center class=tdrt>责&nbsp;任&nbsp;人</td>
   <td align=left class=tdrt><INPUT TYPE="text" NAME="Zerenren" value="<%=Zerenren%>" class="input" size=26 maxlength=50></td>
  </tr>
  <tr>
   <td width="80" align=center class=tdl>联&nbsp;系&nbsp;人</td>
   <td align=left class=tdr><INPUT TYPE="text" NAME="Lianxiren" value="<%=Lianxiren%>" class="input" size=26 maxlength=150></td>
   <td width="80" align=center class=tdr>联系电话</td>
   <td align=left class=tdr><INPUT TYPE="text" NAME="Tel" value="<%=Tel%>" class="input" size=26 maxlength=50></td>
  </tr>
  <tr>
   <td width="80" align=center class=tdl>地&nbsp;&nbsp;&nbsp;&nbsp;址</td>
   <td align=left class=tdr><INPUT TYPE="text" NAME="Address" value="<%=Address%>" class="input" size=26 maxlength=150></td>
   <td width="80" align=center class=tdr>邮政编码</td>
   <td align=left class=tdr><INPUT TYPE="text" NAME="PostCode" value="<%=PostCode%>" class="input" size=26 maxlength=50></td>
  </tr>
  <tr>
   <td width="80" align=center class=tdl>传&nbsp;&nbsp;&nbsp;&nbsp;真</td>
   <td align=left class=tdr><INPUT TYPE="text" NAME="Fax" value="<%=Fax%>" class="input" size=26 maxlength=150></td>
   <td width="80" align=center class=tdr>电子邮箱</td>
   <td align=left class=tdr><INPUT TYPE="text" NAME="EMail" value="<%=EMail%>" class="input" size=26 maxlength=50></td>
  </tr>
  <tr>
   <td width="80" align=center class=tdl rowspan=2 valign=top>用&nbsp;户&nbsp;名</td>
   <td align=left class=tdr rowspan=2 valign=top>&nbsp;<%=LoginName%></td>
   <td width="80" align=center class=tdr>口&nbsp;&nbsp;&nbsp;&nbsp;令</td>
   <td align=left class=tdr><INPUT TYPE="PassWord" NAME="Pwd1" value="" class="input" size=34 maxlength=50 style="font-size:9pt;"></td>
  </tr>
  <tr>
   <td width="80" align=center class=tdr>口令验证</td>
   <td align=left class=tdr><INPUT TYPE="PassWord" NAME="Pwd2" value="" class="input" size=34 maxlength=50 style="font-size:9pt;"></td>
  </tr>
  <tr>
   <td colspan=4 align=center class=tdl>
	<INPUT TYPE="submit" name="submit" value="修 改" onclick="return CheckData();" class="font9boldwhite">
	<input type="button" name="exit" value="退 出" class="font9boldwhite" onclick="javascript:window.close();">
   </td>
  </tr>
  <tr>
   <td colspan=4 align=left>
   <b>说明:</b>请注意单位名称和用户名不能重复;如果不输入口令,则保持原口令不变。
   </td>
  </tr>
 </form>
</table>
</BODY>
</HTML>

<script language=javascript>
function CheckData()
{	
	if(jtrim(document.SubmitForm.Name.value)==""){
		alert("请输入单位名称!");
		document.SubmitForm.Name.focus();
		return false;
	}
	return true;
}
</script>
<script language=javascript src="../inc/jtrim.js"></script>

⌨️ 快捷键说明

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