W
wolfwolfgod
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么我点击网页上的查询后，无法返回一个页面，报告http 500 内部服务器错误
我的project1.dll的代码如下procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
mypage:Tstringlist;
begin
mypage:=Tstringlist.Create;
try
with mypage do
begin
add('<HTML>');
ADD('<HEAD><TITLE>GUEST BOOK PAGE</TITLE></HEAD>');
ADD('<BODY>');
ADD('<H2>DELPHI GUEST BOOK DEMO </H2><HR>');
ADD('<H3>HEllo <FONT COLOR="RED">'
+'<FONT>FROM+</h3><p>');
ADD('THANKS FOR VISITING MY HOMEPAGE AND MAKING AN ENRTY INTO MY GUESTBOOK.<P>');
ADD('<HR></BODY>');
ADD('</HTML>');
END;
PAGEPRODUCER1.HTMLDOC:=MYPAGE;
FINALLY
MYPAGE.FREE;
END;
RESPONSE.CONTENT:=PAGEPRODUCER1.CONTENT;
HANDLED:=TRUE;
end;
**********************
表单的代码中action="cgi-bin/project1.dll/entries"
而且project1.dll也已经拷入相应的目录
有谁知道为什么吗，先谢谢了
[
][]
我的project1.dll的代码如下procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
mypage:Tstringlist;
begin
mypage:=Tstringlist.Create;
try
with mypage do
begin
add('<HTML>');
ADD('<HEAD><TITLE>GUEST BOOK PAGE</TITLE></HEAD>');
ADD('<BODY>');
ADD('<H2>DELPHI GUEST BOOK DEMO </H2><HR>');
ADD('<H3>HEllo <FONT COLOR="RED">'
+'<FONT>FROM+</h3><p>');
ADD('THANKS FOR VISITING MY HOMEPAGE AND MAKING AN ENRTY INTO MY GUESTBOOK.<P>');
ADD('<HR></BODY>');
ADD('</HTML>');
END;
PAGEPRODUCER1.HTMLDOC:=MYPAGE;
FINALLY
MYPAGE.FREE;
END;
RESPONSE.CONTENT:=PAGEPRODUCER1.CONTENT;
HANDLED:=TRUE;
end;
**********************
表单的代码中action="cgi-bin/project1.dll/entries"
而且project1.dll也已经拷入相应的目录
有谁知道为什么吗，先谢谢了
[
][]