用ASP连接读写ACCESS数据库实例（转）

锛?涓?锛?????版??搴??????╋?

??璁稿????版??搴?浣???浠ラ???╋?SQL SERVER??ACCESS(*.mdb)??EXCEL(*.xls)??FOXPRO(*.dbf)???虫????????????浠?*.txt)?藉??浠ヨ揪?板???ㄦ?版???????姐???ｄ??板????╀?涔??版??搴???????????朵腑SQLSERVER?????″?ㄧ骇??锛?瓒充互搴?浠?姣?澶╀?涓?娆＄??璁块??????瀵逛??????″?ㄧ骇???版??搴?寤鸿??浣跨??CCESS97??

??涓猴?

锛?1锛???瑕?瀹?瑁?浜?PWS??IIS4??瀹???ACCESS??ODBC椹卞????充???绯荤???瀹?????ACCESS?版??搴???瀛?????

锛?2锛?ACCESS??????SQL??浠ら??甯搁??ㄣ??

锛?3锛?ACCESS ODBC椹卞?ㄧ?搴?????????甯搁?????界?跺??涓??????″?ㄧ骇???版??搴?锛?浣???浣?涓轰腑灏???浼?涓????ㄧ????版??搴?????杩???缁扮话??浣?????

锛?4锛?ACCESS97??FFICE97涓?灏辨??锛???甯告?逛究寰??板??浣跨?ㄣ??

????灏变互ACCESS?版??搴?涓哄??浠?缁??轰?WEB???版??搴?瀛????规???

锛?浜?锛?渚?瀛?锛???浠?寤虹??涓?涓???瀹㈡?封???版??搴?锛???瑕?淇?瀛?濡?涓???瀹㈡?疯???锛?瀹㈡?峰??绉般????缁?浜哄????????ㄥ??甯????佃???风????

锛?1锛?棣???寤虹??ACCESS?版??搴?customer.mdb(浠??????ㄧ??)??

