ASP连接access数据库例程
来源:重庆广渝网 |
阅读:16015 次
|
日期:2006-07-01
|
<% Dim mode mode=request.form("text4") if mode=1 then name=request.form("text1") age=request.form("text2") addr=request.form("text3") if not isnumeric(age) then response.write "age must be number!<a href=javascript:history.go(-1)>try again</a>":response.end age=clng(age) end if '******************************************************************** ' 与AccessDB相关的连接信息 ' 可以参照它建立您的数据库连接 '******************************************************************** Dim conn,rs,dbpath Set conn=Server.CreateObject("ADODB.Connection") Set rs=Server.CreateObject("ADODB.RecordSet") dbpath=Server.MapPath("rwdata/db_test_com.mdb") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&dbpath '******************************************************************** '******************************************************************** dim strsql '******************************************************************** ' 读数据库相关操作 sub readdb() strsql="select * from test" rs.open strsql,conn,1,1 if rs.EOF then response.write "no record at all":exit sub response.write "<table border=1>" response.write "<tr>" for i=0 to rs.Fields.Count-1 response.write "<td><font color=blue>"&rs.Fields(i).Name&"</font></td>" next response.write "</tr>" while not rs.EOF response.write "<tr>" for i=0 to rs.Fields.Count-1 response.write "<td>"&rs.Fields(i).value&"</td>" next response.write "</tr>" rs.MoveNext wend response.write "</table>" rs.Close end sub '******************************************************************** '******************************************************************** ' 写数据库相关 sub insertdata() strsql="INSERT INTO test(name,age,addr) valueS('"&name&"',"&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 '******************************************************************** ' 释放数据库连接对象 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 name=form2> name:<INPUT type="text" id=text1 name=text1 size=12> age:<INPUT type="text" id=text2 name=text2 size=12> city:<INPUT type="text" id=text3 name=text3 size=12><br> <INPUT type="hidden" id=text4 name=text4> <INPUT type="button" value="write" id=button1 name=button1 onclick="clickit(1)"> <INPUT type="button" value="read" id=button2 name=button2 onclick="clickit(2)"> </form> </BODY> </HTML>
|