Voltar    
<%'---------------------------------------------------------- Dim connection set connection=server.createobject("adodb.connection") connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database) Dim idf if request.form("inserir")="true" then CriaRegisto() End If if request.form("alterar")="true" then idf=request.form("idf") if ValidaCodigoAdmin(request.form("codigo"),idf) then AlteraDados(idf) Else Response.write("
O código introduzido para o acesso ao registo é inválido!
") End If End If if request.QueryString("c")="true" then TextoeLink("cancelar") FormularioCriar Elseif request.QueryString("alterar").count>0 then idf=request.QueryString("alterar") TextoeLink("cancelar") FormularioEditar(idf) Elseif request.QueryString("apagar").count>0 then idf=request.QueryString("apagar") if request.Form("apagar")="confirmar" and ValidaCodigoAdmin(request.form("codigo"),idf)then ApagaRegisto(idf) TextoeLink("inserir") else if request.Form("apagar")="confirmar" then Response.write("
O código introduzido para o acesso ao registo é inválido!
") End If TextoeLink("Apagar") end if Else TextoeLink("inserir") End If '------------------------------------------------------------------%> <%'------------------ escreve links --------------------------------- Set rs = connection.Execute("SELECT * FROM links WHERE idr=1 ORDER BY id DESC") do until rs.eof%> ") response.write("") loop set rs=nothing connection.close %>
 
<% response.write(""&rs("id")&": "& rs("titulo")& "") response.write("
") response.write(rs("descricao") &"
") response.write("Data:"& " "& rs("data") &"
") response.write("
") response.write(""& rs("url")& "") response.write("") response.write("| Editar Dados | ") response.write(" Eliminar Link |
") rs.movenext response.write("
<%Sub FormularioCriar%>
título:
Descrição:
Url:
Inserido por:
Introduza um codigo para futura gestão do registo:
 
<%End Sub%> <%Sub FormularioEditar(idf) 'Response.write(idf) Set rs = connection.Execute("SELECT * FROM links WHERE id="&idf) idr=rs("idr") titulo=rs("titulo") descricao=rs("descricao") url=rs("url") autor=rs("autor") data=rs("data") codigo="" %>
titulo:
Descrição:
Url:
Inserido por: Codigo Acesso:
 
<%End Sub%> <% Function CriaRegisto() idr=1 titulo=valTexto(request.form("titulo")) url=valTexto(request.form("url")) descricao=valTexto(request.form("descricao")) autor=valTexto(request.form("autor")) codigo=request.form("codigo") data=Now() Dim connection set connection=server.createobject("adodb.connection") connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database) ssql="Insert Into links (idr, titulo, url, descricao, autor, codigo, data)" ssql=ssql & "VALUES(" ssql=ssql & idr &", '" ssql=ssql & titulo &"', '" ssql=ssql & url &"', '" ssql=ssql & descricao &"', '" ssql=ssql & autor &"', '" ssql=ssql & codigo &"', '" ssql=ssql & data & "')" 'response.Write(ssql) connection.Execute(ssql) End Function Function AlteraDados(idf) idr=1 titulo=valTexto(request.form("titulo")) descricao=valTexto(request.form("descricao")) url=valTexto(request.form("url")) autor=valTexto(request.form("autor")) Dim connection set connection=server.createobject("adodb.connection") connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database) ssql="UPDATE links SET " ssql=ssql&"titulo ='"&titulo&"', " ssql=ssql&"descricao ='"&descricao&"', " ssql=ssql&"autor ='"&autor&"', " ssql=ssql&"url='"&url&"' " ssql=ssql&"WHERE cInt(id)=" & idf 'response.Write(ssql) connection.Execute(ssql) End Function Function ApagaRegisto(idf) Dim connection set connection=server.createobject("adodb.connection") connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database) ssql="delete from links where id="&idf 'response.Write(ssql) connection.Execute(ssql) connection.close set rs=nothing End Function Function valTexto(texto) texto=replace(texto,"<","<") texto=replace(texto,">",">") texto=replace(texto,"'", "''") texto=replace(texto,"%", "") if texto="" then texto=" " valTexto=texto End Function Sub TextoeLink(op) if op="inserir" then%>
links para saber mais Língua Portuguesa, Matemática, Estudo do Meio, Expressões, Área de Projecto, Formação Cívica e outras áreas. A actualização é feita online pelos utilizadores.
Inserir Novo Link
 
<% End if if op="cancelar" then%>
links para saber mais Língua Portuguesa, Matemática, Estudo do Meio, Expressões, Área de Projecto, Formação Cívica e outras áreas. A actualização é feita online pelos utilizadores.
Cancelar
 
<% End if if op="Apagar" then%>
Para apagar o registo <%=idf%> insira o código de acesso e confirme a acção:

Código de acesso ao registo:

Apagar

Cancelar
<% End if End Sub Function ValidaCodigoAdmin(codigo,id) Dim connection set connection=server.createobject("adodb.connection") connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database) Set rs = connection.Execute("SELECT * FROM links WHERE id="&id) If rs("codigo")=codigo then ValidaCodigoAdmin=true Else ValidaCodigoAdmin=false End if connection.close set rs=nothing End Function %>