Jump to content

.net-Programmers-Help

BillMarkSteve

By BillMarkSteve
in Old Discussions

 Share

Recommended Posts

BillMarkSteve Celebrity

BillMarkSteve

Posted
Posted

This is classic asp code

Please check the below code.

The back button should work same as browser back button.

This is the code which i used but may not work:

'Added below Javascript to history.back code

Page.ClientScript.RegisterStartupScript(Me.GetType(), "Script", "javascript:history.go(-1);", True)


But has to write something in case statement of back button click event...

Right now its redirecting to default.asp only.

The highlighted code for Back Button has to be modified.


===============================================================
<%@ Language=VBScript %>

<%

Option Explicit

Response.Buffer = True

Response.Expires = 0

%>

<!-- #INCLUDE file="../includes/ToolShed.asp" -->

<!-- #INCLUDE file="../includes/MessageBoard.asp" -->

<%

'====================================================================

' Name: Splash.asp

' Description: Intro to site, link to security

'====================================================================

' Created By: CCG

'====================================================================

'Modifications: Date,initials,description. In descending order

'

'====================================================================

'page nav

Select Case lCase(Request.Form("ButtonAction"))

Case "back"

'Commented below redirect code

'Response.Redirect "../Default.asp"

'Added below Javascript to history.back code

Page.ClientScript.RegisterStartupScript(Me.GetType(), "Script", "javascript:history.go(-1);", True)

Case "continue"

Response.Redirect "ProgramSelect.asp"

Case Else

Call DspMainContent()

End Select

Response.End

'-----------------------------------------------------------------

'-----------------------------------------------------------------

'------ Page Element Display Subs --------------------------------

'-----------------------------------------------------------------

'-----------------------------------------------------------------

Sub DspMainContent()

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">

<head>

<title><%= Application("AppTitle") %></title>

<meta name="Child Nutrition Program Entry" http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<link rel="stylesheet" type="text/css" href="../styles/master.css" media="screen, print" />

<script language='JavaScript' type='text/javascript'>

function MasterPage_onLoad() {

document.getElementById('leftcol-splash').style.height=

document.getElementById('rightcol-splash').style.height=

document.getElementById('midcol-splash').offsetHeight+"px";

//loginform.UserName.focus();

}

function ButtonClicked(thisButton){

//get the stand in button object

var fakeButton ;

fakeButton = document.getElementById("ButtonAction");

fakeButton.value = thisButton;

//alert(thisButton+" button has been clicked");

document.form1.submit();

}

</script>

</head>

<body onload="MasterPage_onLoad();">

<div id="maincontent">

<div id="header-login"></div>

<div id='leftcol-splash'>&nbsp;</div>

<div id='midcol-splash'>

<!-- RIGHT COLUMN OF LOGIN PAGE CONTENT -->

<div id="loginRightContainer">

<!-- Message Board -->

<div id="newsbox">

<%

Call LoadHeader()

Call LoadBody()

Call DspBoard()

%>

</div>

<div id="Disabled_Login" style="<%=ShowHideObject(Session("DisableLogin"))%>; text-align: center; color:Red; margin-top:5px; ;">

<b>Login has been disabled</b>

</div>

</div> <!-- close of <div id='loginRightContainer'> -->

<form id='form1' name='form1' action='SingleSignOnLanding.asp' method='post' style='display: inline'>

<%

Response.Write _

"<div class='buttonContainer' id='buttonContainer'>" & vbcrlf

Call tsid_ButtonObject ("BackButton", "< Back", 99, " title=""Click to return to the Previous Screen without changing any information."" onClick=ButtonClicked(""Back"");", "button")

If Not Session("DisableLogin") Then

'Call tsid_ButtonObject ("ContinueButton", "Continue", 99, " class='primaryActionButton' title=""Click to Continue"" onClick=ButtonClicked(""Continue""); ", "button")

Response.Write "<input type=""button"" name=""ContinueButton"" id=""ContinueButton"" value=""Continue"" tabindex=""99"" style=""font-weight: bold; color: White; background-color: Green; margin-top: 25px;"" title=""Click to Continue"" onClick=ButtonClicked(""Continue""); />" & vbcrlf

End If

Call tsid_HiddenData("ButtonAction","")

Response.Write _

"</div>" & vbcrlf

%>

</form> <!-- close of <form id='form1' ...> -->

<div id='midcol-nslplogo'>

<div align="left" class="logo"><img src="../images/cnpexpress-logo-sm-gray.gif" alt="Logo" /></div>

<div align="center" class="copyright">Copyright &copy; <%=Year(Now())%> Colyar Consulting Group</div>

</div>

</div> <!-- close of <div id='midcol-nslp'> -->

<div id='rightcol-splash'>&nbsp;</div>

<div id="footer-login">

&nbsp;

</div>

</div>

</body>

</html>

<%

End Sub

'----------------------------------------------------------

Function ShowHideObject(ShowObject)

If ShowObject Then

ShowHideObject = ""

Else

ShowHideObject = "Display: none;"

End If

End Function

'----------------------------------------------------------

macha Celebrity

macha

Posted
Posted

bhyaa simple aa arr previous page laa cookie create chsii a cookie laa store chesukoniii then response.redirect chyavachuu kadaa?

powerstar02 LEGEND

powerstar02

Posted
Posted

fakeButton tesesi fakeBob ani pettu work ayidhi ...fake must come only with bob lekapothe compile kadhu ...:o

BillMarkSteve Celebrity

BillMarkSteve

Posted
  • Author
Posted

bhyaa simple aa arr previous page laa cookie create chsii a cookie laa store chesukoniii then response.redirect chyavachuu kadaa?

 

sample code vuntey ivvu man...

 

thanks

 Share
Go to topic listing
×
×
  • Create New...