提示第16行异常
日期：2014-05-17 浏览次数：20811 次
提示第16行错误
<body>
<form id= "form1 " name= "form1 " method= "post " action= " ">
<%dim i
i=trim(Request.QueryString( "userNUM "))
if i <> " " then
dim Recordset3
Set Recordset3 = Server.CreateObject( "ADODB.Recordset ")
Recordset3.ActiveConnection = MM_conn_STRING //这是第16行
Recordset3.Source = "SELECT * FROM TESTJF where TEST1= "& " ' "&i& " ' "
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()
if Recordset3.eof then
Dim Recordset1
Set Recordset1 = Server.CreateObject( "ADODB.Connection ")
Recordset1.ConnectionString = MM_conn_STRING
Recordset1.Open()
strSQL= "INSERT INTO TESTJF (TEST1)VALUES( ' "&i& " ') "
Recordset1.Execute(strSQL)
Recordset1.Close()
Set Recordset1 = Nothing
response.Write( "您的积分代码是 "&chr(10))
response.Write(i)
else
response.Write( "您的积分代码是 "&chr(10))
response.Write(i)
end if
Recordset3.Close()
Set Recordset3 = Nothing
else
response.Write( "请输入您的ID ")
end if
%>
<input type= "text " name= "textfield " value= " "/>
</form>
</body>
------解决方案--------------------
数据库连接出错了~`看看路径对不对~
------解决方案--------------------
Recordset3.ActiveConnection = MM_conn_STRING 是一个已经打开的Connection对象就对了，看你的代码MM_conn_STRING是个连接的字符串吧，所以就错了
------解决方案--------------------
Recordset3.ActiveConnection =這是應該是一個連接對象,而MM_conn_STRING是一個連接字符串
<body>
<form id= "form1 " name= "form1 " method= "post " action= " ">
<%dim i
i=trim(Request.QueryString( "userNUM "))
if i <> " " then
dim Recordset3
Set Recordset3 = Server.CreateObject( "ADODB.Recordset ")
Recordset3.ActiveConnection = MM_conn_STRING //这是第16行
Recordset3.Source = "SELECT * FROM TESTJF where TEST1= "& " ' "&i& " ' "
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()
if Recordset3.eof then
Dim Recordset1
Set Recordset1 = Server.CreateObject( "ADODB.Connection ")
Recordset1.ConnectionString = MM_conn_STRING
Recordset1.Open()
strSQL= "INSERT INTO TESTJF (TEST1)VALUES( ' "&i& " ') "
Recordset1.Execute(strSQL)
Recordset1.Close()
Set Recordset1 = Nothing
response.Write( "您的积分代码是 "&chr(10))
response.Write(i)
else
response.Write( "您的积分代码是 "&chr(10))
response.Write(i)
end if
Recordset3.Close()
Set Recordset3 = Nothing
else
response.Write( "请输入您的ID ")
end if
%>
<input type= "text " name= "textfield " value= " "/>
</form>
</body>
------解决方案--------------------
数据库连接出错了~`看看路径对不对~
------解决方案--------------------
Recordset3.ActiveConnection = MM_conn_STRING 是一个已经打开的Connection对象就对了，看你的代码MM_conn_STRING是个连接的字符串吧，所以就错了
------解决方案--------------------
Recordset3.ActiveConnection =這是應該是一個連接對象,而MM_conn_STRING是一個連接字符串
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
