myuser.ActiveConnection = MM_king_STRING;说这句有错误,出现HTTP500错误,我用的是DW.怎么改呢?

显示全部楼层 · 2011-2-17 01:36:31

%
var myuser = Server.CreateObject(\\\"ADODB.Recordset\\\");
myuser.ActiveConnection = MM_king_STRING;
myuser.Source = \\\"SELECT * FROM myuser ORDER BY name ASC\\\";
myuser.CursorType = 0;
myuser.CursorLocation = 2;
myuser.LockType = 1;
myuser.Open();
var myuser_numRows = 0;
%

千问 · 2011-2-17 01:36:31

<pre id=\\\"best-answer-content\\\">添加dos单元引用，用exec函数执行cmd命令来运行dos语句：
uses dos;
var
cmd:string;
begin
cmd:=getenv(\\\'comspec\\\'); (*这里是获得cmd命令的位置*)
exec(cmd, \\\'/c @echo offecho ouput 10 number:\\\');
exec(cmd, \\\'/c @echo offfor /L %i in (1,1,10) do echo %i\\\');
end.