Article View: pl.comp.lang.javascript
Article #70Password script
From: Mariusz G.
Date: Thu, 27 Dec 2001 11:18
Date: Thu, 27 Dec 2001 11:18
73 lines
3126 bytes
3126 bytes
Witam
Mam kmolejny problem. Na stronce umiscilem script ktory dziala na zasadzie
ochrony danych. Wpisujesz Login i pass i laczy sie ze strona pw + login +
pass +.htm
Wszystko spoko dziala. O to ten script:
<script LANGUAGE="JavaScript">
<!--start stealth
//-----------------------------------------
//Login Script writed by SQUAD team in 1999
//-----------------------------------------
function Getstats() {
window.status=('Attempting to Login to user area.')
var AccId;
var iName;
AccId = document.iAccInput.iAccID.value
iName = document.iAccInput.iName.value
// end hiding -->
<!--- Hide from old browsers
if (AccId == "" || iName == "")
{
alert('\nERROR\n\n\nYou must enter ALL Details,\nto enter secret
scene zone.\n');
window.status=('Missing data or Invalid. Check spelling and Ensure
Names are in Correct Case.')
}
else
{
var location=("pw" + iName + AccId + ".htm");
this.location.href = location;
window.status=(' Verifying: ' + iName + '-' + AccId + ' Please
wait........');
}
}
function Verifyacc2() {
window.status=('Please enter your Username and Account ID...');
var oName = prompt("Enter your User Name: \n(Case Sensitive)\n", "")
window.status=(' UserName = ' + oName);
var oAccID = prompt("Enter your account ID: \n(Case Sensitive)\n",
"")
window.status=(' Account ID = ' + oAccID);
if (oAccID == "" || oName == "" || oAccID == "null" || oName ==
"null")
{
alert('\nERROR\n\nYou must enter ALL Details,\nto logon.');
window.status=('Missing data or Invalid. Check spelling
and Ensure Names are in Correct Case.');
}
else {
window.status=(' Verifying: ' + oName + '-' + oAccID + '
Please wait........');
var location=("pw" + oName + oAccID + ".htm");
this.location.href = location.htm;
}
}
//-->
</script>
Tylko mam pytanie. Co w nim zmienic, aby bylo tak:
(przedstawie to w Delphi)
If iName <> 'UserID' Then WebBrowser1.Navigate ('adenied.htm');
Moze ktos mi pomoc?
plz
THX
Technical Details
Message-ID:
<a0f06h$deg$1@news.tpi.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!warszawa.rmf.pl!newsfeed.tpinternet.pl!news.tpi.pl!not-for-mailShow Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!warszawa.rmf.pl!newsfeed.tpinternet.pl!news.tpi.pl!not-for-mail From: "Mariusz G." <cyclops@go2.pl> Newsgroups: pl.comp.lang.javascript Subject: Password script Date: Thu, 27 Dec 2001 12:18:46 +0100 Organization: tp.internet - http://www.tpi.pl/ Lines: 76 Message-ID: <a0f06h$deg$1@news.tpi.pl> NNTP-Posting-Host: users1.rtk.net.pl X-Trace: news.tpi.pl 1009452050 13776 217.97.232.33 (27 Dec 2001 11:20:50 GMT) X-Complaints-To: usenet@tpi.pl NNTP-Posting-Date: Thu, 27 Dec 2001 11:20:50 +0000 (UTC) X-Newsreader: Microsoft Outlook Express 6.00.2600.0000 X-MSMail-Priority: Normal X-Priority: 3 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit