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的用法）
谢谢。