Vraag : Het controleren van de variabele van het ASPIS verklaart nietig

Ik heb een Webvorm die een manuscript uitvoert van het ASPIS dat een e-mailbericht naar me met contactdetails ingegaan door de gebruiker verzendt. Ik wil controleren als zij een e-mailadres op de vorm zijn ingegaan, zodat heb ik een test voor een ongeldige waarde in het gebied van de e-mailadresinput opgenomen. Als het e-mailadres invoerde wordt het gebied verlaten leeg door de gebruiker dan zou het proef e-mailadres ([email protected]) naar me.
However, met deze code moeten worden verzonden, ontvang ik niet het e-mailbericht. Wat zou de correcte code moeten zijn?
I heeft volledige script. vastgemaakt
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

<%
'Initialiseer voorwerpen en variabelen
Verduister JMail, intComp, strReferer, strServer, strClientIP, strServerIP, blnSpam
Plaats JMail = Server.CreateObject („JMail.SMTPMail“) 

'Controle als deze pagina van een een andere pagina op de server wordt geroepen
strReferer = request.servervariables („HTTP_REFERER“)
strServer = vervang (request.servervariables („SERVER_NAME“), „www. “, "")
strClientIP = request.servervariables („REMOTE_ADDR“)
strServerIP = request.servervariables („LOCAL_ADDR“)

intComp = inStr (strReferer, strServer)
Als intComp > 0 toen 
	blnSpam = Vals
Anders
	'Het Blok van de Poging Spam
	blnSpam = Waar
Eind als

'Dit is mijn lokale server SMTP
JMail.ServerAddress = „smtp.“ & strServer & „: 25“

'Dit is me…. 
JMail.Sender = „noreply@“ & strServer

SenderName = Request.Form („naam“)
SenderCompany = Request.Form („bedrijf“)
SenderPhone = Request.Form („telefoon“)
SenderEmail = Request.Form („e-mail“)
Onderwerp = „Onderzoek aan Opleiding TOCO van „+ SenderName
Ontvanger = „[email protected]“
SenderComments = Request.Form („Commentaren“)

Lichaam = „Onderzoek van“ & SenderName & vbCrLf & „Bedrijf“ & SenderCompany & vbCrLf & „Telefoon“ & SenderPhone & vbCrLf & „E-mailAdres“ & SenderEmail & vbCrLf & vbCrLf & SenderComments & vbCrLf

Als SenderEmail = "" toen
   SenderEmail = „[email protected]“
Eind als

JMail.Sender = SenderEmail
JMail.Subject = Onderwerp 

JMail.AddRecipient Ontvanger 

JMail.Body = Lichaam 

JMail.Priority = 3 

JMail.AddHeader „voort:komen-IP“, Request.ServerVariables („REMOTE_ADDR“) 

'verzend post
Als NIET blnSpam toen
	JMail.Execute
	strResult = „Verzonden Post.“
Anders
	strResult = „Verzonden niet Post.“
Eind als

Reeks jmail = niets

alertAndRedirect

Sub alertAndRedirect ()
%>

<%
Sub van het eind
%>

Antwoord : Het controleren van de variabele van het ASPIS verklaart nietig

u kunt hier kijken. Dit is een lang onderwerp. In korte termen beter aan gebruik dan niet.

HTH

Ivo Stoykov
Andere oplossingen  
 
programming4us programming4us