📄 modify.asp
字号:
<!--#include file="function/m_conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="../../config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=ZXLCompanyStr%>后台管理会员管理</title>
<link href="RLimages/user.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
function check(){
if(frmUserDetail.mem_loginname.value==""){
alert("请输入用户名！");
frmUserDetail.mem_loginname.focus();
return false
}
if(frmUserDetail.mem_loginpasd.value==""){
alert("请输入用户密码！");
frmUserDetail.mem_loginpasd.focus();
return false
}
if(frmUserDetail.mem_loginpasd1.value==""){
alert("请输入用户确认密码！");
frmUserDetail.mem_loginpasd1.focus();
return false
}
if(frmUserDetail.mem_loginpasd1.value!=frmUserDetail.mem_loginpasd.value){
alert("密码不等于确认密码，请重新输入确认密码！");
frmUserDetail.mem_loginpasd1.focus();
return false
}
}
//-->
</script>
</head>
<body >
<%
page=request("page")
search_type=request("search_type")
search_word=request("search_word")
filename=trim(request("filename"))
mem_id = request("mem_id")
msg="添加用户资料！"
if trim(mem_id)<>"" then
mem_id=cint(mem_id)
sql="select * from tmember where mem_id = "&mem_id
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,1
if rs.recordcount > 0 then
mem_loginname=testdb(rs("mem_loginname"))
mem_loginpasd=testdb(rs("mem_loginpasd"))
mem_email=testdb(rs("mem_email"))
mem_grade=testdb(rs("mem_grade"))
mem_date=testdb(rs("Mem_RegistDate"))
mem_money=testdb(rs("mem_money"))
mem_sex=testdb(rs("mem_sex"))
mem_city=testdb(rs("mem_city"))
mem_name=testdb(rs("mem_name"))
mem_addr=testdb(rs("mem_addr"))
mem_tel=testdb(rs("mem_tel"))
mem_mobile=testdb(rs("mem_mobile"))
mem_CardID=testdb(rs("mem_CardID"))
mem_IDCARD=testdb(rs("mem_IDCARD"))
mem_status=testdb(rs("mem_status"))
mem_remark=testdb(rs("mem_remark"))
mem_province=testdb(rs("mem_province"))
mem_zip=testdb(rs("mem_zip"))
mem_power=testdb(rs("mem_power"))
mem_both=testdb(rs("mem_both"))
mem_cid=testdb(rs("mem_cid"))
mem_company=testdb(rs("mem_company"))
mem_fax=testdb(rs("mem_fax"))
mem_ifActive=rs("mem_ifActive")
rs.close
if mem_ifActive="" then mem_ifActive="0"
msg="修改用户资料！"
end if
end if
%>
<table cellpadding="2" cellspacing="1" >
<form name="frmUserDetail" method="post" action="mem_modify.asp" onSubmit="return check()">
<input type="hidden" name="mem_id" value="<%=mem_id%>">
<input type="hidden" name="filename" value="<%=filename%>">
<input type="hidden" name="page" value="<%=page%>">
<input type="hidden" name="search_type" value="<%=search_type%>">
<input type="hidden" name="search_word" value="<%=search_word%>">
<tr bgcolor="#518BCB">
<td height="25" colspan="3" align="center" class="bi"><span class="s-12"> <strong><font color="#FFFFFF"><%=msg%></font></strong></span>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="14%" height="25" align="right" bgcolor="#F5F5F5" class="12-bak"><strong>会员账号</strong></td>
<td height="25" colspan="2" bgcolor="#F5F5F5"><%if mem_loginname<>"" then%><%=mem_loginname%><input name="mem_loginname" type="hidden" class="book" value="<%=mem_loginname%>"><%else%><input name="mem_loginname" type="text" class="book" >
<font color="#FF0000">*</font> <%end if%>
</td>
</tr>
<tr bgcolor="#F5F5F5">
<td height="25" align="right" bgcolor="#FFFFFF" class="12-bak"><strong>性 别</strong></td>
<td height="25" colspan="2" bgcolor="#FFFFFF"><input type="radio" name="mem_sex" value="M" <%if mem_sex="M" then response.write "checked"%>>男 <input type="radio" name="mem_sex" value="F" <%if mem_sex="F" then response.write "checked"%>>女</td>
</tr>
<tr bgcolor="#F5F5F5">
<td width="14%" height="25" align="right" class="12-bak"><strong>级 别</strong></td>
<td height="25" colspan="2"> <select name="mem_grade" class="bok" id="mem_grade">
<option value="1" <%if mem_grade="1" then response.Write "selected"%>>注册会员</option>
<option value="2" <%if mem_grade="2" then response.Write "selected"%>>VIP会员</option>
<option value="3" <%if mem_grade="3" then response.Write "selected"%>>VIP贵宾会员</option>
<option value="4" <%if mem_grade="4" then response.Write "selected"%>>集团会员</option>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="14%" height="25" align="right" class="12-bak"><strong>密 码</strong></td>
<td height="25" colspan="2"> <input name="mem_loginpasd" type="text" class="book" id="mem_loginpasd" value="<%=mem_loginPasd%>" maxlength="20">
<font color="#FF0000">*</font> </td>
</tr>
<tr bgcolor="#F5F5F5">
<td width="14%" height="25" align="right" class="12-bak"><strong>密码确认</strong></td>
<td height="25" colspan="2"> <input name="mem_loginpasd1" type="password" class="book" id="mem_loginpasd1" value="<%=mem_loginPasd%>" maxlength="20">
<font color="#FF0000">*</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="right" class="12-bak"><strong>公司名称</strong></td>
<td height="25" colspan="2"> <input name="Mem_company" type="text" class="book" id="Mem_company2" value="<%=Mem_company%>" size="50" maxlength="90">
<font color="#FF0000">*</font></td>
</tr>
<tr align="center" bgcolor="#518BCB">
<td height="25" colspan="3" bgcolor="#518BCB" class="12-bak"><font color="#FFFFFF"><strong>联系信息</strong></font></td>
</tr>
<tr bgcolor="#F5F5F5">
<td width="14%" height="25" align="right" class="12-bak"><strong>真实姓名</strong></td>
<td height="25" colspan="2"> <input name="mem_name" type="text" class="book" id="mem_name" value="<%=mem_name%>" maxlength="20">
<font color="#FF0000">*</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="right" class="12-bak"><strong>省 份</strong></td>
<td height="25" colspan="2">
<input name="mem_province" type="text" class="book" id="mem_province" value="<%=mem_province%>" maxlength="20">
<font color="#FF0000">*</font></td>
</tr>
<tr bgcolor="#F5F5F5">
<td height="25" align="right" class="12-bak"><strong>城 市</strong></td>
<td height="25" colspan="2">
<input name="mem_city" type="text" class="book" id="mem_city" value="<%=mem_city%>" maxlength="100">
<font color="#FF0000">*</font> </td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -