用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++驅動概述