Foros del Web - Ver Mensaje Individual

CHuLoSoY · #6 (**permalink**) 08/06/2004, 18:38

escribir.asp
Aquí escribiremos un mensaje y lo enviaremos. Por cierto, hay que crear una carpeta que se llame "caras" y ahí dentro meter los smiles que queramos, yo le he metido 21.

Código:

<%
cookie=request.cookies("cookie")
%><html><head>
<script language="javascript" src="funciones.js"></script>
<script>
function storeCaret(text) { 
if (text.createTextRange) {
text.caretPos = document.selection.createRange().duplicate();
}
}

function meter(text) {
var postopic=document.frmEntrada.mensaje
if (postopic.createTextRange && postopic.caretPos) {      
var caretPos = postopic.caretPos;      
caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?text + ' ' : text;
}
else postopic.value += text;
postopic.focus(caretPos)
}

function codigo(accion)
{
switch(accion)
{
case "bold":
negras = prompt("Texto en Negrita", "");
if(negras)
{
negras=""+negras+"";
meter(negras);
}
break;
case "italics":
italics = prompt("Texto en cursiva", "");
if(italics)
{
italics=""+italics+"";
meter(italics);
}
break;

case "url":
url = prompt("Dirección para enlace (con http://)", "http://");
urltxt = prompt("Texto para mostrar en el enlace",url);
if(url)
{
url=""+url+"[txturl]"+urltxt+"";
meter(url);
}
break;


case "imgurl":
url = prompt("Dirección para enlace (con http://)", "http://www.direccion.com");
img = prompt("Dirección exacta de la imagen","http://www.direccion.com/imagen.gif");
if(url)
{
url=""+url+"[txturl][img]"+img+"[/img]";
meter(url);
}
break;



case "imagen":
imagen = prompt("Dirección exacta de la imagen", "http://");
if(imagen)
{
imagen="[img]"+imagen+"[/img]";
meter(imagen);
}
break;
/*** fin del código de CHuLoYo**/

case "cita":
code="[cita]  [/cita]";
meter(code);
break;
case "subrayado":
subrayado = prompt("Texto subrayado", "");
if(subrayado)
{
subrayado=""+subrayado+"";
meter(subrayado);
}
break;
default:
meter(accion);
break;
}
}


  function textCounter(field, countfield, maxlimit) {
   if (field.value.length > maxlimit)
    field.value = field.value.substring(0, maxlimit);
   else 
    countfield.value = maxlimit - field.value.length;
  }

</script></head>
<body topmargin="10">
<div align="center">
<center><table width="700" border="0" cellspacing="0" cellpadding="4" style="border-left-style: solid; border-left-width: 1"><tr><td width="700" valign="top" bgcolor="#F5F5F5" style="border: 1 solid #C0C0C0"><table border="0" width="689" cellspacing="0" cellpadding="0"><tr><td width="371">
<i><b><font face="Times New Roman" size="5" color="#800000">Escribir</font><br><font color="#0000ff" face="Times New Roman" size="3"><%
      if request.querystring("a")="n" then
          response.write("Iniciar tema")
      else
          response.write("Responder")
      end if%></font>
</b></i></td><center>
<td width="314" valign="bottom"><p align="right"><a href="javascript:adminforo()" class="adminforo">Administración</a> | <a href="foro.asp?id=<%=request.querystring("f")%>" class=adminforo>Inicio</a></td></tr></table><form action="<%
    if request.querystring("a")="n" then
           response.write("nuevomsg.asp?a=n")
    else
    		 response.write("nuevomsg.asp?a=r")
    end if
    %>" name="frmEntrada" method=post><input type="hidden" name="foroid" value="<%=request.querystring("f")%>">
    <input type="hidden" name="msgid" value="<%=request.querystring("id")%>"><table border="0" width="100%" style="background-color: #E4E4E4; border: 1 solid #808080" cellspacing="0" cellpadding="5"><tr><td width="19%"> </td><td width="11%">Nombre: </td>
<td width="70%"><input type="text" name="nombre" size="20" value="<%=cookie%>" style="font-family: Tahoma; font-size: 8pt; background-color: #F5F5F5; border: 1 solid #C0C0C0"></td></tr>
<tr><td width="19%"> </td>
<td width="11%">Asunto: </td><td width="70%"><input type="text" name="asunto" value="<%
        if request.querystring("a")="r" then
        set rst = Server.CreateObject("ADODB.Recordset")
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data source="&Server.MapPath("foros.mdb"))
sql = "Select * from mensajes where id="&request.querystring("id")&""
rst.Open sql,cnn,3,3

asunto=rst("asunto")

rst.close
cnn.close
        response.write("RE: "&asunto)
        
        end if%>" size="50" style="font-family: Tahoma; font-size: 8pt; background-color: #F5F5F5; border: 1 solid #C0C0C0"></td></tr><tr><td width="19%"> </td><td width="11%"> </td>
