html e vb

**ioanna** · 30-10-2003, 15:56

ciao mi potrebbe dire qualcuno gentilmente dove e' che sbaglio perche' sto diventando pazza!!
Praticamente avevo fatto un form in vb (che funziona) dove un utente deve mettere username e password e quando clickava sull'OK si interogava un database fatto in access per vedere se i data immessi erano giusti.
Questo lo devo pero' mettere in interner soltanto che se carico questo form,essendo .exe anzi che aprirmello subito mi chiede se lo voglio aprire o salvarlo.Come posso fare per evitare questo problema?
La soluzione qui sotto purtroppo non funziona

**ioanna** · 30-10-2003, 15:57

scusate ho dimenticato il codice...
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>login</title>
</head>

<body bgcolor="#000000" text="#999999" link="#CCCCCC">

<script language="VB" for=form event="onsubmit" defer>
Dim db_password_clienti As string
Dim statement As string
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim validation as boolean

Sub cmdOK_onSubmit

' Open the database.
db_password_clienti = "C:\...\sito"
If Right$(db_password_clienti, 1) <> "\" Then db_password_clienti = db_password_clienti & "\"
db_password_clienti = db_password_clienti & "password_clienti.mdb"
validation = True

' Open a connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_password_clienti & ";" & _
"Persist Security Info=False"
conn.Open

' Look up the user name/password.
statement = "SELECT COUNT (*) FROM dati_clienti WHERE " & _
"UserName='" & Replace(txtUsername.Text, "'", "''") & "' AND " & _
"Password='" & Replace(txtPassword.Text, "'", "''") & "'"
Set rs = conn.Execute(statement)

' See if we got anything.
If CLng(rs.Fields(0)) < 1 Then
MsgBox "Invalid user name/password."
validation = False
' There is no match.
' Do not allow the login.
Unload Me

Else
validation = True
' There is a match.
' Display the program's main form.
' Form1.Show

Unload Me
End If

If (validation == True) Then
cmdOK_onSubmit = True
openwindow ("C:\...\pg.htm");
Else
cmdOK_onSubmit = False

End If
Return validation;

rs.Close
conn.Close

End Sub

</script>

<form name="login" method="post" return cmdOK_onSubmit >

<font face="Verdana">Username : </font>
<input type="text" name="txtUsername.Text">
</p>

<font face="Verdana">Password : </font>
<input type="password" name="txtPassword.Text">
</p>

<input name="OK" TYPE="submit" VALUE="LOGIN" >

<input TYPE="reset" VALUE="Annulla" name="Delete" style="font-weight: bold; font-family: Courier New; font-size: 10pt">
</form>
</body>
</html>

**alex4988** · 30-10-2003, 16:02

mi sa che hai sbagliato a postare c'è un forum di visual basic appposto per ste cose.

**ioanna** · 30-10-2003, 16:26

ma il codice in vb funziona.Quando cerco di metterlo in html sbaglio tutto!!

cmq il codice sopra e' un po sbagliato:
<form name="login" method="post" return cmdOK_onSubmit >

non e' cosi' ma cosi':
<form name="login" method="post" form.onSubmit="return cmdOK_onSubmit">

AIUTOOOOOOOO!

**alex4988** · 30-10-2003, 16:56

Scusa forse ora tiro una cretinata ma tu il form lo apri ma nn lo chiudi da quanto vedo

**alex4988** · 30-10-2003, 17:00

grande cazzato lo ho visto ora scusa

**ioanna** · 31-10-2003, 11:17

**Cozza** · 31-10-2003, 11:26

ma davvero si può mettere un form vb sul web??

non è che a questo punto ti conviene imparare asp?

è un po' un casino all'inizio ma poi puoi interagire con i db dal web con una certa facililità

**ioanna** · 31-10-2003, 15:37

ma lo posso scaricare gratis?E' difficile da installare?

**Cozza** · 01-11-2003, 15:00

cosa asp?
le pagine asp le puoi fare anche con qualsiasi software tu usi per fare pagine html (ti sconsiglio frontpage) , persino blocco note, e poi ti salvi il file con estensione .asp

Comunque se tu hai visual basic probabilmente hai installato visualstudio 6.0 nel quale c'è anche visual interdev che è quello che uso io.

se il tuo sito è su IIS no problem dovrebbe riconoscerti al volo le pagine asp se invece sei tipo su Win98 dovresti installarti personal web server

Discussione: html e vb

Strumenti discussione

Ricerca discussione

Visualizza

html e vb

Permessi di invio