????? 寤虹??濡?涓?瀛?娈碉?瀹㈡?峰??绉般????缁?浜哄????????ㄥ??甯????佃???风????瀹㈡?风??枫???堕?淬??灏?琛ㄤ?瀛?涓?瀹㈡??(浠??????ㄧ??,===>????????娉ㄦ??锛?寤虹??瀛?娈垫?跺?浣?浜?2涓?(瀹㈡?风??枫???堕??锛???涓哄?ㄤ?????搴??惰??ㄥ?板??浠???寤鸿??浠??????版??搴??舵??濂介?藉??涓?杩?2椤癸?涓?浼?娌＄?ㄧ????姝ゅ?锛??ㄤ?瀛?琛ㄦ??CCESS浼?璇㈤??????缓绔?涓?涓?浣??抽??瀛?锛???浠?涓???瑕?瀹???浠ヤ?蹇?寤虹????杩???锛??堕?村??娈电??"榛?璁ゅ??璁炬??"now()"锛??冲?荤郴缁?褰??剁???堕?淬?????跺?绱㈠?椤硅?炬??"??(??璁搁??澶?)"锛???涔?锛?WEB涓????????藉???跺?????版??锛???浠ュ??璁搁??澶?锛?绱㈠?璁炬??"??"??浠ュ??蹇???搴???搴???===>??????

锛?2锛?寤虹????浜よ〃??add.htm锛?

婧?浠ｇ??濡?涓?锛?

<html>

<head>

</head>

<tr>

</td>

</td>

</tr>

<tr>

</td>

</td>

</tr>

<tr>

</td>

</td>

</tr>

<tr>

</td>

</td>

</tr>

<tr>

</td>

</td>

</tr>

</table>

</div>

</form>

</body>

</html>

杩?涓???????HTML娌℃??浠讳??哄??锛??抽???ㄥ??宸茬??ㄧ孩?叉??璁颁?????浜ゆ?规???OST锛???浜ゅ??澶?????绋?搴???adddatabase.asp锛?涓?涓?姝ュ氨???硅?ㄨ?哄??锛???

锛?3锛??抽???ㄥ??锛?寤虹??涓??版??搴?????绯诲苟灏?琛ㄥ??涓??堕???扮??淇℃??娣诲????CCESS?版??搴?涓???

ASP浠ｇ???惧?ㄣ??%??%>涔??淬??

adddatabase.asp绋?搴???瀹?

CompanyName =Request("CompanyName")

CName =Request("CName")

City =Request("City")

Tel = Request("Tel")

??? 浠ヤ?锛?棣?????寰?琛ㄥ??涓?濉??????版??锛?浣跨??SP??Request瀵硅薄??甯稿?规????浠ュ???版?版?????堕??????寮??蜂腑??灏辨??涓?涓???浠朵腑寤虹??????涓?杈??ユ?涓?????瀛?绾㈣?查?ㄥ??锛?NAME=锛?????浠ヤ???涓烘??涓?杈??ユ?璧峰??瀛???涓?濂戒???锛?灏界?℃???跺??骞朵?涓?瀹??ㄥ??般??杩??峰??寰????版??灏变?瀛??ㄧ???峰??渚х??????涓?浜???

If CompanyName ="" Or CName = "" Or City = "" Or Tel ="" Then

Response.Write"<html><body><center><font size=5>璇峰?璧???濉???瀹??淬??</font></center></body></html>"

'Response.Redirect"error.htm"

Response.End

End If

杩?????妫?娴???涓?椤圭????????ヤ?涓?瑗匡?濡???涓虹┖??涓?寰?涓?缁х画?ц?锛??剧ず??璇?淇℃????娉ㄦ??锛?浣???浠ヤ娇?ㄤ袱绉??规??????藉???轰???

?规?涓?锛?浣跨??esponse.Write?规???涓?涓??洪??椤甸???绫讳技浜?java scripts??document.write??娉?锛?????ASP浣跨??esponse.write缃????

?规?浜?锛?浣跨??esponse.Redirect?规?瀵煎???洪??椤甸??rror.htm?????ㄦ?规?涓???浠ｇ??????涓???寮??疯〃绀烘敞????锛?'ASP涓?琛ㄧず娉ㄩ???ㄥ??寮???锛???

setdbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")

DBPath =Server.MapPath("customer.mdb")

dbconnection.Open"driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

绋?搴?瑙ｉ??:

锛?1锛?寤虹??Connection瀵硅薄锛?dbconnection锛?寤虹??涓?涓?杩???Connection)???版??搴?瀛?????寮?濮?????浠?浣跨??SP????寤哄?硅薄?规?Server.Createobject寤虹??涓??版??搴???杩??ャ??ADODB??ASP???版??搴?瀛???缁?浠讹?涓?蹇???蹇???瑕???ASP灏辨??瀹?浜?锛?????缃?????

锛?2锛?浣跨??bconnection.open?规???寮??版??搴?customer.mdb??driver???拌??娉?锛? driver={Microsoft Access Driver (*.mdb)}蹇?椤昏?涔???????璇?绯荤?浣跨??CCESS ODBC椹卞?ㄥ?????dbq???扮?ㄦ?ユ??瀹???寮????版??搴???浠讹?瀹?蹇?椤绘??瀹??寸??璺?寰???渚?濡?"c:\inetpub\wwwroot\customer\customer.mdb"锛???浠?浣跨??erver.MapPath???规???寰??版??搴???瀹??磋矾寰?????

Set rs =Server.CreateObject("ADODB.Recordset")

寤虹??Recordset瀵硅薄rs??Connection浠?浠???寤虹??浜?涓??版??搴??寸??杩??ワ?瑕?瀛????版??杩?搴?璇ュ??寤虹??Recordset瀵硅薄??

rs.Open "瀹㈡??, dbconnection,adOpenDynamic, 3

??寮??版??搴?涓???琛?瀹㈡??锛?瀹㈡?锋??琛ㄥ??锛??? 璇?娉?锛?

rs.open ?版??琛ㄥ????SQL??浠わ?宸茬?寤虹????Connection瀵硅薄锛?杩?????dbconnection锛?, ??瀹?绫诲??

rs.AddNew

rs("???稿??绉?) =CompanyName

rs("??缁?浜哄???") = CName

rs("???ㄥ??甯?") = City

rs("?佃???风??") = Tel

rs.Update

??ddNew???版??搴?璇锋?娣诲???版??????????pdate???ャ??娉ㄦ??锛?绛??峰?充晶??????淇?瀛?????equest??寰???琛ㄥ???版??????寮??峰????灏辨???版??搴???瀛?娈碉?搴?璇ヤ??版??搴???涓??村????????浼??洪??????杩??峰?????????版??灏卞???ヤ??版??搴?瀵瑰???瀛?娈靛??浜???

Response.Write"<html><body><center><font size=5>绁?璐猴??ㄧ???版??宸茬?娣诲??杩??版??搴?浜?锛?<p>"

Response.Write"<a href='viewdatabase.asp'>?ョ???版??</a>"

Response.Write"</font></center></body></html>"

'???ユ???????剧ず绁?璐轰俊??骞跺缓绔??ョ???版??搴?璁板???杩??ャ??

锛?4锛??剧ず/?ョ???版??搴?璁板?锛?

setdbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")

DBPath =Server.MapPath("customer.mdb")

dbconnection.Open"driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

'寤虹??涓??版??搴???杩??ワ?涓?涓?????

SQL="select * from 瀹㈡??Order By ?堕??DESC"

SETCustomerList=dbconnection.EXECUTE(SQL)

????寤虹??SQL?ヨ?㈣???ワ?琛ㄧず浠?"瀹㈡??琛ㄤ腑?ヨ?㈡????璁板?锛?Order By ?堕??DESC琛ㄧず"???堕?撮??搴???搴?锛?"杩??锋????娣诲????淇℃??????涓??㈡?剧ず??涓?????ユ?ц?SQL?ヨ?㈠苟灏?缁???杩???缁?Recordset瀵硅薄CustomerList??

<html>

<body>

<FONTSIZE="5"><center>?版??搴?璁板?</center></FONT>

<TABLE 妫?娴?璁板??????颁?????涓??°??EOF琛ㄧずEnd of File??

<TR>

</TR>

<%=CustomerList("瀹㈡?风???) %>??浠ヨ?存??Response.Write?规???绠?????灏?"瀹㈡?风???瀛?娈靛?????版??????D??绛鹃?淬??

CustomerList.movenext

loop

濡???杩?娌℃???版????涓??″??????绉诲?ㄥ?颁?涓??°????o While ... Loop寰?????涓???寰???????璁板???

</TABLE>

</CENTER>

<inputtype="button" 慰nclick="java script:location.href='add.htm'"value="娣诲???版??">

</center>

</BODY>

</HTML>

RS.OPEN SQL,CONN,A,B

ADOPENFORWARDONLY(=0)

??璇?涓?褰????版??璁板????藉??涓?绉诲??

ADOPENKEYSET(=1)

??璇?褰????版??璁板??????辩Щ??

ADOPENDYNAMIC(=2)

??璇诲??,褰????版??璁板??????辩Щ??

ADOPENSTATIC(=3)

??璇诲??,褰????版??璁板??????辩Щ???????版?板?璁板?

ADLOCKREADONLY(=1)

缂虹????瀹?绫诲??锛?璁板???????璇荤??锛?涓??戒慨?硅?板?

ADLOCKPESSIMISTIC(=2)

?茶???瀹?锛?褰?淇??硅?板??讹??版????渚???灏?灏?璇???瀹?璁板?浠ョ‘淇??????扮?杈?璁板?????瑕?缂?杈?涓?寮?濮?锛???绔??抽??浣?璁板???

ADLOCKOPTIMISTIC(=3)

涔?瑙???瀹? 锛??村?扮??pdate?规???浜ゆ?存?拌?板??舵????瀹?璁板???

ADLOCKBATCHOPTIMISTIC(=4)

?归??涔?瑙???瀹?锛???璁镐慨?瑰?涓?璁板?锛?????璋???pdateBatch?规???????瀹?璁板???

褰?涓???瑕??瑰?ㄤ换浣?璁板??讹?搴?璇ヤ娇?ㄥ??璇荤??璁板???锛?杩??锋??渚???涓??ㄥ??浠讳?妫?娴???

瀵逛?涓?????浣跨???涔?瑙?????瀹????芥????濂界?????╋???涓鸿?板???琚???瀹?涓?灏?娈垫?堕?达?

?版???ㄨ?娈垫?堕?磋??存?般??杩???灏?浜?璧?婧???浣跨?ㄣ??

===========================================================

?版??搴?杩??ワ?

set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("?版??搴???")

??寮??版??搴?锛?

exec="select * from ?版??搴?琛?

setrs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1

????锛?1涓鸿?诲??

璇诲????瀹规?煎?锛?<%=rs("瀛?娈?)%>

娣诲??璁板?澶???绋?搴?锛?

setconn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("?版??搴???")

name=request.form("瀛?娈?)?name,tel,message涓烘??浜よ〃????璁剧疆??瀛?娈靛??

tel=request.form("瀛?娈?)

message=request.form("瀛?娈?)

exec="insert into 琛ㄥ??(瀛?娈?values('"+瀛?娈?"')"澶?涓??ㄩ???烽??寮?

conn.execute exec?浣跨??xecute??浜?

conn.close

set conn=nothing

??绱㈠???绋?搴?:

name=request.form("瀛?娈?) name,tel涓烘??浜よ〃????璁剧疆??瀛?娈靛??

tel=request.form("瀛?娈?)

setconn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("?版??搴???")

exec="select * from 琛?where name='"+瀛?娈?"' and tel="+瀛?娈?

setrs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1

'椤甸?㈡??绱㈠?扮????瀹瑰?煎?烘??

do while not rs.eof

%><tr>

</tr>

rs.movenext

loop

???よ?板?澶???绋?搴?:

setconn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("?版??搴???")

exec="delete * from 琛ㄥ?? where 缂???"&request.form("id")

conn.execute exec

淇??硅?板?澶???绋?搴?:

setconn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("?版??搴???")

exec="select * from 琛ㄥ?? where 缂???"&request.form("id")

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,1,3?'1,3涓轰慨?规????

rs("name")=request.form("瀛?娈?)?'name,tel,message涓烘??浜よ〃????璁剧疆??瀛?娈靛??

rs("tel")=request.form("瀛?娈?)

rs("message")=request.form("瀛?娈?)

rs.update

rs.close

set rs=nothing

conn.close

set conn=nothing

淇??硅?板??ц?绋?搴?:杈???D?烽〉??gt;>>瀵煎?虹?稿?瑰?ID?版??>>>>>>?存?ヤ慨?圭??澶???绋?搴?

???扮?婚??澶???绋?搴?渚?瀛?:

dim name,password

name=request.form("name")

password=request.form("password")

dim exec,conn,rs

exec="select *from 琛ㄥ?? where(name='"&瀛?娈?amp;"' and password='"&瀛?娈?amp;"')"

setconn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("?版??搴???")

setrs=server.createobject("adodb.recordset")

rs.open exec,conn

if not rs.eof then

rs.Close

conn.Close

session("checked")="yes"

session("check")="right"

response.Redirect "index.asp"

else

session("checked")="no"

session("check")="wrong"

response.Redirect "login.asp"

end if

姣?涓????伴〉?㈠??涓?:

<%if notsession("checked")="yes" then 'session???㈠??涔?涓?涓?checked瀛?绗?覆????

response.Redirect "login.asp"?

else

??绡???绔??ユ?浜? 榛?瀹㈠?哄???ㄧ????澶х??涓???榛?瀹㈢?? ?????炬?ワ?http://www.hackbase.com/tech/2009-11-11/57879.html

用ASP连接读写ACCESS数据库实例（转）

继续阅读

set define off关闭替代变量功能

报错：'mysql' 不是内部或外部命令，也不是可运行的程序或批处理文件。

Linxu常用命令技巧汇总

ERROR 1 (HY000): Can't create/write to file '/tmp/#sql_4188_1.MYI' (Errcode: 28)

艰难安装LDAP,SSL认证

《Linux命令行与Shell脚本编程大全第2版.布卢姆》pdf

MySQL的4种隔离级别？出现问题

XX系统实施过程问题总结

无组件上传图片到数据库中，最完整解决方案

【MySQL数据库】数据库索引事务1.索引2.事务

neo4j之cypher使用文档

NOSQL安全攻击

mybatis_入门程序Mybatis入门

GridView终极用法(一)

登录plsql 报错 the account is locked --用户被锁

SequoiaDB巨杉数据库C++驱动概述