冷光美白好不好:asp问题,帮帮我吧!

来源：百度文库编辑：杭州交通信息网时间：2024/04/28 01:37:17

<%
if len(request.form("txtsql"))=0 then
response.Write("没有任何作用中的SQL指令！！")
else
dim objcommand conn
conn = "provider=microsoft.jet.oledb.4.0;data source=c:\inetpub\wwwroot\testsite\db1.mdb"
set objcommand=server.CreateObject("adodb.command")
conn.open connectionstring
objcommand.activeconnection=conn
objcommand.commandtext=request.form("txtsql")
objcommand.execute
objcommand.activeconnection.close
response.Write("成功执行以下的SQL指令：<br>")
response.Write(request.Form("txtsql")&"<br>")
end if
%>

错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/testsite/ExecuteResult.asp, line 14, column 15
dim objcommand conn
--------------^

哪里错了啊?
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/testsite/ExecuteResult.asp, line 16, column 15
dim objcommand conn
--------------^

dim objcommand conn 明显的语法错误
应该写成dim objcommand,conn 来定义多个变量

改成这样试试：
<%
Dim txtsql
txtsql=request.form("txtsql")
if len(request.form("txtsql"))=0 then
response.Write("没有任何作用中的SQL指令！！")
else
dim objcommand conn
conn = "provider=microsoft.jet.oledb.4.0;data source=c:\inetpub\wwwroot\testsite\db1.mdb"
set objcommand=server.CreateObject("adodb.command")
conn.open connectionstring
objcommand.activeconnection=conn
objcommand.commandtext=request.form("txtsql")
objcommand.execute
objcommand.activeconnection.close
response.Write ("成功执行以下的SQL指令：<br>")
response.Write txtsql&"<br>"
end if
%>

asp问题,帮帮我吧! 关于asp的问题：帮帮我吧。关于asp的问题，帮帮我吧！ ASP高手帮帮我吧！ ????asp大虾帮帮我吧 ?????? ????asp大虾帮帮我吧 ?????? ASP的问题,高手请帮帮我! 高手，请帮帮我,一个ASP问题高手帮帮我吧！困扰了我好久的问题了！ASP ASP出错的问题谁来帮帮我啊