我在用如下语句做了几个链接:
procedure TWebModule1.WebModule1WebActionItem3Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
function tempst:string;
begin
result:='<a href="/practice/table.exe/query/query2?name='+
query1.fieldbyname('name').AsString+'">'+query1.fieldbyname ('name').AsString+
'</a>';
end;
var str:string;
begin
try
query1.Active:=true;
while (not query1.Eof) do
begin
str:=str+'<p>'+tempst+'</p>';
query1.next;
end;
finally
query1.Active:=false;
end;
response.Content:=str;
handled:=true;
end;
上面的链接里的pathinfo是动态的,反复从数据库中取出关键字,形成了一连串的链接.可是我点一个链接后,即将要链接过去的那个Webaction的pathinfo属性怎么设置呀,总设不对,结果链接不过去,就去执行默认的Webaction去了,怎么解决呢?
procedure TWebModule1.WebModule1WebActionItem3Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
function tempst:string;
begin
result:='<a href="/practice/table.exe/query/query2?name='+
query1.fieldbyname('name').AsString+'">'+query1.fieldbyname ('name').AsString+
'</a>';
end;
var str:string;
begin
try
query1.Active:=true;
while (not query1.Eof) do
begin
str:=str+'<p>'+tempst+'</p>';
query1.next;
end;
finally
query1.Active:=false;
end;
response.Content:=str;
handled:=true;
end;
上面的链接里的pathinfo是动态的,反复从数据库中取出关键字,形成了一连串的链接.可是我点一个链接后,即将要链接过去的那个Webaction的pathinfo属性怎么设置呀,总设不对,结果链接不过去,就去执行默认的Webaction去了,怎么解决呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货