Ir para conteúdo

Arquivado

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

estranho.com

Como validar data no asp e salvar no banco de dados

Por , em ASP Clássico

Recommended Posts

estranho.com    0

estranho.com
Postado

Olá galera sou novo em programação

to com uma dulvida no meu código

Como faço para capturar a data atual e salvar no banco de dados.

 

O codigo valida login e senha captura o ip de quem logo e a data atual, salva no banco de dados e retorna logado.

 

esse é o código!!!!

 

 

 

ASP
<%
Option Explicit
Dim sql,rsUser,username,password,page,stayloggedin,LConnectString,lconn,sqlflag
 
 
'capturar as variáveis submetidas (a página é a página que vieram de, se ajustaram pela variável escondida na caixa do início de uma sessão)
username = Request.Form("username")
password = Request.Form("password")
page = Request.Form("page")
stayloggedin = Request.Form("stayloggedin")
 
if page = "" then
        page = "index.asp"
end if
 
'Não verificar nenhum ** t de s está tentando cortar em usar comandos do SQL
if InStr(username, "'") or InStr(username, """") or InStr(username, "=") or InStr(password, "'") or InStr(password, """") or InStr(password, "=") then
        sqlflag = True
end if
 
'Abrir a conexão
%>
<!--#include file="conn.asp"-->
<%
 
'Começar um recordset que corresponde ao username e à senha submetidos
sql = "SELECT username FROM users WHERE username = '" & username & "' AND password = '" & password & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3
 
 
'Capturar ip da maquina
Dim ip
ip = Request.ServerVariables("REMOTE_ADDR")
 
 
'Capturar data atual
?????????????????????????
 
'Salva no banco
 ????????????????????????
 
'Se houver um recordset válido lá, emiti-los então para index, com o cookie do username
If (not rsUser.BOF) and (not rsUser.EOF) and sqlflag <> True then
  Response.Cookies("username") = rsUser("username")
 
 
  'Se o usuário quiser salvar seus dados, então nós ajustaremos o cookie com uma data que expire
  if stayloggedin = "yes" then
        Response.Cookies("username").expires = #1/1/2010#
  end if
  rsUser.close
  set rsUser = nothing
  conn.close
  set conn = nothing
  Response.Redirect(page)
end if
 
'Se não, indicar uma senha inválida na entrada
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing%>
 
<html>
<head>
<title>Invalid entry</title>
</head>
<body bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000">
<font face="arial,helvetica" size=2 color="#000000">
 
<h3>Nome de usuário/senha inválidos</h3>
 
<p><a href="java script:self.history.go(-1)"><b>Tente novamente</b></a></p>
 
</font>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Para capturar a data atual do servidor utilize-se da função nativa Date().

Compartilhar este post

Link para o post
Compartilhar em outros sites

estranho.com    0

estranho.com
Postado

Para capturar a data atual do servidor utilize-se da função nativa Date().

vlww...tem como salvar os dados no banco usando o mesmo codigo sem o cliente perceber???

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