useredit.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 636 行 · 第 1/2 页
ASP
636 行
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/Style.css" rel=stylesheet type=text/css>
<title>会员资料修改</title></head>
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<script Language="JavaScript">
function strDateTime()
{
var str=document.form.Begintime.value;
var str1=document.form.EndTime.value;
var r = str.match(/^(\d{1,4})(-|\/)(\d{1,2})\2(\d{1,2})$/);
var r1 = str1.match(/^(\d{1,4})(-|\/)(\d{1,2})\2(\d{1,2})$/);
if(r==null)
{ alert("请输入正确的开始时间格式！");
document.form.Begintime.focus();
return false;
}
if(r1==null)
{ alert("请输入正确的结束时间格式！ ");
document.form.EndTime.focus();
return false;
}
}
function FormCheck()
{
if (trim(document.form.name.value) =="")
{
alert("请输入您的真实姓名！");
document.form.name.focus();
return (false);
}
if (trim(document.form.email.value) =="")
{
alert("请输入您的电子邮件地址！");
document.form.email.focus();
document.form.email.select();
return false;
}
var str1 = document.form.email.value
if(str1.indexOf("@") == -1 || str1.indexOf(".") == -1){
alert("E-mail格式不正确,请重新填写！");
document.form.email.focus();
document.form.email.select();
return false;
}
if (trim(document.form.phonecountry.value) =="")
{
alert("请输入联系电话的国家区号！");
document.form.phonecountry.focus();
return (false);
}
var filter=/^\s*[0-9]{0,3}\s*$/;
if (!filter.test(document.form.phonecountry.value)) {
alert("国家区号不正确,请重新填写！不超过3个数字，注意不要使用空格。");
document.form.phonecountry.focus();
document.form.phonecountry.select();
return false;
}
if (trim(document.form.phonearea.value) =="")
{
alert("请输入联系电话的城市区号！");
document.form.phonearea.focus();
return (false);
}
var filter=/^\s*[0-9]{0,4}\s*$/;
if (!filter.test(document.form.phonearea.value)) {
alert("城市区号不正确,请重新填写！不超过4个数字，注意不要使用空格。");
document.form.phonearea.focus();
document.form.phonearea.select();
return false;
}
if (trim(document.form.phonenumber.value) =="")
{
alert("请输入您的联系电话号码！");
document.form.phonenumber.focus();
return (false);
}
if (trim(document.form.country1.value) =="中国")
{
if (trim(document.form.province.value) =="")
{
alert("请选择省份！");
document.form.province.focus();
return (false);
}
if (trim(document.form.city.value) =="")
{
alert("请选择地级城市！");
document.form.city.focus();
return (false);
}
}
if (trim(document.form.address.value) =="")
{
alert("请输入您的联系地址！");
document.form.address.focus();
return (false);
}
if (trim(document.form.qymc.value) =="")
{
alert("请输入您公司的名称！");
document.form.qymc.focus();
return (false);
}
if (trim(document.form.zw.value) =="")
{
alert("请输入您的职位！");
ādocument.form.zw.focus();
return (false);
}
if(trim(document.form.productionService.value) == "")
{
alert("注意：请按左至右的顺序填写\n\n主要相关产品名/服务名最少要填一个");
document.form.productionService.focus();
return (false);
}
var check=true;
for(var i=0;i<document.form.qylb.length;i++){
if (document.form.qylb[i].checked) {
check=false;
break;
}
}
if (check){
alert("请选择企业经营模式！");
document.form.qylb[0].focus();
return (false);
}
if (trim(document.form.qyjj.value.length) <50)
{
alert("公司介绍不能少于50字");
document.form.qyjj.focus();
return (false);
}
if (trim(document.form.qyjj.value.length) >2000)
{
alert("公司介绍不能多于2000字");
document.form.qyjj.focus();
return (false);
}
var productionService = form.productionService.value;
for(i=0;i<productionService.length;i++){productionService=productionService.replace(',','，');}
if(form.productionService2.value){
for(i=0;i<form.productionService2.value.length;i++){form.productionService2.value=form.productionService2.value.replace(',','，');}
productionService+=','+form.productionService2.value;
}
if(form.productionService3.value){
for(i=0;i<form.productionService3.value.length;i++){form.productionService3.value=form.productionService3.value.replace(',','，');}
productionService+=','+form.productionService3.value;
}
form.p_z_Z_productionService.value = productionService
document.form.submit()
}
//-->
//-->
function trim(inputString) {
if (typeof inputString != "string") { return inputString; }
var retValue = inputString;
var ch = retValue.substring(0, 1);
while (ch == " ") {
//检查字符串开始部分的空格
retValue = retValue.substring(1, retValue.length);
ch = retValue.substring(0, 1);
}
ch = retValue.substring(retValue.length-1, retValue.length);
while (ch == " ") {
//检查字符串结束部分的空格
retValue = retValue.substring(0, retValue.length-1);
ch = retValue.substring(retValue.length-1, retValue.length);
}
while (retValue.indexOf(" ") != -1) {
//将文字中间多个相连的空格变为一个空格
retValue = retValue.substring(0, retValue.indexOf(" ")) + retValue.substring(retValue.indexOf(" ")+1, retValue.length);
}
return retValue;
}
//-->
</script>
<%
if Chkrequest(request("id")) then
id=request("id")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
dim sql
dim rs
sql="select * from wygkcn_corporation where id="&id
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
sid=rs("sortid")
tid=rs("typeid")
tid2=rs("typeid_2")
zycp=rs("zycp")
pharry=split(rs("phone")," ")
faarry=split(rs("fax")," ")
set rs3=conn.execute("select Yixiang_class_2.*,Yixiang_class_1.* from Yixiang_class_2,Yixiang_class_1 where Yixiang_class_2.typeid="&rs("typeid")&" and Yixiang_class_1.sortid=Yixiang_class_2.sortid")
%>
<table cellpadding="2" cellspacing="1" border="0" width="95%" align=center>
<tr>
<th align=center colspan=8 height=23>用户资料管理</th>
</tr>
<tr>
<td width=9% >注意事项</td>
<td width=91% colspan=7><li>删除按钮将删除所选定的用户全部相关信息，此操作是不可逆的；</td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" border="1" bordercolor="#B9CFE8" width="95%" align=center>
<form method="post" action="save.asp?id=<%=request("id")%>" name="form">
<tr>
<th align=left height=23>姓名和联系方式</th>
</tr>
<tr>
<td><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 bgcolor="#F7F7F7">
<TBODY>
<TR bgcolor="#E9EAF3" onMouseOut="this.style.backgroundColor='#E9EAF3';this.style.color='black';" onMouseOver="this.style.backgroundColor='#6188D7';this.style.color='white';">
<TD height="25" ><B>会员登陆名：</B></TD>
<TD ><input type="text" name="username" value="<%=rs("user")%>" maxlength="30"></td>
</TR>
<TR bgcolor="#E9EAF3" onMouseOut="this.style.backgroundColor='#E9EAF3';this.style.color='black';" onMouseOver="this.style.backgroundColor='#6188D7';this.style.color='white';">
<TD height="25" ><B>密码：</B></TD>
<TD ><input type="text" name="pass" value="<%=rs("pass")%>" maxlength="20"> </TD>
</TR>
<TR bgcolor="#E9EAF3" onMouseOut="this.style.backgroundColor='#E9EAF3';this.style.color='black';" onMouseOver="this.style.backgroundColor='#6188D7';this.style.color='white';">
<TD height="25" ><B>会员等级：</B></TD>
<TD >
<select size="1" name="gradeid" >
<%
set rsd=server.CreateObject("adodb.recordset")
sqld="select * from yixiang_vipgrade order by roleid desc"
rsd.open sqld,conn,1,1
if not rsd.eof then
do while not rsd.eof
%>
<option value="<%=rsd("roleid")%>" <%if rsd("roleid")=rs("gradeid") then response.Write("selected") end if%>><%=rsd("gradename")%></option>
<%
rsd.movenext
loop
rsd.close
end if
%></select></TD>
</TR>
<TR bgcolor="#E9EAF3" onMouseOut="this.style.backgroundColor='#E9EAF3';this.style.color='black';" onMouseOver="this.style.backgroundColor='#6188D7';this.style.color='white';">
<TD height="25" ><B>服务时间：</B></TD>
<TD >
<div <%if rs("flag")=1 then response.Write("style=""display:''""") else response.Write("style=""display:'none'""") end if%>>
开始日期:<input name="Begintime" type="text" value="<%=rs("begindate")%>" onBlur="this.value=this.value.replace(/\s/g,'');strDateTime();" maxlength="20">
结束日期:<input name="EndTime" type="text" value=<%=rs("enddate")%> onBlur="this.value=this.value.replace(/\s/g,'');strDateTime();" maxlength="20">
</div>
<%if rs("flag")=0 then%>
<font color="red" >暂未获得服务!</font>请到该会员所属等级会员列表中，让之通过审核即可开通服务!
<%end if%> </TD>
</TR>
<tr><td colspan="2" bgcolor="#CCCCCC"></td></tr>
<TR bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<TD width="25%" height="25"><B>真实姓名：</B></TD>
<TD width="75%" ><INPUT maxLength=10 size=12 value="<%=rs("name")%>"
name="name"> <INPUT type=radio <%if rs("ch") ="先生" then Response.Write "checked"%> value="先生"
name="ch"> <FONT class=f2>先生 <INPUT type=radio <%if rs("ch") ="女士" then Response.Write "checked"%>
value="女士" name="ch"> 女士 </FONT><BR><FONT class=f2
color=#ff5500>姓名必须是1-10个字</FONT> </TD></TR>
<TR bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<TD width="25%"><FONT color=#ff0000><B>电子邮箱</B>：</FONT></TD>
<TD ><INPUT maxLength=50 size=30 value="<%=rs("email")%>" name="email"> <BR>
<FONT class=note>这是客户与您联系的首选方式，请填最常用的。</FONT><BR></TD></TR>
<TR bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<TD width="25%"><FONT
color=#ff0000><B>MSN</B>：</FONT></TD>
<TD ><INPUT maxLength=50 size=30 value="<%=rs("msn")%>" name="msn"> <BR>
<FONT class=note>即时通讯交流。</FONT><BR></TD></TR>
<TR bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<TD ><FONT
color=#ff0000><B>公司电话</B>：</FONT></TD>
<TD >
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=2 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD><FONT class=f2>国家区号：</FONT></TD>
<TD><FONT class=f2>城市区号：</FONT></TD>
<TD colSpan=2><FONT class=f2>号码：</FONT></TD></TR>
<TR>
<TD><INPUT class=f2 maxLength=8 size=8 value="<%=pharry(0)%>"
name="phonecountry"></TD>
<TD><INPUT class=f2 maxLength=8 size=8 value="<%=pharry(1)%>"
name="phonearea"></TD>
<TD><INPUT class=f2 maxLength=30 size=13
value="<%=pharry(2)%>"
name="phonenumber"></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<TD height="25" ><B>传真：</B></TD>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?