N
netbug
Unregistered / Unconfirmed
GUEST, unregistred user!
请看:
我的HTML问件:
〈html〉
〈head〉
〈title〉Joe'〈/title〉
〈/head〉
〈body bgcolor="#FFFFFF"〉
〈form action="http://192.1.1.5/intertrant/testpost1.exe" method="POST"〉
〈input type="textd" size="20" name="Name"〉〈/td〉
〈input type="text" size="20" name="Phone"〉〈/td〉
〈input type="submit" name="Bb1" value="Submit"〉
〈/form〉
〈/body〉
〈/html〉
这是我的CGI程序:
program testpost;
{$APPTYPE CONSOLE}
uses
sysutils,
windows;
var
envlen:array [0..100] of char;
datastr:string;
begin
getenvironmentvariable('content_length',envlen,sizeof(envlen));
setlength(datastr,strtointdef(envlen,255));
readln(datastr);
writeln('content-type:text/html');
writeln;
writeln('〈html〉〈head〉〈/head〉〈body〉');
writeln('〈h2〉');
writeln(datastr);
writeln('〈/h2〉');
writeln('〈/body〉〈/html〉');
end.
我用的是NT4.0+IIS+Delphi,我在html文档中输入Name与phone后按submit,
系统提示找到地址并等了很久,最后出现:操作超时,请问:我该如何
做才能读到POST发来的数据?(我只是想测试一下POST的用法)
谢谢。
我的HTML问件:
〈html〉
〈head〉
〈title〉Joe'〈/title〉
〈/head〉
〈body bgcolor="#FFFFFF"〉
〈form action="http://192.1.1.5/intertrant/testpost1.exe" method="POST"〉
〈input type="textd" size="20" name="Name"〉〈/td〉
〈input type="text" size="20" name="Phone"〉〈/td〉
〈input type="submit" name="Bb1" value="Submit"〉
〈/form〉
〈/body〉
〈/html〉
这是我的CGI程序:
program testpost;
{$APPTYPE CONSOLE}
uses
sysutils,
windows;
var
envlen:array [0..100] of char;
datastr:string;
begin
getenvironmentvariable('content_length',envlen,sizeof(envlen));
setlength(datastr,strtointdef(envlen,255));
readln(datastr);
writeln('content-type:text/html');
writeln;
writeln('〈html〉〈head〉〈/head〉〈body〉');
writeln('〈h2〉');
writeln(datastr);
writeln('〈/h2〉');
writeln('〈/body〉〈/html〉');
end.
我用的是NT4.0+IIS+Delphi,我在html文档中输入Name与phone后按submit,
系统提示找到地址并等了很久,最后出现:操作超时,请问:我该如何
做才能读到POST发来的数据?(我只是想测试一下POST的用法)
谢谢。