Ir para conteúdo
Fórum Script Brasil
  • 0

Tabelas

Guest - Leandro -

Perguntado por Guest - Leandro -,

 Share

Pergunta

Guest - Leandro -

Guest - Leandro -

Postado
Postado

Por favor, gostaria de saber de vocês!

...

Eu fiz uma página ASP (por enquanto - só teste), e carrego dentro de uma tabela a mensagem do Banco de dados que digito em outra página (textarea) ...o problema é quando carrega os dados, a "mensagem" no caso ultrapassa o comprimento estabelecido da célula! E issó deixa o designer da página ruim! Não quero que aconteça isso!

Obs.: a mensagem que digito na outra página, por exemplo, é grande e a mesma não teclo enter para quebrar a linha!

Por Favor me ajudem!

Valeu, abraços a todos!

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Guest Visitante

Guest Visitante

Postado
Postado

Como eu disse, é só uma página de teste, por isso o designer não está totalmente pronto!

<%

Dim net, MM_

'cria a conexão

Set net =server.createobject("adodb.connection")

' ///////

MM_="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("comm.mdb")

net.open MM_

%>

<%

Dim rec

rec = Request.QueryString("id")

%>

<%

Dim Rt, jota

Set Rt = Server.CreateObject("ADODB.Recordset")

jota = "Select nome, id, ccment, imagem, mensagem, titulo, email From tab Where id="&rec

Set Rt = net.Execute(jota)

%>

<style type="text/css">

body {

color:#886600;

font-weigth:bold;

position:relative;

}

p {

color:#c66633;

font-decoration:underline;

}

#pp {

color:#c66633;

font-decoration:underline;

}

table {

display:block;

position:relative;

white-space:pre;

}

</style>

<script language="javascript" type="text/javascript">

if(window.location.href.indexOf(0,"id")==-1){

alert("ok")

'window.location.href+="#"

}

</script>

<link href="estilo.css" type=text/css rel=stylesheet>

<body>

<table border="1" align="center">

<tudo>

<table bgcolor="#EEffcc" border="0" align="center">

<tr>

<tudo bgcolor="#EEff00"><b>Nome: </b><%=Rt("nome")%>

</tudo>

</tr>

<tr>

<tudo bgcolor="#EEff99" height="20">

<p>Comentário: </p>

</tudo>

<tr>

<tudo>

<pre><%=Rt("ccment")%></pre>

</tudo>

</tr>

</tr>

<tudo rowspan="0">

<img src="<%=Rt("imagem")%>" />

</tudo>

<tr>

<tudo align="center">

<a href="mensagem.asp?id=<%=rec%>" alt="Adicionar um Comentário">Adicionar um comentário</a></tudo>

</tr>

</table>

</tudo>

<tr>

<tudo>

<table cellpadding="0" cellspacing="0" width="250" align="center">

<TBODY>

<%

Const num_page=3

Dim CurPage

If Request.QueryString("CurPage")="" then

CurPage = 1

Else

CurPage = Request.QueryString("CurPage")

End If

%>

<%

Dim sti, tipo, Rs

tipo = "m"&rec

Set Rs = Server.CreateObject("ADODB.Recordset")

'Set Rs = net.Execute(sti)

Rs.CursorLocation = 2

Rs.CursorType = 1

Rs.LockType = 2

Rs.CacheSize = num_page

sti = "Select id, nome, titulo, data, hora, c_mensagem, m_number, email From Comentarios WHERE m_number="&rec

Rs.open sti, net

if Rs.RecordCount=0 then

Response.Write "...:::::>>>>>^||||^<<<<<<:::::..."

Else

Rs.MoveFirst

End If

Rs.PageSize = num_page

Dim total_page

total_page = Rs.PageCount

if Rs.RecordCount=0 then

Response.Write ""

Else

Rs.AbsolutePage = CurPage

End If

%>

<%

count=0

Do While Not Rs.EOF And count < Rs.PageSize

%>

<tudo colspan="8">

<img src="topo.gif" width="100%" height="25">

</tudo>

<tr>

<tudo colspan="8" align="center" height="25">

<strong><%=Rs("titulo")%></strong>

</tudo>

</tr>

<tr>

<tudo align="center" colspan="2" bgcolor="#a09f9d"><strong>Nome</strong></tudo>

<tudo bgcolor="#557586" id=tab>

<%=Rs("nome")%>

</tudo>

<tudo bgcolor="#655335" >

<font color="#ffffff">

<%=Rs("data")%>

</font>

</tudo>

<tudo> | </tudo>

<tudo bgcolor="#655335" >

<font color="#ffffff">

<%=Rs("hora")%>

</font>

</tudo>

<tr>

<tudo align="left"><strong>.::Excluir::.</strong></tudo>

<tudo border="2" bgcolor="##b4cfec" align="center"><input type="radio" name="id" value="<%=Rs("id")%>" ></tudo>

<tudo><a href="mailto:<%=Rs("email")%>"><i><%=Rs("email")%></i></a></tudo>

</tr>

<tr width="250">

<tudo height="80" colspan="2" align="left" bgcolor="#f4f4f3" valign="top"><b>Comentário</b></tudo>

<tudo valign="top" bgcolor="#ffffff" width="350" height="15">

<font color="#cc5555">

<%

'@@@@@@ O ÚNICO PROBLEMA ESTÁ AQUI! @@@@@@@@@@ QUE NO CASO A LARGURA DA CÉLULA ÀS VEZES FICA MUITO GRANDE E A PÁGINA FICA RUIM DE SER VISUALIZADA (FEIA)

msg = Rs("c_mensagem")

Response.Write msg

'@@@@@@@@@@@@@@@@@@@%>

</font>

</tudo>

</tr>

<div id=borda></div>

<%

count=count+1

Rs.MoveNext

Loop

%>

</TBODY>

</table>

</tudo>

</tr>

</table>

<%

if Rs.RecordCount=0 then

Response.Write "Não há Nenhum Registro!"

Else

Response.Write("Registros: "&Rs.RecordCount&"<br>")

Response.Write("<b>Página: " & CurPage & " de " & total_page & "</b>")

If CurPage > 1 then

Response.Write("<b>")

Response.Write("<a href='pag.asp?id="&rec&"&CurPage=" & CurPage-1 & "' id='link'>")

Response.Write("Anterior")

End If

If CInt(CurPage) <> CInt(total_page) then

Response.Write("<b>")

Response.Write("<a href='pag.asp?id="&rec&"&CurPage=" & CurPage+1 & "' id='link'>")

Response.Write("Próximo")

End If

End If

Set conn = Nothing

Set Rs = Nothing

%>

</body>

DESDE JÁ, AGRADEÇO A COMPREENSÃO!

Link para o comentário
Compartilhar em outros sites
  • 0
fantasma

fantasma

Postado
Postado

<tr width="250">

<tudo height="80" colspan="2" align="left" bgcolor="#f4f4f3" valign="top"><b>Comentário</b></tudo>

<tudo valign="top" bgcolor="#ffffff" width="350" height="15">

<font color="#cc5555">

Response.Write Rs("c_mensagem")

</font>

</tudo>

</tr>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...