Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

razs

[Resolvido] Alter table

Por , em ASP Clássico

Recommended Posts

razs    0

razs
Postado

ok, vou por a pagina toda.

 

<!--#include file="permission.asp"-->
<!--#include file="sqlinjection.asp"-->
<!--#include file="connect.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<header>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title></title>
<link href="css/style.css" rel="stylesheet" type="text/css" />
</header>
<%
dim id
dim nom
id=request.querystring("id")
nom=request.querystring("nom")
%>


<script type="text/javascript">
function FormSubmit(x) {
document.form_center.action = x;
document.form_center.submit();
return;
}
</script>



<script LANGUAGE="JavaScript">
function checkAll(field)
{
for (i = 0; i < field.length; i++)
field[i].checked = true ;
}

function uncheckAll(field)
{
for (i = 0; i < field.length; i++)
field[i].checked = false ;
}
</script>
<body>
<div id="wrapper1">
<div id="wrapper2">
<div id="container">

       <div id="menu">
    	<ul>
		<li><a href="#" target="_parent">AIBILI</a></li>
           <li><a href="#" target="_parent">4C</a></li>
		<li><a href="index.asp" target="_parent">CORC</a></li>
           <li><a href="#">HUC</a></li>  
           <li><a href="#">IBILI</a></li>   
          	<li><a href="contacts.asp">Contacts</a></li>            
       </ul>  
   </div>
   <br><br><br><br>
   <div id="header_banner">
   	<div id="header">
       	<div id="sitetitle">
           	<span></span>
		</div>
     <div id="tagline"></div>
       </div>
       <div id="banner">
       	<div id="bannertext">
           	<br /><span></span><br />
           </div>
			<%
		dim msg
		msg = request.queryString("msg")
		%>	
       </div>
   </div>

   <div id="content">

   	<div id="leftcolumn">
       	<div class="login_form">
       	<%
           If Session("user") = "" then 
           %>
          	<h1>Login</h1>

		<% response.write request.queryString("msg") %>

           <form method="post" action="login2.asp">
                   <div class="form_row"><label>Username</label><br><input name="user" type="text" class="inputfield" id="user" maxlength="60"/>
             </div>
<div class="form_row"><label>Password</label><br><input name="pass" type="text" class="inputfield" id="pass" maxlength="60"/>
             </div>
                   <br><input class="button" type="submit" name="Submit" value="Login" />
		  </form>

		  |<a href="recpass.asp" target="_self">Password Recovery</a>|
		  <%
		Else
		%>Welcome: <%Response.Write(Session("user"))%>
		<%
		if Session("status") = "3" then 
		%>
		<br><a href="viewdata.asp" target="_self">View Data</a>  	|	<a href="viewstudy.asp" target="_self">View Studys</a>  	|	<a href="viewuser.asp?tbl2=username&dir=asc" target="_self">View User</a>  	|<br>         <a href="viewcenter.asp" target="_self">View Center</a> 	
		<br><a href="reguser.asp" target="_self">Add User</a>  	|	<a href="addstudy.asp" target="_self">Add Study</a>  	|	<a href="addcenter.asp" target="_self">Add Center</a>	|	<br>	<a href="addnews.asp" target="_self">Add News</a>	|	<a href="addcenter.asp" target="_self">Add Center	|
		<br><a href="security.asp" target="_self">Security Log</a>	|	<a href="fechar.asp">Log off</a>
		<%
		else
		%>
		<br><a href="addfiles.asp">Insert Data</a>	|	<a href="updatuser.asp">Update</a>	|	<a href="cert.asp">Certification</a>	|	<a href="fechar.asp">Log off</a>	| 
		<%
		end if			
		End if
		%> 
		</div>

           <div class="spacetobottom"></div>  

       </div>

       <div id="rightcolumn">

       	<div class="twocolumn">

<h4>Add user to study <%=request.querystring("nom")%></h4>
<br><u><B><% response.write request.queryString("msg") %></B></u>
<%
instotal2 = "select center from centros group by center" 
rs2.open instotal2,conn,2,2
%>	
<form name="form_center" method="POST" id="insform">	

<div class="field"><label>Choose Center:</label><select name="center" onChange="FormSubmit('adduserstudy.asp?id=<%= request.querystring("id")%>&nom=<%= request.querystring("nom")%>')">