<td width="70%"><font face="Times New Roman"><a href="javascript:meter('[font times]TEXTO[/font]')">Times New Roman</a></font> - <font face="Verdana"><a href="javascript:meter('[font verdana]TEXTO[/font]')">Verdana</a></font>
          - <font face="Tahoma"><a href="javascript:meter('[font tahoma]TEXTO[/font]')">Tahoma</a></font> - <font face="Courier New"><a href="javascript:meter('[font courier]TEXTO[/font]')">Courier
          New</a></font> / <a href="javascript:meter('[color verde]TEXTO[/color]')"><font color="#008000">Verde</font></a> -
          <a href="javascript:meter('[color rojo]TEXTO[/color]')"><font color="#FF0000"> Rojo</font></a> -
          <a href="javascript:meter('[color azul]TEXTO[/color]')"><font color="#0000FF"> Azul</font></a></td></tr>
<tr><td width="19%" valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="8">
<tr><td width="33%" align="center"><a href="javascript:meter('[1]')"><img border="0" src="caras/1.gif"></a></td><td width="33%" align="center"><a href="javascript:meter('[2]')"><img border="0" src="caras/2.gif"></a></td>
<td width="34%" align="center"><a href="javascript:meter('[3]')"><img border="0" src="caras/3.gif"></a></td>
</tr><tr><td width="33%" align="center"><a href="javascript:meter('[4]')"><img border="0" src="caras/4.gif"></a></td>
              <td width="33%" align="center"><a href="javascript:meter('[5]')"><img border="0" src="caras/5.gif"></a></td>
              <td width="34%" align="center"><a href="javascript:meter('[6]')"><img border="0" src="caras/6.gif"></a></td></tr>
<tr><td width="33%" align="center"><a href="javascript:meter('[7]')"><img border="0" src="caras/7.gif"></a></td>
<td width="33%" align="center"><a href="javascript:meter('[8]')"><img border="0" src="caras/8.gif"></a></td><td width="34%" align="center"><a href="javascript:meter('[9]')"><img border="0" src="caras/9.gif"></a></td>
</tr><tr><td width="33%" align="center"><a href="javascript:meter('[10]')"><img border="0" src="caras/10.gif"></a></td>
<td width="33%" align="center"><a href="javascript:meter('[11]')"><img border="0" src="caras/11.gif"></a></td>
<td width="34%" align="center"><a href="javascript:meter('[12]')"><img border="0" src="caras/12.gif"></a></td></tr><tr><td width="33%" align="center"><a href="javascript:meter('[13]')"><img border="0" src="caras/13.gif"></a></td>
<td width="33%" align="center"><a href="javascript:meter('[14]')"><img border="0" src="caras/14.gif"></a></td><td width="34%" align="center"><a href="javascript:meter('[15]')"><img border="0" src="caras/15.gif"></a></td>
</tr><tr><td width="33%" align="center"><a href="javascript:meter('[16]')"><img border="0" src="caras/16.gif"></a></td><td width="33%" align="center"><a href="javascript:meter('[17]')"><img border="0" src="caras/17.gif"></a></td><td width="34%" align="center"><a href="javascript:meter('[18]')"><img border="0" src="caras/18.gif"></a></td></tr><tr><td width="33%" align="center"><a href="javascript:meter('[19]')"><img border="0" src="caras/19.gif"></a></td>
              <td width="33%" align="center"><a href="javascript:meter('[20]')"><img border="0" src="caras/20.gif"></a></td>
              <td width="34%" align="center"><a href="javascript:meter('[21]')"><img border="0" src="caras/21.gif"></a></td></tr><tr><td width="33%" align="center"></td><td width="33%" align="center"></td><td width="34%" align="center"></td></tr>
<tr><td width="33%" align="center"></td><td width="33%" align="center"></td><td width="34%" align="center"></td></tr>
<tr><td width="33%" align="center"></td><td width="33%" align="center"></td><td width="34%" align="center"></td></tr></table>
 </td><td width="11%" valign="top"> <a href="javascript:codigo('bold')">Negrita</a>
<p><a href="javascript:codigo('italics')">Cursiva</a></p><p><a href="javascript:codigo('subrayado')">Subrayado</a></p><p><a href="javascript:codigo('cita')">Cita</a></p>
<p><a href="javascript:codigo('url')">Enlace</a></p><p><a href="javascript:codigo('imagen')">Imagen</a></p>
<p><a href="javascript:codigo('imgurl')">Enlace con imagen</a> </td><td width="70%"> <textarea rows="20" name="mensaje" onKeyUp="textCounter(this.form.mensaje,this.form.remLen,21000);"  cols="89" style="background-color: #F5F5F5; font-family: Tahoma; font-size: 8pt; border: 1 solid #C0C0C0"></textarea> </td></tr><tr><td width="19%" valign="top"> </td><td width="11%"> </td><td width="70%">Tienes <input readonly type=text name=remLen size=4 maxlength=3 value="21000" style="background-color: #E8E4E8; font-family: Tahoma; font-size: 10pt; border-style: solid; border-color: #DFE3DF"> caracteres en el mensaje.</td></tr><tr>
  <td width="19%" valign="top"> </td><td width="11%"> </td>
  <td width="70%"><input type="submit" value="       E N V I A R       " style="background-color: #F5F5F5; font-family: Tahoma; font-size: 8pt; border: 1 solid #C0C0C0">&nbsp;
<input type="reset" value="       B O R R A R       " style="background-color: #F5F5F5; font-family: Tahoma; font-size: 8pt; border: 1 solid #C0C0C0"></td></tr></table></form></td></tr></table></div>
</body></html>