怎样在表单中显示字符串变量的值？(100分)

pegasus1 · 2000-04-07

我用CGI写一个数据库查询程序，但不知怎样在表单中显示查询到的信息，例如：var sss; sss:='acsf'; 怎样把sss的值在表单中显示出来。
请高手们把程序语句写出来。

pegasus1 · 2000-04-07

次表单是HTML中的。

Sachow · 2000-04-07

writeln('<HTML><HEAD>');
writeln('<TITLE>CGI Text</TITLE>');
writeln('</HEAD><BODY>');
writeln('<B>

Sachow · 2000-04-07

(怪事，刚才贴的不见了。)
试试：
program CgiTest1;
{$APPTYPE CONSOLE}
uses SysUtils;

var sss: integer;
begin
sss:=383462;
writeln('<HTML><HEAD>');
writeln('<TITLE>CGI Text</TITLE>');
writeln('</HEAD><BODY>');
writeln('<B>查询结果为：</B>'+IntToStr(sss));
writeln('</BODY></HTML>');
// Insert user code here
end.

Sachow · 2000-04-07

完了！writeln()里面的内空被屏蔽掉了，显示不出来！

Sachow · 2000-04-07

不知这样行不行？
{program CgiTest1;
{$APPTYPE CONSOLE}
uses SysUtils;

var sss: integer;
begin
sss:=383462;
writeln('<HTML><HEAD>');
writeln('<TITLE>CGI Text</TITLE>');
writeln('</HEAD><BODY>');
writeln('<B>查询结果为：</B>'+IntToStr(sss));
writeln('</BODY></HTML>');
// Insert user code here
end.}

Sachow · 2000-04-07

没辙了...

Sachow · 2000-04-07

最后试一次：

Sachow · 2000-04-07

我投降！@_@

爱情鸟 · 2000-05-27

查询过程我就不写了。
输出时用
var sss
sss:=request.query1fields.values['sss']'
writeln('<table><tr><td>')
writeln(inttostr(sss))
writeln('</td></tr></table>')

wjiachun · 2000-09-17

Sachow 的回答如下：

不知这样行不行？
{program CgiTest1;
{$APPTYPE CONSOLE}
uses SysUtils;

var sss: integer;
begin
sss:=383462;
writeln('&lt;HTML>&lt;HEAD>');
writeln('&lt;TITLE>CGI Text&lt;/TITLE>');
writeln('&lt;/HEAD>&lt;BODY>');
writeln('&lt;B>查询结果为：&lt;/B>'+IntToStr(sss));
writeln('&lt;/BODY>&lt;/HTML>');
// Insert user code here
end.}

怎样在表单中显示字符串变量的值？(100分)

pegasus1

Unregistered / Unconfirmed

pegasus1

Unregistered / Unconfirmed

Sachow

Unregistered / Unconfirmed

Sachow

Unregistered / Unconfirmed

Sachow

Unregistered / Unconfirmed

Sachow

Unregistered / Unconfirmed

Sachow

Unregistered / Unconfirmed

Sachow

Unregistered / Unconfirmed

Sachow

Unregistered / Unconfirmed

爱情鸟

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads