UC知道遇到个ASP问题
来源：百度知道 编辑：UC知道 时间：2024/05/19 18:16:09
<% @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
%>
那位大哥帮帮忙啊为什么测试时候总是显示下面信息呢？？？？？？？？？？？？？？？？
第六行以上：即
Dim StrSQL, rs
StrSQL = "INSERT INTO 通讯录(姓名,年龄) VALUES('莉莉',18)"
Con.Execute StrSQL 换成：
Dim StrSQL, rs
Set rs = Server.CreateObject("ADODB.Recordset")
StrSQL = "select * from 通讯录"
rs.open StrSQL,Con,1,3
rs("姓名")="莉莉"
rs("年龄")=18
rs.update
你的权限没有
rs.open StrSQL,Con,3,3