<%if request.form("center")="" then%>
<option selected>Choose</option>
<%else%>
<option selected><%Request.Form("center")%></option>
<%end if
While Not rs2.EOF%>
		<option value="<%= rs2("center") %>"><%= rs2("center") %></option>
<%
rs2.MoveNext
Wend
rs2.Close
Set rs2 = Nothing
%>
</select></div>	

</form>


<br><br>
Choose Users from <%response.write (request.form("center"))%>:<br><br>

<%
campocenter = request.form("center")
id= request.form("id")



instotal1 = "select * from users where center like '" & campocenter& "'"
rs1.open instotal1,conn,2,2	

While Not rs1.EOF%>
<form name="insform" id="insform" method="post">
<div class="checkcolumn">
<div class="field"><label><%=rs1("username")%></label>
<input type="checkbox" name="checkgroup" value="<%=rs1("username")%>"></div>
</div>
<%
rs1.MoveNext
Wend
rs1.Close
Set rs1 = Nothing
%>
<br>
</div>
<input type="button" name="CheckAll" value="Check All" onClick="checkAll(document.insform.checkgroup)">
<input type="button" name="UnCheckAll" value="Uncheck All" onClick="uncheckAll(document.insform.checkgroup)">
<input type="input" name="nom" id="textboxes" value="<%=request.querystring("nom")%>">
<br>
<br>			
<div class="more_button"><input type="image" class="image" id="insform" name="insform" src="images/ok.jpg"></div>
<br>
</form>
</div>
</div>
<%
if request.form("insform.x")>0 then
addusers
end if

sub addusers()

a=Split(Request.Form("checkgroup"),",")
for each x in a

instotal = "UPDATE users set add_2study_by='"&Session("user")&"', study='"&request.form("nom")&"' WHERE username like '"&x&"'"		
conn.execute(instotal)

response.write instotal
%><br><%
'Response.Redirect("adduserstudy.asp?msg=Users added to study sucessfully.")	
next
 conn.close
end sub

%>

</div>
</div>
       <div class="spacetobottom"></div>         
   </div>
</div>

   <div id="footer">
       <a href="#">Home</a> | <a href="#">xxxxxxxxxx</a> | <a href="#">xxxxxxxxxx</a> | <a href="#">xxxxxxx</a> | <a href="#">xxxxxxx</a> | <a href="contacts.asp">Contacts</a><br />


       </div>
   </div>

</div> 
</div>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

bom se tudo esta correto, verifique se tem permissão para fazer o Update na SQL, direitos administrativo, depende do server, pode estar bloqueando

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Testou o que sugeri no post #33 ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

reparei agora que tirando o primeiro user ele da um espaço no inicio dos seguintes users, deve ser isso

 

