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

📄 modify.asp

📁 本程序系统完全实现了医院网站程序的全部功能的前台和后台程序
💻 ASP
字号:
<!--#include file="../INC/err.asp" -->
<!-- #include file="../../connections/conndb.asp" -->
<%
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select  * from tbl_client where id="&id
rs.open sql,conn,1,1
if not rs.eof then
%>
<html>
<head>
<title>会员资料修改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet href="../images/style.css">
<script language=javascript>
<!--
function check(theform)
{
 if ( (theform.passwd.value.length<4) || (theform.passwd.value.length>12) ){
      alert("密码应该在4到12位之间。");
      theform.passwd.focus();
       return false;
    }  
    if (theform.address.value=="")
    {
   alert("请输入联系地址");
   theform.address.focus();
   return false;
   }  
   if(!fucCheckTEL(theform.zip.value))
   { alert("请输入规范的邮编。");
     theform.zip.focus();
     return false;
     }
    if (theform.linkman.value=="")
    {
   alert("请输入联系人");
   theform.linkman.focus();
   return false;
   }  
    if (theform.tel.value=="" && theform.mobile.value=="" )
   {
   alert("电话、手机必填其一");
   theform.tel.focus();
   return false;
   } 
    if(!fucCheckTEL(theform.tel.value))
   { alert("请输入规范的电话!");
     theform.tel.focus();
     return false;
     }
    if(!fucCheckTEL(theform.fax.value))
   { alert("请输入规范的传真!");
     theform.fax.focus();
     return false;
     }
if (theform.email.value.length>0 && !check_email(theform.email.value)) 
     { 
         alert("请输入合法的email。");
         theform.email.focus();
         return false; 
     }
 if (theform.memo.value.length>1000)
   {
   alert("公司简介超过1000字");
   theform.memo.focus();
   return false;
   }
//检验Email有效性
function check_email(myint)
 {
 var checkstr=myint;
 if (checkstr.charAt(0)=="@") {return false;}
 if (checkstr.charAt(checkstr.length-1)=="@") {return false;}
 if (checkstr.charAt(checkstr.length-1)==".") {return false;}
 a_valid=0;
 a_count=0;
 d_valid=0;
 for(i=0; i<checkstr.length; i++)
  {
  ch=checkstr.charAt(i);
  if (ch=='@') {a_valid=1;a_count++;}
  if (ch=='.') {d_valid=1;}
  }
  if (a_count>1) {return false;}
  if (a_valid==1 && d_valid==1) {return true;}
  else
   {return false;}
 }
function fucCheckTEL(TEL)
{
    var i,j,strTemp;
    strTemp="0123456789-()#, ;";
    for (i=0;i<TEL.length;i++)
    {
        j=strTemp.indexOf(TEL.charAt(i));    
        if (j==-1)
        {
        //说明有字符不合法
            return 0;
        }
    }
    //说明合法
    return 1;
}
function fucchecknum(num)
{
    var i,j,strTemp;
    strTemp="0123456789";
    for (i=0;i<num.length;i++)
    {
        j=strTemp.indexOf(num.charAt(i));    
        if (j==-1)
        {
        //说明有字符不合法
            return 0;
        }
    }
    //说明合法
    return 1;
}
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolorlight="#6D8E4D" bordercolordark="#E6E4C4" bgcolor="#CCCCCC">
  <form method="post" action="modify1.asp" onsubmit="return check(theform)" name="theform">
    <tr align="center" bgcolor="#B6CBEB"> 
      <td height="24" colspan="2"><b> 修改会员资料</b></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="13" colspan="2"><font color=red>请注意:</font> 您所填的联系方式必须是<font 
            color=red>正确</font>的,否则无法与您取得联系,所有都必填。</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="24" align="right" bgcolor="#FFFFFF">会员ID:</td>
      <td  height="24"><input name="userid" disabled id="userid" value="<%=rs("userid")%>" size=20 maxlength=20> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="24" align="right" bgcolor="#FFFFFF">密 码:</td>
      <td  height="24"><input name="passwd" type="text" id="passwd" value="<%=rs("passwd")%>" size=20 maxlength=20 > 
        <font color="red">*</font> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width=15% height="24" align="right" bgcolor="#FFFFFF">公司名称:</td>
      <td  height="24"> <input name="company" value="<%=rs("company")%>" size=40 maxlength=50 > 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="24" align="right" bgcolor="#FFFFFF">联系人:</td>
      <td  height="24"> <input name="linkman" value="<%=rs("linkman")%>" size="20" maxlength=10 > 
        <font color="red">*</font> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width=15% height="25" align="right" bgcolor="#FFFFFF">通讯地址:</td>
      <td  height="25"> <input name="address" value="<%=rs("address")%>" size=40 maxlength=50 > 
        <font color="red">*</font> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width=15% height="24" align="right" bgcolor="#FFFFFF">邮政编码:</td>
      <td  height="24"> <input name="zip" value="<%=rs("zip")%>" size="20" maxlength=6 > 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width=15% height="24" align="right" bgcolor="#FFFFFF">电 话:</td>
      <td  height="24"> <input name="tel" value="<%=rs("tel")%>" size=40 maxLength=50> 
        <font color="red">*</font> 电话或手机必填其一</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="24" align="right" bgcolor="#FFFFFF">手 机:</td>
      <td  height="24"> <input name="mobile" id="mobile" value="<%=rs("mobile")%>" size=40 maxLength=50> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="15%" height="24" align="right" bgcolor="#FFFFFF">传 真:</td>
      <td  height="24"> <input name="fax" value="<%=rs("fax")%>" size=40 maxlength=50 
                 > </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="15%" height="24" align="right" bgcolor="#FFFFFF">Email:<br> </td>
      <td  height="24"> <input name="email" value="<%=rs("email")%>" size=40 maxlength=50 
                 > </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="23" align="right" bgcolor="#FFFFFF">网 址:<br> </td>
      <td  height="23"> 
        <input name="http" id="http" value="<%=rs("http")%>" size=40 maxlength=50 
                 > </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width=15% height="2" align="right" valign="top" bgcolor="#FFFFFF"> <table width="100%" height="22" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td align="right">会员描述:</td>
          </tr>
        </table></td>
      <td  height="2"> <textarea name="memo" cols="60" rows="8" id="memo"><%=rs("memo")%></textarea> 
        <font color="red"><br>
        </font> 1000字以内</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width=15% align="right" bgcolor="#FFFFFF"><br> </td>
      <td > <input name=Next style="FONT-SIZE: 9pt" type=submit value="更新提交" class="button"> 
        <input name=Next2 style="FONT-SIZE: 9pt" type=reset value="全部重写" class="button"> <input name="id" type="hidden" id="id" value="<%=rs("id")%>"> 
      </td>
    </tr>
  </form>
</table>
</body>
</html>
<%
else
call msg("记录不存在!","javascript:window.close()")
response.End()
end if
rs.close
conn.close
%>

⌨️ 快捷键说明

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