Does anyone have a copy of... - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

Does anyone have a copy of... - Postet den 01 Jun 2011 (1095 Views)

Webbo

Average Member

Innlegg: 982

982

this....
http://forum.snitz.com/forum/topic.asp?ARCHIVE=true&TOPIC_ID=45241

(Freindly registration mod)

Postet den 22 Aug 2011

Carefree

Advanced Member

Innlegg: 4224

4224

~~Don't have it, but shouldn't be too difficult to reinvent if nobody has a copy.~~ I wrote this, see if it'll do what you want. All you have to do besides the changes to "register.asp" is add a link to the file.
"friendly.asp"

Code:


<%
'###############################################################################
'##
'##				 							Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'##				 							Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modIfy it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.	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 an 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:
'##
'##						Free Software Foundation, Inc.
'##						59 Temple Place, Suite 330
'##						Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'## 						http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'## 						manderson@snitz.com
'##
'###############################################################################
'##
'## Friendly Registration Mod
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp"-->
<!--#INCLUDE FILE="inc_func_member.asp"-->
<!--#INCLUDE FILE="inc_func_secure.asp"-->
<%
If (strDBNTUsername<>"") or (Request.Cookies("forums")("registered")= "yes") Then
	Response.Write	"Registration already completed." & vbNewLine & _
			"			<meta http-equiv=""Refresh"" content=""3; URL=default.asp"">" & vbNewLine
		WriteFooter
		Response.End
End If
If Request.Form("Befriend") = "Resend" Then
	If strProhibitNewMembers <> "1" Then
		strSql = "SELECT M_NAME, M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS_PENDING WHERE M_NAME = '" & Request.Form("UserName") & "'"
		Set rsKey=my_Conn.Execute(strSql)
		If not rsKey.EOF Then
			If lcase(strEmail) = "1" and strEmailVal = "1" Then
				regmail
				Response.Write	"<center>Activation mail resent.</center>" & vbNewLine & _
					"			<meta http-equiv=""Refresh"" content=""3; URL=default.asp"">" & vbNewLine
				WriteFooter
				Response.End
			End If
		End If
	End If
ElseIf Request.Form("Befriend") = "Repeat" Then
	If (Request.Form("UserName")="" or Request.Form("ActKey") = "") Then
		Response.Write	"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>You must provide user name and activation key." & vbNewLine & _
			"  <a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></font></p>" & vbNewLine
		WriteFooter
		Response.End
	End If
	strSql = "SELECT M_NAME, M_KEY FROM " & strMemberTablePrefix & "MEMBERS WHERE M_NAME = '" & Request.Form("UserName") & "' AND M_KEY = '" & Request.Form("ActKey") & "'"
	Set rsKey=my_Conn.Execute(strSql)
	If not rsKey.EOF Then
		Response.Write	"Registration completed." & vbNewLine & _
			"			<meta http-equiv=""Refresh"" content=""3; URL=default.asp"">" & vbNewLine
		WriteFooter
		Response.End
	End If
