<%
Dim mode
mode=request.form("text4")
if mode=1 then
name=request.form("t₹₩¥ext1")
age=request.form("text2")
addr=request.form("text3")
if not isnumeric(age) then respon↕©se.write "age must be number!&±¶lt;a href=javascript:history.go(-1)>try a₽•gain</a>":response.end
age=clng(age)
end if '**************************≈≥σ*********************$'&*********************
' 與AccessDB相(xiàng)關的(de)>β 連接信息
' 可(kě)以參照(zhào)它建立您的(de)數(shù)據庫連接
'********************************↕♣β************************************βφ§
Dim conn,rs,dbpath
Set conn=Server.CreateObject("ADODB.Con↔₩ nection")
Set rs=Server.CreateObject("ADODB.Rec§™∑ordSet")
dbpath=Server.MapPath("rwda≤§ta/db_test_com.mdb")
conn.Open "Driver={Microsoft Accessγ&≈₽ Driver (*.mdb)}; DBQ="&db÷ε↕path
'*********************€************************************₩ ***********
'*********************Ω↔↓*************************************∞**********
dim strsql
'********************************☆™****************************≈ ¶********
' 讀(dú)數(shù)據庫相(xiàng)關操作(zuò)
sub readdb()
strsql="select * from t&&$÷est"
rs.open strsql,conn,1,1
if rs.EOF then respons↔✔e.write "no record at all"≥₹'¶:exit sub
response.write "<table bor✘•™★der=1>"
response.write "<tr>"
for i=0 to rs.Fields.Co®€unt-1
response.write "<td><fon↑Ωπ©t color=blue>"&rs.Fields(i)'ε.Name&"</font></td>"
next
response.write "</tr>"
while not rs.EOF
response.write "<tr&↔ε↕gt;"
for i=0 to rs.Fields★™φ•.Count-1
response.write "<td>♠φ•;"&rs.Fields(i).value&"</td>"
next
response.write "</tr&∏♦×gt;"
rs.MoveNext
wend
response.write "</table>"
rs.Close
end sub
'**************************☆≤**************************α≈&****************
'*****************************↑≥****************************§♠λ***********
' 寫數(shù)據庫相(xiàng)關
sub insertdata()
strsql="INSERT INTO test(name,ag& αe,addr) valueS('"&name&"',"&am ★✔•p;age&",'"&addr₽≥γ&"')"
rs.Open strsql,conn,1,3
end sub
'*******************************↑♠×&*********************** §**************
if mode=1 then
call insertdata()
response.write "insert ok!"
elseif mode=2 then
call readdb()
end if
'*********************************δ•**************************ε£*********
' 釋放(fàng)數(shù)據庫連接對(du₽>σì)象
set rs=nothing
set conn=nothing
%>
<HTML>
<HEAD>
<TITLE></TITLE♦÷>
<script language=javascript>
function clickit(flag){
var form1=document.form2
form1.text4.value=flag;
if (flag==1){
if (form1.text1.value==""){
alert("name cant empty!");
return false;
}
if (form1.text2.value==""){
alert("age cant empty!");
return false;
}
if (form1.text3.value==""){
alert("addr cant empty!");
return false;
}
}
form1.submit();
return true;
}
</script>
</HEAD>
<BODY>
<form method=post nam →e=form2>
name:<INPUT type="text" id=text1 "¶Ωλname=text1 size=12>
age:<INPUT type="text" i'•×©d=text2 name=text2 size=12&g♣§ t;
city:<INPUT type="teδ∑xt" id=text3 name=text3 size=1β↑δ©2><br>
<INPUT type="hidde®αβφn" id=text4 name=tex≥>★t4>
<INPUT type="button" value="write" id=button1 name=b§€'$utton1 onclick="clickit(1)">
<INPUT type="button" value="read" id=button2 na∞₽§me=button2 onclick="clickit(2)">
</form>
</BODY>
</HTML>
