|
Dim RS, sql ,sql1, sql2
set RS = Server.CreateObject("ADODB.Recordset")
keyword = request("keyword")
sql = "select on_sp, ep_sp, on_ex1, ep_ex1, on_ex2, ep_ex2 from spoudastes, ex_epitroph where spoudastes.id_ex=ex_epitroph.id_ex_ep; "
sql1="select on_sp, ep_sp, thema from spoudastes, diplwmatikh where diplwmatikh.ID_diplwm=spoudastes.ID_dipl;"
sql2="select thema, epivlepwn_kath.ep_kath, epivlepwn_kath.on_kath from diplwmatikh, epivlepwn_kath where diplwmatikh.id_kath=epivlepwn_kath.id_kath"
RS.Open sql, sql1, sql2, conn, adOpenStatic, adLockReadOnly, adCmdText
Πως μπορώ να κάνω αυτό το script να λειτουργήσει;
Ή αν υπάρχει κάποιος άλλος τρόπος να γίνει αυτό.
Ευχαριστώ.
Από:
doraa - 13/7/2004
1 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news
|
|
exo ton ekseis kodika ::::
Dim strEmail
strEmail = rsGetPassword("email")
htmlBody = "You have requested to have your password sent to because it was lost.
"
htmlBody = htmlBody & "Your Password is: '" & rsGetPassword("password") & "'"
'Dimension variables
Dim objCDOSYSCon
'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Set and update fields properties
'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "nextelrepair.com"
'SMTP port
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'CDO Port
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
'Who the e-mail is from
objCDOSYSMail.From = rsGetEmail("siteemail")
'Who the e-mail is sent to
objCDOSYSMail.To = rsGetPassword("email")
'The subject of the e-mail
objCDOSYSMail.Subject = "Lost Password"
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
objCDOSYSMail.HTMLBody = htmlBody
'Send the e-mail
objCDOSYSMail.Send
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Set rsGetPassword = Nothing
Set rsGetEmail = Nothing
Set adoCon = Nothing
Response.Redirect"password.asp?mode=email"
End If
kai perno mhnhma lathous aftp
CDO.Message.1 error '80040213'
The transport failed to connect to the server.
/explorer/loginscr/password.asp, line 123
ti exo lathos
Από:
nikoss - 10/7/2004
5 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news
|
|
Η διαδικασία είναι η απλή, redirect από μια σελίδα σε άλλη με ενδιάμεσο έλεγχο password.
Το πρόβλημα είναι πως εμφανίζονται το uid και το password στο address bar.
Response.Redirect "search.asp?uid="&uid&"&pwd="&pwd&"&keyword=test"
Θα μου πείτε τώρα, αφού το δίνεις στο link θα το εμφανίσει και δίκιο θα έχετε. Όμως αν βάλω Response.Redirect "search.asp" μπορεί οποιοσδήποτε να μπει στην search.asp χωρίς να περάσει από την σελίδα που γίνεται ο έλεγχος.
Ελπίζω να μη σας μπέρδεψα, απλώς θέλω τα uid και pwd να εμφανίζονται στο address bar αλλά κωδικοποιημένα ή κατι τέτοιο.
Από:
doraa - 9/7/2004
1 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news
|
Scripting :: Θέματα
3 sql queries σε ένα recordset