📄 edit_user.asp
字号:
<!--#include file="Common/inc_usercheck.asp"-->
<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Config.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│【版权声明】 │
'│ │
'│ 本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│ │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│ │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<html>
<head>
<title><% = strSiteName%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="交友, 征友, 速配, 约会, 聊天, 征婚, 婚介, 爱情, 友情, 友谊, 朋友, 伙伴, 情人, 伴侣, 同性, 异性, 女人, 男士, 女士, 男孩, 女孩, 帅哥, 美女, 单身, 独身, 性感, 浪漫, 激情, 手机交友, 手机, 短信, 彩信, 铃声, 图片, 照片, 靓照, 贴图, 语音, 视频, 搜索, 文章, 商城" name="KEYWORDS">
<link href="Common/Style.css" type="text/css" rel="stylesheet">
</head>
<meta http-equiv="Content-Language" content="zh-cn">
<script language="javascript">
//检查email的合法性
function checkemail(inputstr){
if(inputstr.indexOf('@') != -1 && inputstr.indexOf('.')!= -1)
return true;
else
return false;
}
//检验表单的合法性
function FeedBack() {
if (document.edituser.RealName.value == "") {
alert("\请正确填写您的真实姓名！");
document.edituser.RealName.focus();
}
else if (document.edituser.Password.value == "") {
alert("\密码不能为空！");
document.edituser.Password.focus();
}
else if ((document.edituser.Password.value).length<4) {
alert("\密码至少4位！");
document.edituser.Password.focus();
}
else if (document.edituser.PasswordTwo.value != document.edituser.Password.value ) {
alert("\两次输入密码不相同！");
document.edituser.PasswordTwo.focus();
}
else if (document.edituser.Email.value == "") {
alert("\E-Mail 不能为空！");
document.edituser.Email.focus();
}
else if (document.edituser.Email.value == "" || !checkemail(document.edituser.Email.value)) {
alert("\请正确填写您的E-Mail！");
document.edituser.Email.focus();
}
else if (document.edituser.Add.value == "") {
alert("\请正确填写您的联系地址！");
document.edituser.Add.focus();
}
else {
return true;
}
return false;
}
</script><body topmargin="3" leftmargin="0">
<%
Dim inff
Dim rsd
Dim sql
inff=changechr(Request("id"))
set rsd = Server.CreateObject("ADODB.Recordset")
sql = "Select * From Dat_Member Where MemberKey = "&inff
rsd.Open sql,Conn,1,1
if not rsd.EOF then%>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" width="379" height="64">
<form action="save_user.asp" name="edituser" method="POST" OnSubmit="return FeedBack()">
<input type="hidden" name="id" size="15" value="<%=inff%>" maxlength="40">
<tr>
<td width="80" height="25" align="right">
帐
号：</td>
<td width="290" height="25" align="left">
<input type="text" name="Member" size="20" maxlength="20" value="<% = rsd("Member")%>" readonly="ture"></td>
</tr><%if rsd("MemberType")=1 then%>
<tr>
<td width="80" height="25" align="right">
会员类型：</td>
<td width="290" height="25" align="left"> <font color="#FF0000">个人会员</font>
</td><tr>
<td width="80" height="25" align="right">
真实姓名：</td>
<td width="290" height="25" align="left">
<input type="text" name="RealName" size="20" maxlength="20" value="<% = rsd("RealName")%>"></td>
</tr><%else%><tr>
<td width="80" height="25" align="right">
会员类型：</td>
<td width="290" height="25" align="left"> <font color="#FF0000">企业会员</font>
</td><tr>
<td width="80" height="25" align="right">
公司名称：</td>
<td width="290" height="25" align="left">
<input type="text" name="CompanyName" size="20" maxlength="20" value="<% = rsd("CompanyName")%>"></td>
</tr><%end if%>
</tr>
<tr>
<td width="80" height="25" align="right">
密
码：</td>
<td width="290" height="25" align="left">
<input type="text" name="Password" value="<% = rsd("Password")%>"> <font color="#FF0000">**</font> [至少4位]</td>
</tr>
<tr>
<td width="80" height="25" align="right" valign="middle">
密码确认：</td>
<td width="290" height="25" align="left">
<input type="text" name="PasswordTwo" value="<% = rsd("Password")%>"> <font color="#FF0000">**</font></td>
</tr>
<tr>
<td width="80" height="25" align="right">
电
话：</td>
<td width="290" height="25" align="left">
<input name="Tel" type="text" size="20" maxlength="15" value="<% = rsd("Tel")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
传
真：</td>
<td width="290" height="25" align="left">
<input name="Fax" type="text" size="40" maxlength="15" value="<% = rsd("Fax")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
网
址：</td>
<td width="290" height="25" align="left">
<input type="text" name="Homepage" size="40" maxlength="200" value="<% = rsd("Homepage")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
电子邮件：</td>
<td width="290" height="25" align="left">
<input type="text" name="Email" size="20" maxlength="6" value="<% = rsd("Email")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
联系地址：</td>
<td width="290" height="25" align="left">
<input type="text" name="Add" size="20" maxlength="20" value="<% = rsd("Add")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
邮政编码：</td>
<td width="290" height="25" align="left">
<input type="text" name="Postalcode" size="20" maxlength="20" value="<% = rsd("Postalcode")%>"></td>
</tr>
<tr>
<td width="377" height="35" colspan="2">
<p align="center"><input type="submit" value="提交修改" name="Submit" class="button"> <input type="reset" value="重新填写" name="Reset" class="Button"> </td>
</tr>
</form>
</table>
</center>
</div><%else%><div align="center">
<table border="1" width="379" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
<tr>
<td>
<p align="center"><font color="#FF0000">
对不起，您没有登录或超时或您的帐号被管理员锁定，请重新登录。</font></td>
</tr>
</table>
</div><%end if
rsd.Close
set rsd = nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -