UC知道遇到一个关于ASP的问题请帮帮忙
来源：百度知道 编辑：UC知道 时间：2024/06/01 12:06:13
<% @LANGUAGE = VBScript %>
<!--#include file="db.inc"-->
<%
Dim StrSQL, rs
StrSQL = "INSERT INTO 通讯录(姓名,年龄) VALUES('莉莉','18')"
Con.Execute StrSQL
%>
<HTML>
<BODY>
<%
Set rs = Con.Execute("Select * From 通讯录")
Do While Not rs.EOF
Response.Write rs("姓名") & " " & rs("年龄") & " " & "<BR>"
rs.MoveNext
Loop
Con.close
Set rs = Nothing
Set Con = Nothing
%>
</BODY>
</HTML>
下面的部分是DB。INC
<%
Option Explicit
Response.Expires = 0
'建立连接。
Dim Con, StrCon
Set Con = Server.CreateObject("ADODB.Connection")
StrCon = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("aa.mdb")
Con.Open StrCon
%>
那位大哥帮帮忙啊为什么测试时候总是显示下面信息呢？？？？？？
<!--#include file="db.inc"-->
<%
Dim StrSQL, rs
StrSQL = "INSERT INTO 通讯录(姓名,年龄) VALUES('莉莉','18')"
Con.Execute StrSQL
%>
<HTML>
<BODY>
<%
Set rs = Con.Execute("Select * From 通讯录")
Do While Not rs.EOF
Response.Write rs("姓名") & " " & rs("年龄") & " " & "<BR>"
rs.MoveNext
Loop
Con.close
Set rs = Nothing
Set Con = Nothing
%>
</BODY>
</HTML>
下面的部分是DB。INC
<%
Option Explicit
Response.Expires = 0
'建立连接。
Dim Con, StrCon
Set Con = Server.CreateObject("ADODB.Connection")
StrCon = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("aa.mdb")
Con.Open StrCon
%>
那位大哥帮帮忙啊为什么测试时候总是显示下面信息呢？？？？？？
StrSQL = "INSERT INTO 通讯录(姓名,年龄) VALUES('莉莉','18')"
上面有问题，因年龄是数字，你赋了字符，当然出错，正确的应是:
StrSQL = "INSERT INTO 通讯录(姓名,年龄) VALUES('莉莉',18)"
错误提示应该是数据库只读了
请检查你的数据文件是不是只读的
如果你用的是NTFS分区，请修改数据库所在文件夹的权限为任何人都能修改