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

📄 dj.asp

📁 这是一个网络信息查询系统,能实现添加,查询(精确查询、模糊查询）
💻 ASP
字号:
🔍 
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>登记注册</title>
<script language="Javascript">
function  isemailleagle(str)
 {
    if(str=="") { alert("please enter a leagle email address ."); return false;}
    if(str.indexOf("@",0)==-1)  { alert("error: your email addr should have an '@'.");                                 
                                   return false;}
   return true; }
</script>
</head><body background="sz.gif">
<form method="POST" action="dj.asp">
<div align="left"><table border="1" cellspacing=0 width="466" height="124">
<tr>
<td width="56" height="23" align="center"><font size=3><b>编号:</b></font></td>
<td width="166" height="23" align="left"><input type="text" name="bh" size="8"></td>
<td width="76" height="23" align="center"><font size=3><b>姓名:</b></font></td>
<td width="140" height="23" ><input type="text" name="name" size="8"></td>
</tr>
<tr>
<td width="55" height="16" align="center"><font size=3><b>性别:</b></font></td>
<td width="96" height="16"><select size="1" name="SEX">
<option selected value="男"><font size=3><b>男</b></font></option>
<option value="女"><font size=3><b>女</b></font></option>
</select></td>
<td width="77" height="16" align="center"><font size=3><b>单位:</b></font></td>
<td width="210" height="16" ><input type="text" name="dw" size="24"></td>
</tr>
<tr>
<td width="56" height="16" align="center"><font size=3><b>生日:</b></font></td>
<td width="166" height="16"><select size="1" name="SRY">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select><font size=3><b>月</b></font><select size="1" name="SRR"> 
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select><font size=3><b>日</b></font></td>
<td width="76" height="16" align="center"><font size=3><b>籍贯:</b></font></td>
<td width="140" height="16"><select size="1" name="HOME">
<option value="北京">北京</option>
<option value="上海">上海</option>
<option value="福建">福建</option>
<option value="江苏">江苏</option>
<option value="广东">广东</option>
<option value="吉林">吉林</option>
<option value="四川">四川</option>
<option value="辽宁">辽宁</option>
<option value="内蒙古">内蒙古</option>
<option value="浙江">浙江</option>
<option value="云南">云南</option>
<option value="山西">山西</option>
<option value="陕西">陕西</option>
<option value="湖南">湖南</option>
<option value="湖北">湖北</option>
<option value="河南">河南</option>
<option value="河北">河北</option>
<option value="山东">山东</option>
</select></td>
</tr>
      <tr>
        <td width="56" height="16" align="center"><font size=3><b>email：</b></font></td>
        <td width="166" height="16"><input type="text" name="EMAIL" size="16"onchange="isemailleagle(this.value);"></td>
        <td width="76" height="16" align="center"><font size=3><b>备注：</b></font></td>
        <td width="140" height="16"><input type="text" name="beizhu" size="24"></td>
      </tr></table></div>
<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
<input type="submit" value="发送" name="B1" style="font-size:14pt">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
<input type="reset" value="清除" name="B2" style="font-size: 14pt">&nbsp;&nbsp;</p>
<p align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</p>                  
</form><p>　</p>
<% dim conn, sql,DBPath
DBPath = Server.MapPath("db1.mdb")
Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open Connstr
'获取表格中的数据
bh=REQUEST.FORM("bh")
name=REQUEST.FORM("name")
sex=REQUEST.FORM("sex")
danwei=REQUEST.FORM("dw")
BIR=REQUEST.FORM("SRY")&"月"&request.form("SRR")&"日"
HOME=REQUEST.FORM("HOME")
EMAIL=REQUEST.FORM("EMAIL")
beizhu=REQUEST.FORM("beizhu")
'判断输入的表单数据中编号,姓名,如果为空就继续要用户填。
'否则就说明用户已填完数据，就把数据存入数据库中。
  if bh<>"" and name<>""  then
     '把数据输入数据表
    sql="INSERT INTO xinxi(bh,name,sex,danwei,bir,home,email,beizhu)   VALUES('"&BH&"','"&NAME&"','"&SEX&"','"&DANWEI&"','"&BIR&"','"&HOME&"','"&EMAIL&"','"&BEIZHU&"')"
 conn.execute sql
 '返回成功的结果
 Response.write("你的数据已被成功地写入数据库中") %>
   <div align="left">
  <table cellspacing=0 border="1" width="76%">
    <tr>
      <td width="25%"><font size=2>编号：</font><%=bh%></td>
      <td width="25%"><font size=2>姓名：</font><%=name%></td></tr>
    <tr>
     <td width="25%"><font size=2>性别：</font><%=sex%></td>
     <td width="25%"><font size=2>单位：</font><%=danwei%></td></tr>
    <tr>
     <td width="25%"><font size=2>生日：</font><%=bir%></td>
      <td width="25%"><font size=2>籍贯：</font><%=home%></td></tr>
    <tr>
      <td width="25%"><font size=2>email：</font><%=email%></td>
      <td width="25%"><font size=2>备注：</font><%=beizhu%></td></tr> 
  </table></div>
<% response.end
conn.close
end if %>
</html>

⌨️ 快捷键说明

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