Else
	Response.Write	"<form name=""Friendly"" action=""friendly.asp"">" & vbNewLine & _
		"	<table bgColor=""" & strPageBGColor & """ align=""center"" width=""70%"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse:collapse;"">" & vbNewLine & _
		"		<tr valign=""middle"">" & vbNewLine & _
		"			<td align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """>" & vbNewLine & _
		"				<table align=""center"" width=""100%"" border=""1"" cellpadding=""3"" cellspacing=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
		"					<tr valign=""middle"">" & vbNewLine & _
		"						<td align=""center"" width=""100%"" colspan=""2"" bgColor=""" & strCategoryCellColor & """>" & vbNewLine & _
		"							<font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize+2 & """ color=""" & strCategoryFontColor & """><b>Account Activation</b>" & vbNewLine & _
		"							</font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr valign=""middle"">" & vbNewLine & _
		"						<td align=""right"" width=""25%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
		"							<font face=""Lucida Console"" size=""" & strForumFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
		"								<input type=""Radio"" name=""Befriend"" value=""Resend"" checked>Resend Activation Mail " & vbNewLine & _
		"							</font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"						<td align=""left"" width=""75%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
		"							<font face=""Lucida Console"" size=""" & strForumFontSize & """ color=""" & strForumFontColor & """> User Name " & vbNewLine & _
		"								<input type=""text"" name=""UserName"" size=""25"" maxlength=""50"">" & vbNewLine & _
		"							</font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr valign=""middle"">" & vbNewLine & _
		"						<td align=""right"" width=""25%"" bgColor=""" & strForumFirstCellColor & """>" & vbNewLine & _
		"							<font face=""Lucida Console"" size=""" & strForumFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
		"								<input type=""Radio"" name=""Befriend"" value=""Repeat"">Submit Activation Info " & vbNewLine & _
		"							</font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"						<td align=""left"" width=""75%"" bgColor=""" & strForumFirstCellColor & """>" & vbNewLine & _
		"							<font face=""Lucida Console"" size=""" & strForumFontSize & """ color=""" & strForumFontColor & """> User Name " & vbNewLine & _
		"								<input type=""text"" name=""UserName"" size=""25"" maxlength=""50"">" & vbNewLine & _
		"							</font>" & vbNewLine & _
		"							<font face=""Lucida Console"" size=""" & strForumFontSize & """ color=""" & strForumFontColor & """>     Activation Key " & vbNewLine & _
		"								<input type=""text"" name=""ActKey"" size=""25"" maxlength=""32"">" & vbNewLine & _
		"							</font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"				</table>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"		<tr height=""60"" valign=""middle"">" & vbNewLine & _
		"			<td align=""center"" width=""100%"" colspan=""2"" bgColor=""" & strPageBGColor & """>" & vbNewLine & _
		"				<style="".button2 {font-family: Verdana, Geneva, sans-serif; font-size: 24px; color: #FFF; padding: 5px 10px 5px 10px; border: 1px solid #999; text-shadow: 0px 1px 1px #000; text-decoration: none; border-radius: 25px; -moz-border-radius: 25px; -webkit-border-radius: 25px; background: #0060df; background: -moz-linear-gradient(-90deg, #9299d0 5%, #6f78c1 15%, #3944a8 35%, #138aef 75%, #78e2ff 100%, #fff); background: -webkit-gradient(linear, left top, left bottom, from(#9299d0), to(#78e2ff), color-stop(0.2, #6f78c1), color-stop(0.5, #3944a8), color-stop(.7, #138aef), color-stop(0.9, #78e2ff)); filter: progid:DXImageTransform.Microsoft.gradient( startColorstr='#3944a8', endColorstr='#78e2ff', GradientType=0 ); cursor: pointer;} .button2:hover {background: -moz-linear-gradient(90deg, #9299d0 5%, #6f78c1 15%, #3944a8 35%, #138aef 75%, #78e2ff 100%, #fff); background: -webkit-gradient(linear, left bottom, left top, from(#9299d0), to(#78e2ff), color-stop(0.2, #6f78c1), color-stop(0.5, #3944a8), color-stop(.7, #138aef), color-stop(0.9, #78e2ff)); filter: progid:DXImageTransform.Microsoft.gradient( startColorstr='#78e2ff', endColorstr='#3944a8', GradientType=0 ); }""></style><input type=""Submit"" class=""button2"" name=""Submit"" value=""Submit"">" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"</form>" & vbNewLine
End If
WriteFooter
%>

"register.asp"

Code:


Look for the following line (appx 178):

			strSql = strSql & ", '" & chkString(rsKey("M_OCCUPATION"),"SQLString") & "'"

Below that, insert these:

			'	##	Friendly Below
			strSql = strSql & ", '" & chkString(rsKey("M_KEY"),"SQLString") & "'"
			'	##	Friendly Above

Look for the following line (appx 138):

			strSql = strSql & ", M_OCCUPATION"

Below that, insert these:

			'	##	Friendly Below
			strSql = strSql & ", M_KEY"
			'	##	Friendly Above

Sist redigert av