2. it
  3. ASP连接ACCESS数据库 4种方法（转）

ASP连接ACCESS数据库 4种方法（转）

mac2022-06-30  16
转自：http://www.bccn.net/Article/web/asp/jszl/200410/185.html注意：要运行上述ACCESS例程请先下载数据库，放在db 或 rwdata文件夹下。请将例程放在根目录下。<%Dim modemode=request.form("text4")if mode=1 thenname=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.endage=clng(age)end if '********************************************************************' 与AccessDB相关的连接信息' 可以参照它建立您的数据库连接'********************************************************************Dim conn,rs,dbpathSet 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,1if rs.EOF then response.write "no record at all":exit subresponse.write "<table border=1>"response.write "<tr>"for i=0 to rs.Fields.Count-1response.write "<td><font color=blue>"&rs.Fields(i).Name&"</font></td>"nextresponse.write "</tr>"while not rs.EOFresponse.write "<tr>"for i=0 to rs.Fields.Count-1response.write "<td>"&rs.Fields(i).Value&"</td>" nextresponse.write "</tr>"rs.MoveNextwendresponse.write "</table>"rs.Closeend sub'********************************************************************

'********************************************************************' 写数据库相关sub insertdata()strsql="INSERT INTO test(name,age,addr) VALUES('"&name&"',"&age&",'"&addr&"')"rs.Open strsql,conn,1,3end sub'********************************************************************

if mode=1 thencall insertdata()response.write "insert ok!"elseif mode=2 thencall readdb()end if

'********************************************************************' 释放数据库连接对象set rs=nothingset conn=nothing%><HTML><HEAD><TITLE></TITLE><script language=javascript>function clickit(flag){var form1=document.form2form1.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 οnclick="clickit(1)"><INPUT type="button" value="read" id=button2 name=button2 οnclick="clickit(2)"></form></BODY></HTML>

转载于:https://www.cnblogs.com/fightLonely/archive/2010/10/14/1780894.html

最新回复(0)