Código Fonte - O melhor conteúdo para programadores

Autor

Compartilhe e guarde

Enquete

Você acredita que um dia o Firefox será mais utilizado que o IE?

Sim
Não

Determinar o número de colunas de uma tabela

Já disponibilizei um tópico onde a tabela se ajustava à quantidade de campos da tabela do banco de dados.

No código abaixo você determina a quantidade de colunas que a tabela deverá ter.

<HTML>
<HEAD>
<TITLE>..:: Trabalhando com tabelas ::..</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="Wellington Marinheiro">
<BODY>
<%
pag = Split(Request.ServerVariables("SCRIPT_NAME"),"/")
If request.querystring("xy") = "" then%>

	<form name="form" action="<%=pag(UBound(pag))%>?xy=1" method="POST">
	<table width="400" border="1" align="center" style="border-collapse: collapse">
		<TR bgcolor="#C4C4C4">
			<Th>Determinando a quantidade de colunas da tabela</Th>
		<TR>
			<td>Quantidade de colunas da tabela: <input type="text" name="col" size="5" value="30">
		<TR>
			<td>Quantidade de numeros para preencher a tabela:<input type="text" name="quant" size="5"  value="100">
		<TR>
			<TD align=center>
			<INPUT TYPE="submit" value="Exibir tabela">
	</table>
	</form>
<%
Else

	response.write "<A HREF="& pag(UBound(pag)) & ">Nova consulta</A><HR>"
	response.write "Colunas: "  & Int(request.Form("col")) & "<br>"
	response.write "<center><table border='1' style='border-collapse: collapse'><tr bgcolor=#E5E5E5>"
	
	For x=1 To Int(request.Form("col")): response.write "<th>" & x: next

	response.write "<tr>"
	
	For x=1 To Int(request.Form("quant"))
		response.write "<td>" & x
		If (x Mod Int(request.Form("col"))=0) Then response.write "<tr>"
	next

	response.write "</table></center>"
End if
%>

<HTML>
<HEAD>
<TITLE>..:: Trabalhando com tabelas ::..</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="Wellington Marinheiro">
<BODY>
<%
pag = Split(Request.ServerVariables("SCRIPT_NAME"),"/")
If request.querystring("xy") = "" then%>

<form name="form" action="<%=pag(UBound(pag))%>?xy=1" method="POST">
	<table width="400" border="1" align="center" style="border-collapse: collapse">
		<TR bgcolor="#C4C4C4">
			<Th>Determinando a quantidade de colunas da tabela</Th>
		<TR>
			<td>Quantidade de colunas da tabela: <input type="text" name="col" size="5" value="30">
		<TR>
			<td>Quantidade de numeros para preencher a tabela:<input type="text" name="quant" size="5"  value="100">
		<TR>
			<TD align=center>
			<INPUT TYPE="submit" value="Exibir tabela">
	</table>
	</form>
<%
Else

response.write "<A HREF="& pag(UBound(pag)) & ">Nova consulta</A><HR>"
	response.write "Colunas: "  & Int(request.Form("col")) & "<br>"
	response.write "<center><table border='1' style='border-collapse: collapse'><tr bgcolor=#E5E5E5>"
	
	For x=1 To Int(request.Form("col")): response.write "<th>" & x: next

response.write "<tr>"
	
	For x=1 To Int(request.Form("quant"))
		response.write "<td>" & x
		If (x Mod Int(request.Form("col"))=0) Then response.write "<tr>"
	next

response.write "</table></center>"
End if
%>

Este código foi útil para você?

Nota	Comentário
Ainda não foi enviado nenhum comentário.

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Equipe | Tabela de Pontos e Estrelas | Política de Privacidade | Mapa do Site | Fale Conosco

Autor

Wellington Marinheiro

Tags

ASP

Banco de Dados

Compartilhe e guarde

Enquete

Você acredita que um dia o Firefox será mais utilizado que o IE?

Determinar o número de colunas de uma tabela

Comente