Tutorial para Instalar un foro ASPBB 0.5 en un servidor gratuito

Este tutorial tiene como fin el ayudar al usuario en la instalación de un foro ASPBB en un servidor gratuito. Los foros ASPBB son sistemas de foros prefabricados programados con el lenguaje ASP (Active Server Pages). Su funcionamiento es similar a otros sistemas como el PHPBB, PunBB, MiniBB o SMF, sólo que estos son programados en PHP.

Los foros ASPBB son mis favoritos pues con conocimientos medios en Visual Basic Script podemos configurar los scripts del foro a nuestro gusto, no estoy seguro si el ASPBB es codigo libre, pero para este tutorial, me he permitido configurar el codigo de algunos archivos para que funcione a la perfección.

Para este tutorial no necesitamos ningún software especial además de un navegador, conexion a internet y el sistema de foros ASPBB.


El alojamiento gratuito que vamos a emplear es el de Somee, para ello vamos a la siguiente dirección: http://www.somee.com/FreePackage.aspx

Abrimos una cuenta y esperamos las cuatro horas que dura la activación.

Mientras, vamos a descargar el sistema de foros ASPBB: http://forum.aspbb.org/download.asp?item=148

Lo guardamos en nuestra pc, no tenemos que hacer nada extraño con ese archivo.

Un vez que han pasado las cuatro horas de activación, (podemos emplearlas sabiamente para aprender algo de ASP) vamos a http://www.net2ftp.com e ingresamos los datos de nuestra cuenta ftp en somee. El sistema de Net2ftp nos tendrá en el root, debe de haber un archivo llamado default.asp o index.asp, borrenlo con total seguridad, el sistema de somee puso ese archivo ahí para decir que la cuenta aun no ha sido activada, pero pasadas las cuatro horas, queda inservible.

vamos donde dice upload (no java upload ni flash upload) y ponemos donde dice: Archives zip, tar, tgz, gz, presionamos examinar y buscamos el archivo aspbb_version05.zip que nos bajamos antes.

Esperamos a que lo suba del todo (no recargues la página) espera con paciencia.

Una vez que lo tengas en el server viene lo bueno.

Vamos al archivo config.asp, tendrá el siguiente codigo:


<%
Option Explicit
On Error Resume Next

Dim strTable, strAlign,strNewMail, intPmCount

'#################################################
'# Database options #
'#################################################
const db_type = 1 ' 1 = MySQL, 2 = Access
const db_Server = "localhost" ' MySQL
const db_Password = "" ' Not required for Access
const db_Username = "" ' Not required for Access
const db_Database = "" ' MySQL
const db_path = "db/aspbb.mdb" ' Only if running Access
const path = "/" 'The path to where you have the forum installed

'#################################################
'# Email settings #
'#################################################
const strEmailComponent = "CDOSYS" '//Choose from w3JMail, CDONTS or CDOSYS
const strSMTPserver = "localhost"
const strSenderName = "ASPBB Active Server Pages Bulletin Board"
const strReplyAdress = "noreply@aspbb.org"
const strEmailUserName =""
const strEmailPassword = ""

'#################################################
'# Upload settings #
'#################################################
const strComponent = "aspsmartupload" '//Choose from fso, aspupload or aspsmartupload
const avatarsize =50000
const attatchmentsize = 1200000

'#################################################
'# Customize forum settings #
'#################################################
const strForumName = "ASPBB"
const strForumAddress = "http://forum.aspbb.org/" '// End with a /

const blnShowActive = true '// Show active users plugin
const blnShowStats = true '// Show status plugin
const blnGenerateRSS = true '// Activate RSS plugin
const blnShowLatest = true '// Shall we show latest threads
const intTopicsPerPage = 15 '// How many topics to display per page as default
const intReplyPerPage = 15 '// How many replys to display per page as default
const intDisplayThreads = 5 '// For show latest threads
const blnCatGap = true '// Empty row between categories
const blnThirdColor = true '// Activate apbbcolor3 for css mouseover effect

const defaultLang = "english" '// Name of language file without trailing .lang
const requireactivation = true '// Users must confirm the registration by clicking link in email
const blnAntiBump = true '/// Regular users cant make 2 post after eachother in the same thread.
const defaultUserTitle = "Member"
const avatar_width = "60"
const avatar_height = "60"
const servertimezone = 1 '//Based on GMT
const blnDebug = true '//Show helpful forum and client settings in error catcher

