奇怪！！！当提交表单时如何使网页不刷新？

Question

我感觉，不刷新恐怕不可能，返回原来的页面就是了另：我是新手，dephi编的cgi好象不能在其他操作系统使用，有写的价值吗？

Answer 1

楼上的这们，你也真算是新手了，谁说Delphi编译的不能被其他手操作系统使用？
网面提交时，可以让自已网页处理就行了。

Answer 2

to sqsdl(感叹)
确实是新手，不过我用：好象（我编的在本机调试完全通过，放上去却不行，然后别人告诉我的）
帮忙看看吧：在虎翼网，http://andyfing.51.net/cgi-bin/junjie.cgi
当然了只是那个简单的留言本例子啦！
原程序这样，unit Html; interface uses 
Windows, Messages, SysUtils, Classes, HTTPApp; type 
TWebModule1 = class(TWebModule) 
procedure WebModule1WebActionItem1Action(Sender: TObject; 
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); 
procedure WebModule1WebActionItem2Action(Sender: TObject; 
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; var 
WebModule1: TWebModule1; implementation {$R *.DFM} procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject; 
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); 
var html:string; 
begin 
html:=''; 
html:=html+'< html >< head >< title >会员注册< /title >< /head >< center >'; 
html:=html+'< H2 >会员注册< /H2 >< /center >'; 
html:=html+'< body background="" bgcolor="#fffff" >< td >< /td >'; 
html:=html+'< form action="webcgi.exe\Info" method="post" id="form1" name="form1" style="FONT-SIZE: larger" >'; 
html:=html+'< p >姓名:< input size="12" maxlength="10" name="UserName" >< /p >'; 
html:=html+'< p >性别:< input type="radio" name="Sex" value="Man" checked >男'; 
html:=html+'< input type="radio" name="Sex" value="Woman" >女< /p >'; 
html:=html+'< p >年龄:< input size="5" maxlength="3" name="Age" >< /p >' ; 
html:=html+'< p >所在城市:< input size="20" maxlength="16" name="City" >< /p >' ; 
html:=html+'< p >Email:< input size="24" maxlength="30" name="Email" >< /p >'; 
html:=html+'< p >留言:< textarea name="Textarea" rows="5" cols="30" >< /textarea >< /p >'; 
html:=html+'< center >< input type="submit" Name="submit" value=" 提 交 " >'; 
html:=html+'< input type="reset" value=" 取 消" >'; 
html:=html+'< /form >< /center >'; 
html:=html+'< /BODY >< /html >'; 
Response.Content :=html; 
end; procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject; 
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); 
var 
html:string; 
Output: TextFile; 
Counts,line:integer; 
begin Assignfile(Output, 'List.Txt');{如果没有list.txt文件会报错，须先手工创建。} 
Append(output); 
for counts:=0 to Request.ContentFields.Count-2 do 
begin 
if counts< Request.ContentFields.Count-2 then 
begin 
Write(Output, Request.ContentFields.Strings[counts]); 
for line:=0 to 20-length(Request.ContentFields.Strings[counts]) do 
begin 
Write(Output,' '); 
end; 
end 
else 
begin 
Write(Output, Request.ContentFields.Strings[counts]); 
Writeln(Output,' '); 
end ; 
end; 
CloseFile(output); 
html:=''; 
html:=html+'< html >< head >< title >Thank You!< /title >< /head >< body >'; 
html:=html+'< center >< P >< H2 >'+Request.ContentFields.Values['UserName']; 
html:=html+'您好！您已注册成功！< /H2 >< /P >'; 
html:=html+'< A href="http://zhou/scripts/Webcgi.exe" >点击这里返回< /A >'; 
html:=html+'< /center >< /body >< /html >'; 
Response.Content :=html; 
end; end. 

Answer 3

你在创建CGI的时候，用的是什么类型？
有三种选择，你要好好考虑！

Answer 4

哎，老兄呀，要是我自己考虑得出来还是新手吗？不过我试了一下
isapi肯定不行的
win-cgi我编译没错误，不料 在调试时，却 Exception efcreate Error in module files.cgi at 00011bae cannot creat file
而cgi却是我最初使用的。老兄，能帮忙分析一下，以解我之惑好吗？
 

Answer 5

哎，老兄呀，要是我自己考虑得出来还是新手吗？不过我试了一下
isapi肯定不行的
win-cgi我编译没错误，不料 在调试时，却 Exception efcreate Error in module files.cgi at 00011bae cannot creat file
而cgi却是我最初使用的。老兄，能帮忙分析一下，以解我之惑好吗？