Re: Salam , Where roles are saved ? - ASP.NET Discussion Boards

Cfer8310-Apr-07 8:49

10-Apr-07 8:49

I created a dataset with several tables, can I keep this in Cache for the lifetime of the Web Application, do I need a Web Service to do so? Would there be a way to automatically Save the changed or new records in the Cache Object To the Database?

is Cache the only way to keep an object persistent throughout the entire web app and only on the server side?

Can someone point me in the right direction? thanks!

Re: Caching DataSet for lifetime of Webapp

kubben10-Apr-07 9:01

kubben

10-Apr-07 9:01

If this is something that the whole application is going to use that you should probably put it in the Application object. The application object will not expire like the cache will. You can retrieve the dataset from the application object any time you want do whatever you need to do with it and then put it back into the application object.

Hope that helps.
Ben

A question about altering VB Codebehind files

Nostromo7710-Apr-07 8:40

Nostromo77

10-Apr-07 8:40

Hello,

I'm trying to make some minor changes to the validation code of a checkout page in an ASP.NET webapp. The original builder of the site stripped out the VB codebehind files, leaving just the .aspx files, .dll, and so on in the FTP site.

I have recently recieved from the site-builder all of the original source code, so now I don't have to try to decompile it in Reflector. I have dumped the original checkout_main.aspx.vb source file into the FTP site, and it shows up nested behind its respective .aspx page.

