مشکل با دستور response

[ravanfar]

سلام
با عرض معذرت از طرح مجدد سوالم در این بخش :oops:
من یک برنامه با دلفی 2005 تحت asp . net با دلفی نوشتم.
در صفحه اول که اجرا میشود(در IIS) یک username و Password از کاربر میگیرد اگر درست باشد وارد صفحه بعد میشود و اگر غلط وارد صفحه ایی میشود که به او میگوید غلط است و دوباره باید سعی کند برای ورود به هر صفحه هم از دستور

Response.redirect('webform3.aspx');
استفاده میکنم فقط بار اول درست جواب داد بارهای بعد (با توجه به اینکه اول اشتباه اطلاعات را وارد کرده باشی یا درست) عیناْ همان نتیجه اول را برمیگرداند
چطور رفع نقص کنم
تشکر روانفر

[Vahid_Nasiri]

کد شما چیست؟ (مشکل از کد است نه این دستور )

[ravanfar]

سلام
آقا خیلی ممنون از جوابتان که خیلی سریع بود
کد من از این قرار است:

unit WebForm3;

interface

uses
System.Collections, System.ComponentModel,
System.Data, System.Drawing, System.Web, System.Web.SessionState,
System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls;

type
TWebForm3 = class(System.Web.UI.Page)
{$REGION 'Designer Managed Code'}
strict private
procedure InitializeComponent;
procedure Button1_Click(sender: System.Object; e: System.EventArgs);
{$ENDREGION}
strict private
procedure Page_Load(sender: System.Object; e: System.EventArgs);
strict protected
TextBox1: System.Web.UI.WebControls.TextBox;
TextBox2: System.Web.UI.WebControls.TextBox;
Button1: System.Web.UI.WebControls.Button;
procedure OnInit(e: EventArgs); override;
private
{ Private Declarations }
public
{ Public Declarations }
end;

implementation

{$REGION 'Designer Managed Code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWebForm3.InitializeComponent;
begin
Include(Self.Button1.Click, Self.Button1_Click);
Include(Self.Load, Self.Page_Load);
end;
{$ENDREGION}

procedure TWebForm3.Page_Load(sender: System.Object; e: System.EventArgs);
begin
// TODO: Put user code to initialize the page here
end;

procedure TWebForm3.OnInit(e: EventArgs);
begin
//
// Required for Designer support
//
InitializeComponent;
inherited OnInit(e);
end;

procedure TWebForm3.Button1_Click(sender: System.Object; e: System.EventArgs);
var
a,b:string;
begin
textbox1.Text:=a;
textbox2.Text:=b;
if (a='ravanfar') and (b='45')
then
begin
response.Redirect('webform2.aspx');
end
else
begin
response.Redirect('webform1.aspx');
end
end;

end.

[Vahid_Nasiri]

فکر کنم کد باید به صورت زیر باشد :wink:


a:=textbox1.Text;
b:=textbox2.Text;

[ravanfar]

سلام
آقا خدا خودت وخانواده ات را شاد پیروز گرداند
:thnx: :thnx: :thnx: :flower: :flower: :flower:

[ravanfar]

سلام
راستی چه فرقی بین کد من و شما بزرگوار وجود داره
ممنون از شما

[Vahid_Nasiri]

شما متغیر بدون مقدار را به خاصیت Text یک TextBox نسبت داده بودید. برعکس آن صحیح است.

[ravanfar]

سلام
دست شما درد نکند افتاد ممنون از راهنماییتان :flower:
روانفر