tentei fazer assim para restirar esse espaço mas nao esta a dar :(

 

var_user=Trim("&x&")

instotal= "update users set add_2study_by='"&Session("user")&"', study='"&request.form("nom")&"' WHERE username IN('"&var_user&"')" 

conn.execute(instotal)

 

ja esta

 

var_user=Trim(x)

 

ja esta a funcionar como pretendido

 

obrigado a todos

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

beleza, maravilha...

 

Sempre peço aos users para depois de solucinado, postarem o código completo, para auxiliar futuras dúvidas relacionadas.

 

intel +

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Parabéns pela solução

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

Aqui vai

 

<%
if request.form("insform.x")>0 then
addusers
end if

sub addusers()

a=Split(Request.Form("checkgroup"),",")
for each x in a

var_user=Trim(x)

instotal= "update users set add_2study_by='"&Session("user")&"', study='"&request.form("nom")&"' WHERE username IN('"&var_user&"')" 
conn.execute(instotal)

Response.Redirect("adduserstudy.asp?msg=Users added to study sucessfully.")	
next
 conn.close
end sub

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

Boas, isto deixou de funcionar :( agora insere apenas o primeiro user 2 vezes, eu inseri este pequeno codigo para registo de log

	session("var_data")=request.form("nom")	
session("var_user")=Trim(x)
session("acao")="add_2_study"
call log()

 

e ja nao funciona, ja me estou a passar com isto, nao a maneira de ter a funcionar.

 

Vou postar o codigo e se me podessem ajudar agradecia muito porque este bocado e importantissimo e nao a maneira de por a funcionar como deve ser.

 

<%
dim id
dim nom
id=request.querystring("id")
nom=request.querystring("nom")
%>
<%
campocenter = request.form("center")
id= request.form("id")

instotal1 = "select * from users where center like '" & campocenter& "'"
rs1.open instotal1,conn,2,2	

While Not rs1.EOF%>
<form name="insform" id="insform" method="post">
<div class="checkcolumn">
<div class="field"><label><%=rs1("username")%></label>
<input type="checkbox" name="checkgroup" value="<%=rs1("username")%>"></div>
</div>
<%
rs1.MoveNext
Wend
rs1.Close
Set rs1 = Nothing
%>
<br>
</div>
<input type="button" name="CheckAll" value="Check All" onClick="checkAll(document.insform.checkgroup)">
<input type="button" name="UnCheckAll" value="Uncheck All" onClick="uncheckAll(document.insform.checkgroup)">
<input type="hidden" name="nom" id="textboxes" value="<%=request.querystring("nom")%>">
<br>
<br>			
<div class="more_button"><input type="image" class="image" id="insform" name="insform" src="images/ok.jpg"></div>
<br>
<input type="hidden" name="acao" id="textboxes" value="add_2_study"  >
<input type="hidden" name="xpt" id="textboxes" value="<%=request.form("nom")%>">  
</form>
</div>
</div>
<%
if request.form("insform.x")>0 then
addusers
end if

sub addusers()

a=Split(Request.Form("checkgroup"),",")
for each x in a

var_user=Trim(x)

session("var_data")=request.form("nom")	
session("var_user")=Trim(x)
session("acao")="add_2_study"
call log()

instotal= "update users set add_2study_by='"&Session("user")&"', study='"&request.form("nom")&"' WHERE username IN('"&var_user&"')" 
conn.execute(instotal)
call log()
Response.Redirect("adduserstudy.asp?msg=Users added to study sucessfully.")	
next
 conn.close
end sub
%>

 

Basicamente a var study fica numa string e ele mostra todos os users adicionados a center e depois grava user/centro/study, isto num loop porque um center pode ter varios users.

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

provavelmente um errinho na sua sintaxe

como esta sua sub call log()

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

a minha sub esta assim

 

sub log()

dim acao
dim var_user
dim var_data
ip=Request.ServerVariables("REMOTE_ADDR") 

if session("acao")="" then
if request.querystring("acao")="" then
acao = request.form("acao")
else
acao = request.querystring("acao")
end if
else
acao=session("acao")
end if

if session("var_user")="" then
if request.querystring("var_user")="" then
	var_user = request.form("xpt")
else
	var_user = request.querystring("var_user")
end if
else
var_user=session("var_user")
end if



if session("var_data")="" then
else
var_data=session("var_data")
end if


sqlo = "insert into security (username,evento,to_user,to_data,ip,data,hora, tipo) Values('"&Session("user")&"','"&acao&"','"&var_user&"','"&var_data&"','"&ip&"','"&date&"','"&time&"','2')"
Set rsl = conn.Execute(sqlo)


session("var_data")=""
session("var_user")=""
session("acao")=""
end sub

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

fiz uns testes e ele so passa o primeiro user, quando tenta passar o segundo user ele nao o encontra, de certeza que nao preciso de mais nada aqui?

 

a=Split(Request.Form("checkgroup"),",")
for each x in a

var_user=Trim(x)

 

Vou ver se descobro outro metodo para fazer isto

 

Alterei o codigo, continua a fazer a mesma coisa, seja cego se percebo porque e que ele nao faz o loop.

 

<%
if request.form("insform.x")>0 then

a=Split(Request.Form("checkgroup"),",")
For i = 0 To UBound(a)

var_user=a(i)	

session("var_data")=request.form("nom")	
session("var_user")=a(i)
session("acao")="add_2_study"
call log()

instotal= "insert into usercenter (add_by,nome_study,username,data_reg)  Values('"&Session("user")&"','"&request.form("nom")&"','"&var_user&"','"&date&"')"
conn.execute(instotal)
call log()
Response.Redirect("adduserstudy.asp?msg=Users added to study sucessfully.")	
next
 conn.close
end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tenho este code, que uso para pegar varios checkbox, olha como esta meu exemplo

 

if qtd_produtos = "" then
Response.write("erro..."
response.redirect("outra_pagina.asp")
else
qtd_produtos = split(Request.Form("qtd_produtos"),",")
if qtd_produtos = ""
produtos= Split(Request.Form("produtos"), ",")

For i = 1 To Request.Form("produtos").Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

Alterei conforme o teu exemplo e nada, agora nem sequer um adiciona.

poça ja me estou a passar com isto

 

	if request.form("insform.x")>0 then

a=Split(Request.Form("checkgroup"),",")
For i = 1 To Request.Form("checkgroup").Count

var_user=a(i)
response.write var_user


session("var_data")=request.form("nom")	
session("var_user")="'"&var_user&"'"
session("acao")="add_2_study"
call log()

instotal= "insert into usercenter (add_by,nome_study,username,data_reg)	Values('"&Session("user")&"','"&request.form("nom")&"','"&var_user&"','"&date&"')"
conn.execute(instotal)
call log()
'Response.Redirect("adduserstudy.asp?msg=Users added to study sucessfully.")	
next
 conn.close
end if

 

im getting Subscript out of range: 'i'

 

this is the line

 

var_user=a(i)

 

alterei para var_user=Request.Form("checkgroup")(i) e já funciona vou voltar a activar a sub e fazer a verificacao e assim que tiver tudo a 100% posto o codigo

 

obrigado mais uma vez xan

 

Aqui esta, finalmente a funcionar como pretendido

 

if request.form("insform.x")>0 then

a=Split(Request.Form("checkgroup"),",")
For i = 1 To Request.Form("checkgroup").Count

var_user=Request.Form("checkgroup")(i)
response.write var_user


session("var_data")=request.form("nom")	
session("var_user")=Request.Form("checkgroup")(i)
session("acao")="add_2_study"

instotal= "insert into usercenter (add_by,nome_study,username,data_reg)	Values('"&Session("user")&"','"&request.form("nom")&"','"&var_user&"','"&date&"')"
conn.execute(instotal)
call log()

next
Response.Redirect("adduserstudy.asp?msg=Users added to study sucessfully.")	
 conn.close
end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

Alterei o codigo de modo a ele fazer a verificacao se o user ja esta associado aquele study.

 

Dame erro de conexcao mas eu tenho todos os rs fechados para tras, ele fala na linha do rs3.open xppp,conn,1,3

 

Se os rs estao fechados do que sera?

 

ADODB.Recordset error '800a0e79'
Operation is not allowed when the object is open.

 

 

if request.form("insform.x")>0 then

a=Split(Request.Form("checkgroup"),",")
For i = 1 To Request.Form("checkgroup").Count

var_user=Request.Form("checkgroup")(i)

session("var_data")=request.form("nom")	
session("var_user")=Request.Form("checkgroup")(i)
session("acao")="add_2_study"

xppp = "select * from usercenter WHERE username = '"&var_user&"' and nome_study = '" & Request.Form("nom") & "'"
rs3.open xppp,conn,1,3

If rs3.EOF Then 
instotal= "insert into usercenter (add_by,nome_study,username,data_reg)	Values('"&Session("user")&"','"&request.form("nom")&"','"&var_user&"','"&date&"')"
conn.execute(instotal)
call log()
end if
next


 conn.close
 Response.Redirect("adduserstudy.asp?msg=Users added to study sucessfully.")	
end if

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

Resolvido, codigo final

 

if request.form("insform.x")>0 then

a=Split(Request.Form("checkgroup"),",")
For i = 1 To Request.Form("checkgroup").Count

var_user=Request.Form("checkgroup")(i)

session("var_data")=request.form("nom")	
session("var_user")=Request.Form("checkgroup")(i)
session("acao")="add_2_study"
set rs3=server.createobject("adodb.recordset")
xppp = "select * from usercenter WHERE username = '"&var_user&"' and nome_study = '" & Request.Form("nom") & "'"
rs3.open xppp,conn,1,3

If rs3.EOF Then 

instotal= "insert into usercenter (add_by,nome_study,username,data_reg)	Values('"&Session("user")&"','"&request.form("nom")&"','"&var_user&"','"&date&"')"
conn.execute(instotal)
call log()
end if
next

 conn.close
Response.Redirect("adduserstudy.asp?msg=Users added to study sucessfully.")	
end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

Boas isto deixou de dar, nao da erro simplesmente nao altera, fiz um teste com responde.write e o erro é nesta linha visto que o response.write 1 aparece mas o 2 ja nao aparece

 

a=Split(Request.Form("checkgroup"),",")
response.write "11111111111111111111111111111111111111111"
	For i = 1 To Request.Form("checkgroup").Count
response.write "222222222222222222222222222222222222222"
	var_user=Request.Form("checkgroup")(i)

 

Alguma ideia??

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito