?? dj.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>
<input type="submit" value="發送" name="B1" style="font-size:14pt">
<input type="reset" value="清除" name="B2" style="font-size: 14pt"> </p>
<p align="center">
</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 + -