小天,我加了那个开关的!我的程序如下:
unit Respones;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp, Psock, NMpop3;
type
TWebModule1 = class(TWebModule)
NMPOP31: TNMPOP3;
procedure WebModule1ResponseAction(Sender: TObject;
Request: TWebRequest;
Response: TWebResponse;
var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModule1ResponseAction(Sender: TObject;
Request: TWebRequest;
Response: TWebResponse;
var Handled: Boolean);
begin
Writeln('<html>');
Writeln('<html><head><meta http-equiv="Content-Type" content="text/html;
charset=gb2312">');
Writeln('<meta http-equiv="Content-Language" content="zh-cn">');
Writeln('<title>用户反馈网页</title>');
writeln('<meta name="GENERATOR" content="Microsoft FrontPage 4.0">');
Writeln('<!--mstheme--><link rel="stylesheet" type="text/css" href="_themes/blueprnt/blue1011-106.css"><meta name="Microsoft Theme" content="blueprnt 1011, default">');
Writeln('<meta name="Microsoft Border" content="tlb, default"></head>');
Writeln('<body><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>');
Writeln('非常感谢您的反馈<br>');
Writeln('<a href=/index.htm>');
Writeln('返回首页</a>');
Writeln('</body></html>');
end;
end.
生成的HTML如下:
<html><head><meta http-equiv="Content-Type" content="text/html;
charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title>用户反馈网页</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<!--mstheme--><link rel="stylesheet" type="text/css" href="_themes/blueprnt/blue1011-106.css"><meta name="Microsoft Theme" content="blueprnt 1011, default">
<meta name="Microsoft Border" content="tlb, default"></head>
<body><!--msnavigation--><table border="0" cellpadding="0" cStatus: 200 OK
Content-Type: text/html
Content:
ellspacing="0" width="100%"><tr><td>
非常感谢您的反馈<br>
<a href=/index.htm>
返回首页</a>
</body></html>
