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

📄 editcheck.asp

📁 大家好
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="..\ADOVBS.INC"-->
<%
DbPath = SERVER.MapPath("..\bookshop.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sqltext="select *  from  huiyuan where username='"&request.form("username")&"' and pw='"&request.form("pw")&"' "
rs.open sqltext,conn,adopenkeyset,adlockoptimistic,adcmdtext
if rs.RecordCount<=0 then
   response.redirect "xgfail.asp"
   response.end
end if
Id=rs("UserID")
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改会员信息</title>
</head>
<script language="JavaScript">
<!--
function Check()
{
	var b1 = document.form1.username.value.toLowerCase();
    var b2 = document.form1.pw.value.toLowerCase();
    var b3 = document.form1.name.value.toLowerCase();
    var b4 = document.form1.yb.value.toLowerCase();
    var b5 = document.form1.phone.value.toLowerCase();
    var b6 = document.form1.dz.value.toLowerCase();
       
       if (b1.length<=0)
          {
		window.alert("账号不可为空");
		return false;
	}
        if (b2.length<=0)
          {
		window.alert("密码不可为空");
		return false;
	}
        if (b3.length<=0)
          {
		window.alert("姓名不可为空");
		return false;
	}
        if (b4.length<=0)
          {
		window.alert("邮编不可为空");
		return false;
	}
        if (b5.length<=0)
          {
		window.alert("电话不可为空");
		return false;
	}
   
     if (b6.length<=0)
          {
		window.alert("地址不可为空");
		return false;
	}
               
	return true;
}
//-->
</script>
<script language=vbscript>
<!--

Function ClassIfSelected(dbShuJu,Shu)
   if dbShuJu=Shu then
      ClassIfSelected="selected"
   end if 
End Function

Function ClassIfChecked(dbShuJu,Shu)
   if dbShuJu=Shu then
      ClassIfChecked="Checked"
   end if 
End Function

//-->
</script>

<body bgcolor="#ffffff">
<form method="POST" action="update.asp?Id=<%=Id%>" onsubmit="return Check()" name="form1">
  <table border="1" width="80%" cellpadding="0" align="center" cellspacing="0" hspace="2" vspace="2" bgcolor="#CCCCFF">
    <tr bgcolor="#495E5F"> 
      <td  align="center" colspan="2"><font size="6" color="#FFFFFF">修改个人信息</font></td>
    </tr>
    <tr align="left" bgcolor="#D0E1D0"> 
      <td width="20%" >用户名:</td>
      <td width="80%" > 
        <input type="text" name="username" size="8" value=<% =rs("username") %> >
        <font color="#FF6600">*</font></td>
    </tr>
    <tr align="left" bgcolor="#D0E1D0"> 
      <td width="20%" >密 码 :</td>
      <td width="80%" > 
        <input type="text" name="pw" size="8" value=<% =rs("pw") %>>
        <font color="#FF6600">*</font></td>
    </tr>
    <tr align="left" bgcolor="#D0E1D0"> 
      <td width="20%" >姓 名 :</td>
      <td width="80%" > 
        <input type="text" name="name" size="20" value=<% =rs("name") %>>
        <font color="#FF6600">*</font> </td>
    </tr>
    <tr align="left" bgcolor="#D0E1D0"> 
      <td width="20%" >性 别 :</td>
      <td width="80%" > 
        <input type="radio" value="先生" name="sex" checked>
        先生 
        <input type="radio" name="sex" value="女士" >
        女士 </td>
    </tr>
    <tr align="left" bgcolor="#D0E1D0"> 
      <td width="20%">取货方式:</td>
      <td width="80%"> 
        <select name="pays" size="1">
          <option value="送货上门" selected>送货上门</option>
          <option value="来取" >来取</option>
        </select>
        <font color="#FF6600">*</font> </td>
    </tr>
    <tr align="left" bgcolor="#D0E1D0"> 
      <td width="20%" > 邮 编 :</td>
      <td width="80%" > 
        <input type="text" name="yb" size="6" maxlength="6" value=<% =rs("zip") %>>
        <font color="#FF6600">*</font> </td>
    </tr>
    <tr align="left" bgcolor="#D0E1D0"> 
      <td width="20%">电 话 :</td>
      <td width="80%"> 
        <input type="text" name="phone" size="15" value=<% =rs("phone") %>>
        <font color="#FF6600">*</font> </td>
    </tr>
    <tr align="left" bgcolor="#D0E1D0"> 
      <td width="20%">手 机 :</td>
      <td width="80%"> 
        <input type="text" name="SouJi" size="20" value=<% =rs("souJi") %>>
      </td>
    </tr>
    <tr align="left" bgcolor="#D0E1D0"> 
      <td width="20%">E-mail:</td>
      <td width="80%"> 
        <input type="text" name="email" size="35" value=<% =rs("email") %>>
      </td>
    </tr>
    <tr align="left" bgcolor="#D0E1D0"> 
      <td width="20%">地 址 :</td>
      <td width="80%"> 
        <input type="text" name="dz" size="50" value=<% =rs("address") %>>
        <font color="#FF6600">*</font> </td>
    </tr>
    <tr align="center" bgcolor="#D0E1D0"> 
      <td colspan="2"> 
        <input type="submit" value="修改" name="B1">
        <input type="reset" value="复原" name="B2">
      </td>
    </tr>
  </table>
  </form>
</body>
</html>

⌨️ 快捷键说明

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