'#################################################
'# Database connection strings #
'#################################################
Dim objDAL
Set objDAL = new DAL
if db_type = 1 Then
objDAL.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};server="&db_Server&";uid="&db_Username&";pwd="&db_Password&";database="&db_Database&""
Elseif db_type = 2 Then
objDAL.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(db_path) &";User Id="& db_Username &";Password="& db_Password &";"
End if
objDAL.Connect

%>
<!-- #include file="includes/dal.asp" -->
<!-- #include file="includes/languageParser.asp" -->
<!-- #include file="includes/inc_globalfunctions.asp" -->
<!-- #include file="includes/includeasp.asp" -->
<!-- #include file="includes/inc_sha256.asp" -->


En nuestro caso vamos a usar la base de datos access que viene incorporada con el foro, por lo tanto en


const db_type = 1 ' 1 = MySQL, 2 = Access


deberá estar:


const db_type = 2 ' 1 = MySQL, 2 = Access


Más abajo, como el servidor gratuito no suministra servicio de servidor SMTP, he encontrado una forma de usar el SMTP de Gmail, www.gmail.com por lo tanto deberemos tener una cuenta con pop activado. Para lograr esto debemos modificar:


const strEmailComponent = "CDOSYS" '//Choose from w3JMail, CDONTS or CDOSYS
const strSMTPserver = "localhost"
const strSenderName = "ASPBB Active Server Pages Bulletin Board"
const strReplyAdress = "noreply@aspbb.org"
const strEmailUserName =""
const strEmailPassword = ""


por este otro:


const strEmailComponent = "CDOSYS" '//Choose from w3JMail, CDONTS or CDOSYS
const strSMTPserver = "smtp.gmail.com"
const strSenderName = "El nombre de tu sitio web o foro"
const strReplyAdress = "minombre@gmail.com"
const strEmailUserName ="minombre@gmail.com"
const strEmailPassword = "123456789"


Y para terminar, vamos a modificar las propiedades de subida de archivos, como avatares, archivos adjuntos y similares.

Para esto modificamos:


const strComponent = "aspsmartupload" '//Choose from fso, aspupload or aspsmartupload


por:


const strComponent = "fso" '//Choose from fso, aspupload or aspsmartupload


Una vez esto, guardamos el archivo y vamos a otra pestaña del navegador y tecleamos: www.tusitio.somee.com donde tu sitio será el nomrbe que hayas registrado anteriormente.

Pues ahora se ve un foro en blanco, si es así vamos bien, sino, si aparece algun mensaje de error o no se visualiza bien, has cometido un error y debes rectificar pasos, lo mejor es borrar todo el foro y volverlo a instalar, eso es lo bueno del ASP.

Si logras ver el foro en blanco, o sea, sin ningun subforo o tema dentro de él, pero tiene una "apariencia" de foro, entonces vamos al siguiente paso:

Ya hemos logrado visualizar el foro online, está completamente vacío pero el funcionamiento es correcto.

Lo que haremos a continuación, será permitir al foro el envio de mails, esto es de suma importancia, pues cada vez que un usuario nuevo se registre, se inscriba a un tema, o simplemente haya olvidado su contraseña y la necesite de vuelta, este paso nos permitirá hacerlo sin problemas.

Vamos a la carpeta includes y buscamos el archivo inc_sendmail.asp y lo abrimos para editar.

El codigo original del archivo inc_sendmail.asp es éste:


<%

Function aspbbEmail(from, fromname, toadress, toname, subject, body)
Dim objMail, objConfig

Select Case lcase(strEmailComponent)
case "w3jmail"
set objMail = Server.CreateOBject( "JMail.Message" )

With objMail
.Logging = true
.silent = true
.From = cstr(from)
.FromName = cstr(fromname)
.AddRecipient cstr(toadress), cstr(toname)
.Subject = cstr(subject)
.Body = cstr(body)
if strEmailUserName <> "" then
.MailServerUserName = strEmailUserName
.MailServerPassword = strEmailPassword
end if
End with

if objMail.Send(strSMTPserver) then
aspbbEmail = true
end if
Set objMail = Nothing

case "cdonts"

Set objMail = Server.CreateObject("CDONTS.NewMail")

with objMail
.To = cstr(toadress)
.From = cstr(from)
.Subject = cstr(subject)
.Body = cstr(body)
.Send
end with

aspbbEmail = true


set objMail = nothing

