| Author |
 Topic  |
|
@tomic
Senior Member
USA
1790 Posts |
 Posted - 25 August 2002 : 14:20:16
|
OK, I see the problem. I have to work on this a bit more to get it working right with inc_header_short.asp. Please bear with me until this is worked out.
@tomic |
SportsBettingAcumen.com |
 |
|
|
skyhawks
Junior Member
USA
125 Posts |
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 25 August 2002 : 15:53:52
|
You know, I was taking a look at this and to make it work like inc_header.asp it would need to be inc_header.asp just without the forum image and login/out form and menu. Is that what you are looking for? What I mean is, do you have a forum below inc_header_short.asp? If so I would just hack out the image and all that or I could even provide such a file with this download. It would look exactly like inc_header_short.asp but would provide a lot of necessary code.
@tomic |
SportsBettingAcumen.com |
|
|
|
skyhawks
Junior Member
USA
125 Posts |
Posted - 25 August 2002 : 16:03:09
|
| yeah.. my login box will be in pages that doesnt have the forum. and if they once logged in.. that box will say welcome back, username... and if they are not the user.. i was them able to press logout.. and the login box will come back again. so what you just said about using inc_header... and not having all the forum images, menu, and the footer.. that is correct. |
----------------------------------------
Website: http://www.johnlophotography.com |
|
|
|
skyhawks
Junior Member
USA
125 Posts |
Posted - 25 August 2002 : 17:55:46
|
@tomic, I did some editing on the inc_header.asp (of ocurse I rename the file, since I had to make so much deleting... (see below code). so far it work.. the only think I noticed is that when I am logging in.. it is using the inc_login.asp to generate the page... and then its login out, it is using the code below to logged out... let me know if I did it correctly.....
instead of naming it as inc_header.asp, i renamed to header.asp.. so this is the file I included on top of the inc_login.asp
<!--#INCLUDE FILE="inc_func_common.asp" -->
<%
'#################################################################################
'## Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
%>
'if strShowTimer = "1" then
' '### start of timer code
' Dim StopWatch(19)
' sub StartTimer(x)
' StopWatch(x) = timer
' end sub
' function StopTimer(x)
' EndTime = Timer
' 'Watch for the midnight wraparound...
' if EndTime < StopWatch(x) then
' EndTime = EndTime + (86400)
' end if
' StopTimer = EndTime - StopWatch(x)
' end function
' StartTimer 1
'### end of timer code
'end if
<%
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
if (strAuthType = "nt") then
call NTauthenticate()
if (ChkAccountReg() = "1") then
call NTUser()
end if
end if
'## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write "<meta name=""copyright"" content=""This Forum code is Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen, Huw Reddick and Richard Kinser, Non-Forum Related code is Copyright (C) " & strCopyright & """>" & vbNewline
'## END - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
strDBNTUserName = Request.Cookies(strUniqueID & "User")("Name")
strDBNTFUserName = trim(chkString(Request.Form("Name"),"SQLString"))
if strDBNTFUserName = "" then strDBNTFUserName = trim(chkString(Request.Form("User"),"SQLString"))
if strAuthType = "nt" then
strDBNTUserName = Session(strCookieURL & "userID")
strDBNTFUserName = Session(strCookieURL & "userID")
end if
select case Request.Form("Method_Type")
case "login"
strEncodedPassword = sha256("" & Request.Form("Password"))
select case chkUser(strDBNTFUserName, strEncodedPassword,-1)
case 1, 2, 3, 4
Call DoCookies(Request.Form("SavePassword"))
strLoginStatus = 1
case else
strLoginStatus = 0
end select
case "logout"
Call ClearCookies()
end select
if trim(strDBNTUserName) <> "" and trim(Request.Cookies(strUniqueID & "User")("Pword")) <> "" then
chkCookie = 1
mLev = cLng(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"),-1))
chkCookie = 0
else
MemberID = -1
mLev = 0
end if
select case Request.Form("Method_Type")
case "login"
if strLoginStatus = 0 then
Response.Write "<p align=""center"">Your username and/or password were incorrect.</p>" & vbNewLine & _
"<p align=""center"">Please either try again or register for an account.</p>" & vbNewLine
else
Response.Write "<p align=""center"">You logged on successfully!</p>" & vbNewLine & _
"<p align=""center"">Thank you for your participation.</p>" & vbNewLine
end if
Response.Write "<meta http-equiv=""Refresh"" content=""1; URL=" & Request.ServerVariables("HTTP_REFERER") & """>" & vbNewLine & _
"<p align=""center""><a href=""" & Request.ServerVariables("HTTP_REFERER") & """>Back To Previous Page</a></p>" & vbNewLine
Response.End
case "logout"
Response.Write"<p align=""center"">You logged out successfully!</p>" & vbNewLine & _
"<p align=""center"">Thank you for your participation.</p>" & vbNewLine & _
"<meta http-equiv=""Refresh"" content=""1; URL=" & Request.ServerVariables("URL") & """>" & vbNewLine & _
"<p align=""center""><a href=""" & Request.ServerVariables("URL") & """>Back To Previous Page</a></p>" & vbNewLine
Response.End
end select
%>
|
----------------------------------------
Website: http://www.johnlophotography.com |
Edited by - skyhawks on 25 August 2002 19:55:21 |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 25 August 2002 : 18:21:20
|
If that's all you kept and you intend to keep forum functionality you are going to have problems. You removed the top HTML for the page, Group Category stuff, the timer, jascript to handle all the popup forms, and it should go without saying that this is kept:
'## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write "<meta name=""copyright"" content=""This Forum code is Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen, Huw Reddick and Richard Kinser, Non-Forum Related code is Copyright (C) " & strCopyright & """>" & vbNewline
'## END - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
@tomic |
SportsBettingAcumen.com |
|
|
|
skyhawks
Junior Member
USA
125 Posts |
Posted - 25 August 2002 : 19:42:35
|
I didnt remove those License agreement in my file... I only took them out for the post, So since you didnt LIKE it... I edited the above post. HAPPY NOW??
the original files is still there.. I didnt touch that. its still being use correctly. I created another file and by renaming it to header.asp... so that i can use it with the login and logout menu.. (inc_login.asp). that login menu. i have no pop up windows. there is no javascript. no font. nothing. i TOOK them all out. |
----------------------------------------
Website: http://www.johnlophotography.com |
Edited by - skyhawks on 25 August 2002 19:59:48 |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 25 August 2002 : 20:53:56
|
Hey whoa, I just wasn't sure how much of the file you posted. I thought it was the entire file. As long as you keep what you need I'm sure it will work fine.
@tomic |
SportsBettingAcumen.com |
|
|
|
auditude
Starting Member
USA
37 Posts |
Posted - 26 August 2002 : 09:25:54
|
Can someone help me with using the right include files with this mod. I am including in_header_short.asp at the top of my code outside of the forum directory. If I don't include config.asp in the code outside the forum, I get this error:
ADODB.Connection.1 error '80020009'
Empty connection string.
/cc/forum/inc_header_short.asp, line 46
which is... my_Conn.Open strConnString, where strConnString is defined in config.asp.
So then if I do include config.asp I get this redefinition error:
Microsoft VBScript compilation error '800a0411'
Name redefined
inc_adovbs.asp, line 14
Const adOpenForwardOnly = 0
------^
|
|
|
|
Therion93
Junior Member
USA
263 Posts |
Posted - 26 August 2002 : 09:32:38
|
Ok I'm a little confused. Will this work WITHOUT inc_header.asp? If NOT, can you provide a version that does? I am attempting to integrate the forums into my site and prefer to use my own menus etc.
Thanks! |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 26 August 2002 : 11:28:53
|
inc_header_short.asp cannot be used as it turns out. inc_header.asp works fine and just needs the menu chopped off if you don't want it there.
@tomic |
SportsBettingAcumen.com |
|
|
|
djoosten
Starting Member
Canada
15 Posts |
Posted - 04 September 2002 : 11:08:10
|
Hello @tomic,
I started by downloading your file, reading the readme (kinda confusing) and trying about everything i know, it seems impossible to put your code into an excisting page.
All i wanna do is have my login page kept the way it was, and add the code so the form works again with the encoded passwords.
After that each ASP page needs to check if user is loggedin and has the level of access to this page, if not they get back to login .. thats all. Can you help me explain what code i need to do that because i know for a fact there is a lot of code i don't even need and i can't get ride of it on your sample page.
Thanks in advance for your help, im kinda stuck with this right now ..
|
|
|
|
djoosten
Starting Member
Canada
15 Posts |
Posted - 05 September 2002 : 09:39:05
|
Yesterday i created my own HTML and put all your variables in it, that worked fine, except that i can't get this part of code to stick on a position on the page, it will always push the other HTML in the page around.
What i think could help a lot of people, and i hope you find time to do this .. is making a txt file with all the little bits you need for the login form, logout, redirect etc so you can add modules as you need em. Right now it's something that takes up to much space and has far to much code not needed. For example only first page (login.asp) should do login, other pages should only check if user logged in, if not redirect to the login.asp page .. right now it's pretty hard to do this .. if we could have a shorter way would be cool.
So last night i downgraded back to the previous version since i can't find a good way to work with the new encryption passwords .. hope you can help @tomic.
Cheers, |
|
|
|
alex042
Average Member
USA
631 Posts |
Posted - 05 September 2002 : 14:41:05
|
It would be nice if the forum had this setup as an include by default instead of including it with the other code.
|
|
|
|
Therion93
Junior Member
USA
263 Posts |
Posted - 05 September 2002 : 15:13:56
|
I definitely agree. It should be a feature rather than an add on...perhaps next version?  |
|
|
|
Topic |
|
Topic Locked