I have made the minor changes (just commenting out some validation code so it doesn't function), but the webpage doesn't seem to recognize the changes. "Building" the codebehind page fails, and several errors show up in VS2005: almost every "name" on the codebehind page is "not declared". Does this mean that the source page is referencing some other VB page that is missing, and therefore cannot compile into a new dll? Should I replace each and every sourcecode file into the FTP site before it can recompile with changes?

Thanks for any help. I have copied the code below, with my changes in strikethrough font.

Imports System.Data.SqlClient<br />
Imports System.Web.Mail<br />
<br />
<br />
Namespace petstorewebsite<br />
<br />
Partial Class checkout_main<br />
    Inherits System.Web.UI.Page<br />
    Protected WithEvents loginid As System.Web.UI.WebControls.TextBox<br />
    Protected WithEvents password As System.Web.UI.WebControls.TextBox<br />
    Protected WithEvents password1 As System.Web.UI.WebControls.TextBox<br />
    Protected WithEvents CompareFieldValidator1 As System.Web.UI.WebControls.CompareValidator<br />
    Protected WithEvents hint_q As System.Web.UI.WebControls.DropDownList<br />
    Protected WithEvents Hint_answeer As System.Web.UI.WebControls.TextBox<br />
    Protected WithEvents Salutation As System.Web.UI.WebControls.DropDownList<br />
    Dim myconnection As SqlConnection<br />
    Dim mycommand As SqlCommand<br />
    Dim chk_lib As New main()<br />
    Dim retval As String<br />
    Dim insertstr As String<br />
    Dim b_addr As String<br />
    Dim b_city1 As String<br />
    Dim b_state1 As String<br />
    Dim b_pn As String<br />
    Dim ots As String<br />
#Region " Web Form Designer Generated Code "<br />
<br />
    'This call is required by the Web Form Designer.<br />
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
<br />
    End Sub<br />
<br />
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init<br />
        'CODEGEN: This method call is required by the Web Form Designer<br />
        'Do not modify it using the code editor.<br />
        InitializeComponent()<br />
    End Sub<br />
<br />
#End Region<br />
<br />
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        myconnection = New SqlConnection(ConfigurationSettings.AppSettings("DSN_PET"))<br />
        myconnection.Open()<br />
        Session("login_session") = Session.SessionID<br />
        If Session("user_name") = "" Then<br />
            user_name.Text = "Guest"<br />
            myprofile.Text = "| <a href=index.aspx class=styleclass>Login</a>"<br />
        Else<br />
            user_name.Text = Session("user_name")<br />
            If Session("login") = "Retailer" Then<br />
                myprofile.Text = "| <a href=edit_retailer_info.aspx class=styleclass>My Profile</a> | <a href=logout.aspx class=styleclass>Logout</a>"<br />
            ElseIf Session("login") = "International" Then<br />
                myprofile.Text = "| <a href=edit_interantional_info.aspx class=styleclass>My Profile</a> | <a href=logout.aspx class=styleclass>Logout</a>"<br />
<br />
            End If<br />
        End If<br />
        ' price1.Text = Session("price_pay")<br />
    End Sub<br />
    Private Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Unload<br />
        myconnection.Close()<br />
    End Sub<br />
<br />
    Private Sub submit_ag_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles submit_ag.Click<br />
        'If Trim(loginid.Text) = "" Then<br />
        '    message.Text = "Please Specify  Loginid"<br />
        '    message.Style("color") = "Red"<br />
        '    message.Font.Bold = True<br />
        '    Exit Sub<br />
        'End If<br />
        'If chk_lib.chksearch1(Trim(loginid.Text)) = False Then<br />
        '    message.Text = "loginid length should be 5 characters"<br />
        '    message.Style("color") = "Red"<br />
        '    message.Font.Bold = True<br />
        '    Exit Sub<br />
<br />
        'End If<br />
        'If Trim(password.Text) = "" Then<br />
        '    message.Text = "Please Specify Password"<br />
        '    message.Style("color") = "Red"<br />
        '    message.Font.Bold = True<br />
        '    Exit Sub<br />
        'End If<br />
        'If Trim(password1.Text) = "" Then<br />
        '    message.Text = "Please Re Entre Password"<br />
        '    message.Style("color") = "Red"<br />
        '    message.Font.Bold = True<br />
        '    Exit Sub<br />
        'End If<br />
<br />
        'If Trim(Hint_answeer.Text) = "" Then<br />
        '    message.Text = "Please Specify  Hint Answer"<br />
        '    message.Style("color") = "Red"<br />
        '    message.Font.Bold = True<br />
        '    Exit Sub<br />
        'End If<br />
        If Trim(fname.Text) = "" Then<br />
                message.Text = "Please specify  your name"<br />
            message.Style("color") = "Red"<br />
            message.Font.Bold = True<br />
            Exit Sub<br />
        End If<br />
        Session("fname_12") = fname.Text<br />
        If Trim(address.Text) = "" Then<br />
                message.Text = "Please specify your street address"<br />
            message.Style("color") = "Red"<br />
            message.Font.Bold = True<br />
            Exit Sub<br />
        End If<br />
        Session("address") = address.Text<br />
        If Trim(city.Text) = "" Then<br />
                message.Text = "Please specify your city"<br />
            message.Style("color") = "Red"<br />
            message.Font.Bold = True<br />
            Exit Sub<br />
        End If<br />
        Session("city") = city.Text<br />
        If Trim(pin.Text) = "" Then<br />
                message.Text = "Please specify your zip code"<br />
            message.Style("color") = "Red"<br />
            message.Font.Bold = True<br />
            Exit Sub<br />
        End If<br />
        Session("pin") = pin.Text<br />
        If Trim(phone.Text) = "" Then<br />
                message.Text = "Please specify your phone number"<br />
            message.Style("color") = "Red"<br />
            message.Font.Bold = True<br />
            Exit Sub<br />
        End If<br />
<br />
            If Trim(pin.Text) <> "" Then<br />
                If chk_lib.chknum(Trim(pin.Text)) = False Then<br />
                    message.Text = "Your zip code must be entered as a number (i.e. '01913')"<br />
                    message.Style("color") = "Red"<br />
                    message.Font.Bold = True<br />
                    Exit Sub<br />
                End If<br />
            End If<br />
<br />
            'If Trim(phone.Text) <> "" Then<br />
            'If chk_lib.chknum(Trim(phone.Text)) = False Then<br />
            'message.Text = "Phone must have numeric entry "<br />
            'message.Style("color") = "Red"<br />
            'message.Font.Bold = True<br />
            'Exit Sub<br />
            'End If<br />
            'End If<br />
            'If Trim(Phone_w_b.Text) <> "" Then<br />
            'If chk_lib.chknum(Trim(Phone_w_b.Text)) = False Then<br />
            'message.Text = "Phone must have numeric entry "<br />
            'message.Style("color") = "Red"<br />
            'message.Font.Bold = True<br />
            'Exit Sub<br />
            'End If<br />
            'End If<br />
            'If Trim(cell_no.Text) <> "" Then<br />
            'If chk_lib.chknum(Trim(cell_no.Text)) = False Then<br />
            'message.Text = "Cell No must have numeric entry "<br />
            'message.Style("color") = "Red"<br />
            'message.Font.Bold = True<br />
            'Exit Sub<br />
            'End If<br />
            'End If<br />
<br />
            If term.Checked = False Then<br />
<br />
                message.Text = "It is required that you read and accept our Terms & Conditions"<br />
                message.Style("color") = "Red"<br />
                message.Font.Bold = True<br />
                Exit Sub<br />
            End If<br />
<br />
<br />
            Dim country1 As String = "country"<br />
            Dim state1 As String = Replace(Trim(state.SelectedItem.Text), "'", "''")<br />
            Dim city1 As String = Replace(Trim(city.Text), "'", "''")<br />
            Dim b_country1 As String = "country1"<br />
            If b_state12.SelectedItem.Text <> "" Then<br />
                b_state1 = Replace(Trim(b_state12.SelectedItem.Text), "'", "''")<br />
            Else<br />
                b_state1 = ""<br />
            End If<br />
            If b_city.Text <> "" Then<br />
                b_city1 = Replace(Trim(b_city.Text), "'", "''")<br />
            Else<br />
                b_city1 = ""<br />
            End If<br />
            Dim fnm As String = Replace(Trim(fname.Text), "'", "''")<br />
<br />
            Dim addr As String = Replace(Replace(Trim(address.Text), "'", "''"), vbCrLf, "<br>")<br />
            If b_address.Text <> "" Then<br />
                b_addr = Replace(Replace(Trim(b_address.Text), "'", "''"), vbCrLf, "<br>")<br />
            Else<br />
                b_addr = ""<br />
            End If<br />
            Dim pn As String = Replace(Trim(pin.Text), "'", "''")<br />
            If b_pin.Text <> "" Then<br />
                b_pn = Replace(Trim(b_pin.Text), "'", "''")<br />
            Else<br />
                b_pn = ""<br />
            End If<br />
            Dim tl As String = "t1"<br />
            Dim mob As String = "mob"<br />
            Dim eml As String<br />
            Dim gu As String = "w"<br />
            Dim promotional1 As String<br />
            If promotional.Checked = True Then<br />
                promotional1 = "Y"<br />
            Else<br />
                promotional1 = "N"<br />
            End If<br />
            If Trim(email.Text) = "" Then<br />
                message.Text = "Please Specify Email Address"<br />
                message.Style("color") = "Red"<br />
                message.Font.Bold = True<br />
                Exit Sub<br />
            End If<br />
<br />
<br />
            If chk_lib.chk_email(Trim(email.Text)) = False Then<br />
                message.Text = "Please correct the format of your email address (i.e. 'jane@mailserver.com')"<br />
                message.Style("color") = "Red"<br />
                message.Font.Bold = True<br />
                Exit Sub<br />
            Else<br />
                eml = Replace(Trim(email.Text), "'", "''")<br />
            End If<br />
            Session("email_id_user") = eml<br />
            If state.SelectedItem.Text <> "Select State in the U.S" Then<br />
                ots = ""<br />
<br />
            Else<br />
                If state.SelectedItem.Text = "Select State in the U.S" Then<br />
                    state1 = "Other"<br />
                    ots = Replace(Trim(other_st.Text), "'", "''")<br />
                    Session("other_st") = ots<br />
                End If<br />
            End If<br />
<br />
            'If state.SelectedItem.Text = "Select State in the U.S" Then<br />
            '    If Trim(b_firstname.Text) = "" Then<br />
            '        message.Text = "Please Specify Delivery Addrss Name"<br />
            '        message.Style("color") = "Red"<br />
            '        message.Font.Bold = True<br />
            '        Exit Sub<br />
            '    End If<br />
            '    If Trim(b_lastname.Text) = "" Then<br />
            '        message.Text = "Please Specify Delivery Addrss Last Name"<br />
            '        message.Style("color") = "Red"<br />
            '        message.Font.Bold = True<br />
            '        Exit Sub<br />
            '    End If<br />
            '    If Trim(b_address.Text) = "" Then<br />
            '        message.Text = "Please Specify Delivery Addrss "<br />
            '        message.Style("color") = "Red"<br />
            '        message.Font.Bold = True<br />
            '        Exit Sub<br />
            '    End If<br />
            '    If Trim(b_emailid.Text) = "" Then<br />
            '        message.Text = "Please Specify Delivery Addrss Email Id "<br />
            '        message.Style("color") = "Red"<br />
            '        message.Font.Bold = True<br />
            '        Exit Sub<br />
            '    End If<br />
            '    If Trim(b_phone.Text) = "" Then<br />
            '        message.Text = "Please Specify Delivery Addrss Phone Number "<br />
            '        message.Style("color") = "Red"<br />
            '        message.Font.Bold = True<br />
            '        Exit Sub<br />
            '    End If<br />
            '    If Trim(b_city.Text) = "" Then<br />
            '        message.Text = "Please Specify Delivery Addrss city Name "<br />
            '        message.Style("color") = "Red"<br />
            '        message.Font.Bold = True<br />
            '        Exit Sub<br />
            '    End If<br />
            'End If<br />
            Session("state_belongs") = state.SelectedItem.Text<br />
            Session("country") = Country123.SelectedItem.Text<br />
            Replace(Trim(b_emailid.Text), "'", "''")<br />
            Dim st As Integer = 1<br />
            insertstr = "insert into customer_detail (name,email_id,address,city,state,zip,b_address,b_city,b_state,b_zip,phone_no_home,phone_no_work_bus,mobile_no,status,date_of,amount,payment_status,promotional,lname,country,other_state,b_fname,b_lastname,b_phone,b_email,workorbusiness,session_id) values('"<br />
            insertstr = insertstr & fnm & "','" & eml & "','" & addr & "','" & city1 & "','" & state1 & "','" & pn & "','" & b_addr & "','" & b_city1 & "','" & b_state1 & "','" & b_pn & "','" & phone.Text & "','" & Phone_w_b.Text & "','" & cell_no.Text & "'," & st & ",'" & Now().Date & "','0','0','" & promotional1 & "','" & Replace(Trim(Lname.Text), "'", "''") & "','" & Country123.SelectedItem.Text & "','" & ots & "','" & Replace(Trim(b_firstname.Text), "'", "''") & "','" & Replace(Trim(b_lastname.Text), "'", "''") & "','" & Replace(Trim(b_phone.Text), "'", "''") & "','" & Replace(Trim(b_emailid.Text), "'", "''") & "','0','" & Session("login_session") & "')"<br />
            mycommand = New SqlCommand(insertstr, myconnection)<br />
            mycommand.ExecuteNonQuery()<br />
<br />
            insertstr = "delete from shoppingcarts where date_of< '" & Now().Date.ToShortDateString & " '"<br />
            mycommand = New SqlCommand(insertstr, myconnection)<br />
            mycommand.ExecuteNonQuery()<br />
            ''''''''''''''''''''''''''''''option_of_product_buying<br />
            ' Response.Redirect("creditcard_detail.aspx")<br />
            Response.Redirect("option_of_product_buying.aspx")<br />
        End Sub<br />
<br />
<br />
<br />
End Class<br />
<br />
End Namespace

Re: A question about altering VB Codebehind files

Sathesh Sakthivel10-Apr-07 17:04

Sathesh Sakthivel

10-Apr-07 17:04

When you posted this and you got the warning that your message was very long and you should consider cutting it down, did you actually pay any attention?

I'd love to help, but I'm not going to read through all that. If you have a specific question then we'd love to help.

What error you got tell it here we are here and we will help you in solving your error.

Regards,

Satips.

Re: A question about altering VB Codebehind files

Nostromo7710-Apr-07 20:34

Nostromo77

10-Apr-07 20:34

Hello,

Sorry about that, I don't recall getting a warning (I must have missed it), and I don't see an "edit post" function, so I can't cut out the code. In any case, I suppose I could have left out the code paste altogether, as the problem can just be described:

I'm trying to make some minor changes to the validation code of a checkout page in an ASP.NET webapp. The original builder of the site stripped out the VB codebehind files, leaving just the .aspx files, .dll, and so on in the FTP site.

I have recently recieved from the site-builder all of the original source code, so now I don't have to try to decompile it in Reflector. I have dumped the original checkout_main.aspx.vb source file into the FTP site, and it shows up nested behind its respective .aspx page.

I have made the minor changes (just commenting out some validation code so it doesn't function), but the webpage doesn't seem to recognize the changes. "Building" the codebehind page fails, and several errors show up in VS2005: almost every "name" on the codebehind page is "not declared". Does this mean that the source page is referencing some other VB page that is missing, and therefore cannot compile into a new dll? Should I replace each and every sourcecode file into the FTP site before it can recompile with changes?

That is, the webpage isn't returning an error, it is simply ignoring the changes I make to the codebehind, and the changed codebehind page claims the errors above that prevent recompiling.

Thank you very much

Salam , Where roles are saved ?

Mohammed Amine10-Apr-07 8:28

Mohammed Amine

10-Apr-07 8:28

Salam , iwas wondering , we always say
if "Jhon" Is in role "Admin" then
' Do something Here
End if

but how those roles are stored & where ? i mean when we open the asp.net configuration site when we defione roles , where those roles are stored ?

i hope you understood the question , i just don't know how system knows that somebody has some role how it knows it ? where he can find the list of roles that we have ?

thank you

try to be good if you can't be the best

Re: Salam , Where roles are saved ?

Abolfazl Sheikhloo10-Apr-07 20:11

Abolfazl Sheikhloo

10-Apr-07 20:11

salam duste aziz.
age soalet ro vazeh tar begi mitunam komaket konam

We Can Do Anything, If We Want It

Re: Salam , Where roles are saved ?

MinhajuddinK5-May-07 20:02

MinhajuddinK

5-May-07 20:02

Hi there,

The information about roles, userIDs, Passwords, and profiles is stored in a SQL Database called ASPNETDB.mdf . You can find this DB by clicking on the App_Data folder in your solution explorer. Now where does this DB come from automatically? It's not magic. Whenever you set the authentication mode in the Configuration utility, An ASPNETDB is created and all the information about roles and userIDs etc, is stored in this Database. And whenever you say that this role should do this, it is from this DB the data is fetched.

Hope it helps.

You don't have to be ~~AFRAID!~~

Simple cast error

Sam Heller10-Apr-07 5:04

Sam Heller

10-Apr-07 5:04

The following code produces the following error and I cant for the life of me work out why because it's so simple. I have also tried the vb.net convert method but returns the same error. Drop down list should hand over a simple 3 digit number.

Dim LenderUsed As Int32 = CType(LenderDropDown.SelectedValue, Integer)

Input string was not in a correct format.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.FormatException: Input string was not in a correct format.

Any ideas?

Re: Simple cast error

Sam Heller10-Apr-07 5:08

Sam Heller

10-Apr-07 5:08

Ok ignore this post i have worked it out. The drop down value had one rogue item with "" in it hence why it didn't want to convert to an integer

Re: Simple cast error

badgrs10-Apr-07 5:30

badgrs

10-Apr-07 5:30

Error occured on line 1 of Jon's brain: You are accused of being a spoon.

Please rectify this problem before any more dcon takes place.

WebResource

reza toorani10-Apr-07 4:19

reza toorani

10-Apr-07 4:19

Hi
i want to resource .aspx file in the webclass library project,i added a .aspx file in the project and register it in the AssemblyInfo such as
[assembly: WebResource("SimpleControl.UI.Controls.Button.LookupDialog.aspx", "text/html")]

but i see the page empty every time i am using the web resource.
It is not working when ASPX server tags are being used, but Text seems working fine.

Does anyone know how to resolve this issue?

Best Regards,

Reza

fileuploader control + asp.net 2.0

ritu432110-Apr-07 3:22

ritu4321

10-Apr-07 3:22

can anyone please tell me how to change the font of the browse writton on this control .Actually i am having a button next to it and their font donot match so it looks odd man out on the page. Pls help me out.

Thanks in advance. Cry | :((

Re: fileuploader control + asp.net 2.0

varshavmane10-Apr-07 3:30

varshavmane

10-Apr-07 3:30

Hi ritu,
Try this link:
http://www.quirksmode.org/dom/inputfile.html

Even I had the same problem but it didnt solved if u could then please let me know.

Thanks...

How to write C# code in VB

varshavmane10-Apr-07 3:19

varshavmane

10-Apr-07 3:19

Hi All,

I got some code in C# where they have done some coding in Global.asax.cs file and use this in aspx.cs file

as

protected override void Render(HtmlTextWriter writer)
{
Job newJob = new Job( "A job queued at: " + DateTime.Now, DateTime.Now.AddMinutes(4) );
lock( Global._JobQueue )
{
Global._JobQueue.Add( newJob );
}
writer.WriteLine("Job Queued");
}

but I am using ASP.NET(VB) and since Global is the keyword in VB I am not able to write this code.

Please help...

thanks in advance...

Re: How to write C# code in VB

kubben10-Apr-07 5:36

kubben

10-Apr-07 5:36

You either need to rename your Global varible or fully qualify it with a namespace to avoid issues in vb.net.

Hope that helps.
Ben

Re: How to write C# code in VB

Dave Doknjas10-Apr-07 18:08

Dave Doknjas

10-Apr-07 18:08

(via Instant VB):
Protected Overrides Sub Render(ByVal writer As HtmlTextWriter)
Dim newJob As Job = New Job("A job queued at: " & DateTime.Now, DateTime.Now.AddMinutes(4))
SyncLock [Global]._JobQueue
[Global]._JobQueue.Add(newJob)
End SyncLock
writer.WriteLine("Job Queued")
End Sub

David Anton
www.tangiblesoftwaresolutions.com
Instant C#: VB to C# converter
Instant VB: C# to VB converter
Instant C++: C# to C++ converter, VB to C++ converter
Instant Python: C# to Python converter, VB to Python converter

Re: How to write C# code in VB

varshavmane10-Apr-07 18:19

varshavmane

10-Apr-07 18:19

Thanks for the reply but its not working...It say Global is not declared..Please help...

Maintain value across postbacks ?

digsy_10-Apr-07 2:50

digsy_

10-Apr-07 2:50

I need to store a value on a page (and hide it from the user) and maintain it even when the page is posted back.

I know I can do this by using a label (and setting it to visible = false).

But is the best way of doing it ?

Thanks.

Re: Maintain value across postbacks ?

varshavmane10-Apr-07 3:03

varshavmane

10-Apr-07 3:03

Use ViewState...

Re: Maintain value across postbacks ?

digsy_10-Apr-07 3:11

digsy_

10-Apr-07 3:11

Sorry - my question was more about whether a label is the correct control/method of persisting the value.

Re: Maintain value across postbacks ?

varshavmane10-Apr-07 3:15

varshavmane

10-Apr-07 3:15

How will u maintain the different values??If u want only one value then u can use label...

Re: Maintain value across postbacks ? [modified]

RajeevKumarSharma10-Apr-07 3:09

RajeevKumarSharma

10-Apr-07 3:09

there is a State Management by viewstate .
it's keep the value in the object so when ever we want to get value from viewstate we have to do boxing.
a example for that
suppose you want to save a textbox value

//this is use to save the date
ViewState["name"]=textbox.text;
//this is use to retrive the date;
textbox.text=ViewState["name"].ToString();

another is session
//this is use to save the date
session["name"]=textbox.text;
//this is use to retrive the date;
textbox.text=session["name"].ToString();

I Think this will be helpfull to you.
bye take care.

-- modified at 9:14 Tuesday 10th April, 2007

rajeev kumar sharma
vri software pvt. ltd.
new delhi India

Re: Maintain value across postbacks ?

Harikrk10-Apr-07 3:10

Harikrk

10-Apr-07 3:10

You can use sessions for this

Re: Maintain value across postbacks ?

_mubashir10-Apr-07 3:30

_mubashir

10-Apr-07 3:30

Hi,
Use hidden control...

<input type="hidden" value="1" runat=server>

runat=server will make this available to access at the code behind as well

Mubashir

Every job is a self portrait of the person who did it.

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.