case "cdosys"
%>

<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->

<%

Set ObjMail = Server.CreateObject("CDO.Message")

Set objConfig = CreateObject("CDO.Configuration")

With objConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = strSMTPserver
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPServerPort) = 25
if strEmailUserName = "" then
.Item(cdoSMTPAuthenticate) = 0
else
.Item(cdoSMTPAuthenticate) = 1
end if
.Item(cdoSendUserName) = strEmailUserName
.Item(cdoSendPassword) = strEmailPassword

.Update
End with

Set objMail.Configuration = objConfig

with objMail
.From = cstr(from)
.To = cstr(toadress)
.Subject = cstr(subject)
.TextBody = cstr(body)
.Send
End with


aspbbEmail = true

set objConfig = Nothing
Set objMail = Nothing

case else

end select
End function
%>


Pero sólo nos vamos a centrar en esta parte:


With objConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = strSMTPserver
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPServerPort) = 25
if strEmailUserName = "" then
.Item(cdoSMTPAuthenticate) = 0
else
.Item(cdoSMTPAuthenticate) = 1
end if
.Item(cdoSendUserName) = strEmailUserName
.Item(cdoSendPassword) = strEmailPassword


Que será el codigo a editar.

En primer lugar vamos a reemplazar algunas líneas:


.Item(cdoSMTPServerPort) = 25


por


.Item(cdoSMTPServerPort) = strSMTPport


y ahora añadiremos al codigo esta parte:


.item(cdoSMTPusessl) = strSMTPssl


al final deberá que dar así:


With objConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = strSMTPserver
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPServerPort) = strSMTPport
.item(cdoSMTPusessl) = strSMTPssl
if strEmailUserName = "" then
.Item(cdoSMTPAuthenticate) = 0
else
.Item(cdoSMTPAuthenticate) = 1
end if
.Item(cdoSendUserName) = strEmailUserName
.Item(cdoSendPassword) = strEmailPassword


Guardamos el archivo y nos toca el ultimo paso:

Ya nos falta un ultimo paso, regresamos al archivo config.asp lo abrimos para editar.

buscamos esta parte del código:


const strEmailComponent = "CDOSYS" '//Choose from w3JMail, CDONTS or CDOSYS
const strSMTPserver = "smtp.gmail.com"
const strSenderName = "El nombre de tu sitio web o foro"
const strReplyAdress = "minombre@gmail.com"
const strEmailUserName ="minombre@gmail.com"
const strEmailPassword = "123456789"


y le añadimos esto:


const strSMTPport = "465" '//Port
const strSMTPssl = "true" '//If the server use SSL, true or false


entonces deberá quedar así:


const strEmailComponent = "CDOSYS" '//Choose from w3JMail, CDONTS or CDOSYS
const strSMTPserver = "smtp.gmail.com"
const strSenderName = "El nombre de tu sitio web o foro"
const strSMTPport = "465" '//Port
const strSMTPssl = "true" '//If the server use SSL, true or false
const strReplyAdress = "minombre@gmail.com"
const strEmailUserName ="minombre@gmail.com"
const strEmailPassword = "123456789"


lo guardamos y listo!!, la parte del envio de mails está resuelta.

EXPLICACIÓN:

Lo que hemos hecho es lo siguiente: El servicio gratuito de somee no provee de servidor SMTP, así que se nos imposibilita el envio de mails desde nuestro foro, pero con las lineas que añadimos, hacemos que gmail se convierta en nuestro smtp y ahora sí disfrutar de todas las características del foro.

Al fin!! tanto trabajo con codigo y se ven los resultados. Ahora podemos entrar a www.tusitio.somee.com/setup.asp e iniciar con el proceso de instalación, con total seguridad ya que las configuraciones que hicimos anteriormente harán posible que nuestra comunidad funciones a la perfección.

Para finalizar, tienes que bajar el archivo http://forum.aspbb.org/download.asp?item=158 que es un xml con la traducción del foro a español, lo subimos a la carpeta languages y borramos los archivos xml que estaban ahí, de esa forma logramos poner el castellano como lengua predeterminada.

volvemos a editar el archivo config.asp pero solo en esta línea:


const defaultLang = "english" '// Name of language file without trailing .lang


por:


const defaultLang = "spanish" '// Name of language file without trailing .lang


guardamos y listo! ya podemos configurar el foro como querramos, crear nuevos subforos, categorías, reglas, lo que se de la gana.