28,408
社区成员
发帖
与我相关
我的任务
分享我到底错在什么地方!!!!!
各位老大,我是初学ASP,写了一段代码后IE老说我有错,以下为代码,望各位指教谢谢!!!
<% 'AdoAccess.asp
Option Explicit
Response.Expires = 0
Dim Cnn, StrCnn
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\home\asp\Northwind.mdb"
Cnn.Open StrCnn (IE 老是说这行有错,请指教)
Dim StrSQL, rsTest
StrSQL = "DELETE FROM aa WHERE no = '111'"
Cnn.Execute StrSQL
%>
<HTML>
<BODY>
<%
Set rsTest = Cnn.Execute("Select * From aa")
Do While Not rsTest.EOF
Response.Write rsTest(0) & " " & rsTest(1) & " " & rsTest(2) & " " & "<BR>"
rsTest.MoveNext
Loop
Cnn.close
Set rsTest = Nothing: Set Cnn = Nothing
%>
</BODY>
</HTML>
<% 'AdoAccess.asp
Option Explicit
Response.Expires = 0
Dim Cnn, StrCnn
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\home\asp\Northwind.mdb"
Cnn.Open StrCnn (IE 老是说这行有错,请指教)
Dim StrSQL, rsTest
StrSQL = "DELETE FROM aa WHERE no = '111'"
Cnn.Execute StrSQL
%>
<HTML>
<BODY>
<%
Set rsTest = Cnn.Execute("Select * From aa")
Do While Not rsTest.EOF
Response.Write rsTest(0) & " " & rsTest(1) & " " & rsTest(2) & " " & "<BR>"
rsTest.MoveNext
Loop
Cnn.close
Set rsTest = Nothing: Set Cnn = Nothing
%>
</BODY>
</HTML>
...全文
请发表友善的回复…
发表回复
tripofdream 2001-07-20
- 打赏
- 举报
C:\Inetpub\home\asp\Northwind.mdb是否存在
uhoo 2001-07-20
- 打赏
- 举报
是不是你的地址不对？
sinokid 2001-07-20
- 打赏
- 举报
用这个行吗？
StrCnn.open "driver={microsoft access driver (*.mdb)};dbq=" & Server.mappath("Northwind.mdb")
StrCnn.open "driver={microsoft access driver (*.mdb)};dbq=" & Server.mappath("Northwind.mdb")
jackyliu 2001-07-20
- 打赏
- 举报
大哥我没打开ACCESS
BrentIvan 2001-07-20
- 打赏
- 举报
你的Access要关掉
