Boas pessoal, sou novo por aqui, e venho já tentar tirar dúvidas :/
Bem, estou a fazer um progrma em ASP.
Estrutura:
-> o programa vai a base de dados e ve que tipos de maquinas existem
-> o utilizador escolhe a maquina
-> o programa vai a base de dados e ve os modelos disponiveis para esse tipo de maquina
-> o utilizador escolhe o modelo
-> o programa vai a Base de dados e ve o numero de paletes disponiveis para uma maquina do tipo e com o modelo escolhidos antes
Tentei mas não consigo por a dar com JavaScript ... da me erro xmlHTTP, tentei correr um servidor em python ocorriam duas coisas:
1º sempre que acedia a um ficheiro asp via javascript o ficheiro não executava, ao invés, imprimia o codigo asp na pagina
2º se eu tentasse aceder ao ficheiro asp diretamente (pelo seu url) o browser fazia me download do ficheiro e não executava
Por esse motivo, o programa foi feito todo em asp, se tiverem alguma coisa a dizer força, gostava de aprender mais
aqui esta o codigo:
main.asp
<!DOCTYPE html>
<html>
<head>
<link href="mystyle.css" rel="stylesheet" type="text/css"/>
<script src="javascript/jquery-1.11.3.min.js"></script>
</head>
<body>
<!--Inicialization, ...-->
<%
dim modelo, tipo, palete
tipo=""
modelo=""
palete=""
dim perguntas(20)
Set conn = Server.CreateObject("ADODB.Connection")
Set conn2 = Server.CreateObject("ADODB.Connection")
conn_string = "Provider=sqloledb;Server=INF0148\SQLEXPRESS;Database=#####;Uid=####;Pwd=###########"
conn.commandTimeout = 60
conn.Open conn_string
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
function options(value, data, select_id)
Response.Write ("<option value=""" & value & """")
if request.form(select_id) = value then
Response.Write ("selected")
end if
Response.Write(">" & data & "</option>")
end function
%>
<div id="main">
<!--Escolhe tipo de Maquina-->
<form method="post">
<select name="maq" id="maq" onchange="this.form.submit()">
<option value="">Tipo de Maquina:</option>
<%
conn.close
conn.Open conn_string
rs.Open "SELECT DISTINCT Tipo FROM modelos", conn
do until rs.EOF
for each x in rs.Fields
options x.value, x.value, "maq"
next
rs.MoveNext
loop
%>
</select>
</form>
<%tipo=Request.Form("maq")%>
<!--Escolhe Modelo-->
<form method="form">
<select name="modelo" id="modelo" onchange="this.form.submit()">
<option value="">Modelo:</option>
<%
conn.close
conn.Open conn_string
rs.Open "SELECT DISTINCT Modelo FROM modelos WHERE Tipo='"&tipo&"'", conn
do until rs.EOF
for each x in rs.Fields
options x.value, x.value, "modelo"
next
rs.MoveNext
loop
modelo=Request.Form("modelo")
%>
</select>
</form>
<!--Numero de Paletes-->
<form method="post">
<%
conn.close
conn.Open conn_string
rs.Open "SELECT N_Paletes FROM Modelos WHERE Tipo='"&tipo&"' AND Modelo='"&modelo&"'", conn
dim temp
temp=0
do until rs.EOF
for each x in rs.Fields
if not IsNull(x.value) then
if temp=0 then
response.write("<select name=paletes id=paletes onchange=""this.form.submit()"";>")
response.write("<option value="">Numero de Paletes:</option>")
temp=1
end if
options x.value, x.value, "paletes"
end if
next
rs.MoveNext
loop
paletes=Request.Form("paletes")
%>
</form>
</div>
</body>
</html>
Problema?
ele carrega bem os tipos de maquinas... quando eu escolho a maquina ele carrega bem os modelos... quando escolho o modelo, vai tudo ao ar.
Pergunta
Hormonas
Boas pessoal, sou novo por aqui, e venho já tentar tirar dúvidas :/
Bem, estou a fazer um progrma em ASP.
Estrutura:
-> o programa vai a base de dados e ve que tipos de maquinas existem
-> o utilizador escolhe a maquina
-> o programa vai a base de dados e ve os modelos disponiveis para esse tipo de maquina
-> o utilizador escolhe o modelo
-> o programa vai a Base de dados e ve o numero de paletes disponiveis para uma maquina do tipo e com o modelo escolhidos antes
Tentei mas não consigo por a dar com JavaScript ... da me erro xmlHTTP, tentei correr um servidor em python ocorriam duas coisas:
1º sempre que acedia a um ficheiro asp via javascript o ficheiro não executava, ao invés, imprimia o codigo asp na pagina
2º se eu tentasse aceder ao ficheiro asp diretamente (pelo seu url) o browser fazia me download do ficheiro e não executava
Por esse motivo, o programa foi feito todo em asp, se tiverem alguma coisa a dizer força, gostava de aprender mais
aqui esta o codigo:
main.asp
<!DOCTYPE html> <html> <head> <link href="mystyle.css" rel="stylesheet" type="text/css"/> <script src="javascript/jquery-1.11.3.min.js"></script> </head> <body> <!--Inicialization, ...--> <% dim modelo, tipo, palete tipo="" modelo="" palete="" dim perguntas(20) Set conn = Server.CreateObject("ADODB.Connection") Set conn2 = Server.CreateObject("ADODB.Connection") conn_string = "Provider=sqloledb;Server=INF0148\SQLEXPRESS;Database=#####;Uid=####;Pwd=###########" conn.commandTimeout = 60 conn.Open conn_string Set rs = Server.CreateObject("ADODB.Recordset") Set rs2 = Server.CreateObject("ADODB.Recordset") function options(value, data, select_id) Response.Write ("<option value=""" & value & """") if request.form(select_id) = value then Response.Write ("selected") end if Response.Write(">" & data & "</option>") end function %> <div id="main"> <!--Escolhe tipo de Maquina--> <form method="post"> <select name="maq" id="maq" onchange="this.form.submit()"> <option value="">Tipo de Maquina:</option> <% conn.close conn.Open conn_string rs.Open "SELECT DISTINCT Tipo FROM modelos", conn do until rs.EOF for each x in rs.Fields options x.value, x.value, "maq" next rs.MoveNext loop %> </select> </form> <%tipo=Request.Form("maq")%> <!--Escolhe Modelo--> <form method="form"> <select name="modelo" id="modelo" onchange="this.form.submit()"> <option value="">Modelo:</option> <% conn.close conn.Open conn_string rs.Open "SELECT DISTINCT Modelo FROM modelos WHERE Tipo='"&tipo&"'", conn do until rs.EOF for each x in rs.Fields options x.value, x.value, "modelo" next rs.MoveNext loop modelo=Request.Form("modelo") %> </select> </form> <!--Numero de Paletes--> <form method="post"> <% conn.close conn.Open conn_string rs.Open "SELECT N_Paletes FROM Modelos WHERE Tipo='"&tipo&"' AND Modelo='"&modelo&"'", conn dim temp temp=0 do until rs.EOF for each x in rs.Fields if not IsNull(x.value) then if temp=0 then response.write("<select name=paletes id=paletes onchange=""this.form.submit()"";>") response.write("<option value="">Numero de Paletes:</option>") temp=1 end if options x.value, x.value, "paletes" end if next rs.MoveNext loop paletes=Request.Form("paletes") %> </form> </div> </body> </html>Problema?
ele carrega bem os tipos de maquinas... quando eu escolho a maquina ele carrega bem os modelos... quando escolho o modelo, vai tudo ao ar.
alguma ajuda?:)
Obrigada pela atençao!
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
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.