VBScript

[AntonGV]

Подскажите пожалуйста как реализовать проверку правильности e-mail адреса и как отправить обработанные данные скрипту на сервере

Код: Выделить всё

<script language="vbscript">
sub smb_OnClick
  if document.frm1.name1.value="" then
   alert "Вы не написали свою фамилию"
   exit sub
  end if
  if document.frm1.name2.value="" then
   alert "Вы не написали своё имя"
   exit sub
  end if
  if document.frm1.vozr.value="1" then
   alert "Вы не указали свой возраст"
   exit sub
  end if
  if document.frm1.mail.value="" then
   alert "Вы не указали E-Mail"
   exit sub
  end if
  'if <проверка на правильность e-mail> then
  ' alert "Вы указали неправильный E-Mail"
  ' exit sub
  'end if

  'Здесь должна быть отправка данных формы скрипту savedb.php
end sub
</script>


[GSerg]

Проверка правильности e-mail.

[AntonGV]

Что-то там уж слишком много :shock: еще и на perl, может можно попроще?
как передать данные скрипту?

[GSerg]

Это regexp, а не перл.

[dr.MIG]

Это regexp, а не перл.

А regexp они и на perl, и на php, и на js, и на vbs regexp...

[AntonGV]

Вот нашел покороче

Код: Выделить всё

eregi("^([0-9a-z]([-_.]?[0-9a-z])*@[0-9a-z]([-.]?[0-9a-z])*\\.[a-wyz][a-z](fo|g|l|m|mes|o|op|pa|ro|seum|t|u|v|z)?)$", $email)

Но как это записать на VBS?
И всетаки как предать данные скрипту?

[Dmitriy2003]

GSerg -> попутный вопрос пытаюсь я подключить тот огромный шаблон я его в фаил сбросил - пишет ошибка
делаю так:

Код: Выделить всё

Function ValidateEMail(email)
   '
   Dim fso, fsoFile, ptn
   '
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set fsoFile = fso.OpenTextFile(Pfad, ForReading, False)
   ptn = fsoFile.ReadAll
   Set fso = Nothing
   '
   Dim oRegExp: Set oRegExp = CreateObject("VBScript.RegExp")
   oRegExp.Global = True
   oRegExp.Pattern = ptn
   '
   ValidateEMail = oRegExp.Test(email)
   Set oRegExp = Nothing
   '
End function


может построчно читать наодо?
http://www.ex-parrot.com/~pdw/Mail-RFC822-Address.html

вопрос решен

Код: Выделить всё

ptn = Replace(ptn, vbcrlf, "")