У моего зятя есть базовый веб-сайт (maltawide.eu), который был разработан много лет назад в Classic ASP.Это, вероятно, запоздало переписать, но не генерирует достаточно трафика, чтобы оправдать его, и вместо этого он использует социальные сети, которые хорошо работают.
В любом случае сайт имеет некоторые функции, чтобы рекомендовать свойства другим людям, которые внезапно перестали работать.Это произошло раньше, так как он находится на общем IP-адресе одного из сайтов и был взломан и остается таким, что не может противостоять нескольким отчетам / электронным письмам / сообщениям, адресованным godaddy, однако mxtoolbox не сообщил о проблемах с сервером maltwaide.
Как сторонаURL-адрес http://bauerwhitetails.com/rx.html
Проблема заключается в том, что, поскольку вы рекомендуете свойства, и вы передаете URL-адрес в текстовом сообщении, содержащем URL-адрес maltawide.eu, он заблокирован!Я протестировал его с использованием других URL-адресов, и он отлично работает!
Мы попробовали функциональность разблокировки Godaddy здесь https://unblock.secureserver.net/, но домен / ip в настоящее время не заблокирован!
Один из способов обойти это - сообщить URL-адрес и использовать сокращение (без ссылки на свойство), или это возможно также для конкатенации?
Любые идеи приветствуются.
Вот выдержка из кода:
<%
Option Explicit
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!--#INCLUDE FILE=includes/constants.inc-->
<!--#INCLUDE FILE=includes/functions.inc-->
<title>Maltawide Properties Limited</title>
<link rel="stylesheet" type="text/css" href="stylesheets/default.css">
</head>
<body link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<%
Dim objNewMail, sBody
Set objNewMail = Server.CreateObject("CDO.Message")
objNewMail.From = Request.Form("Your email address")
objNewMail.Cc = Request.Form("Your email address")
objNewMail.To = Request.Form("Email to")
objNewMail.Subject = "Interesting property sent by " & Trim(Request.Form("Your name"))
sBody = Trim(Request.Form("Your name")) & " wants to show you an interesting property listed by " & vbcr & vbcr
sBody = sBody & "Maltawide Properties Ltd, Malta" & vbcr & vbcr
sBody = sBody & "Click the following link to see the property :" & vbcr & vbcr & "http://www.maltawide.eu/default.asp?pid=" & Request.Form("pid")
If Request.Form("Message") <> "" Then
sBody = sBody & vbcr & vbcr & "Message from : " & Request.Form("Your Name") & vbcr & vbcr & Request.Form("Message")
End If
'---------------------------------------------------------------------------------------------------------------------------
objNewMail.TextBody = sBody
' GoDaddy SMTP Settings
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="relay-hosting.secureserver.net"
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objNewMail.Configuration.Fields.Update
objNewMail.Send
'After the Send method, NewMail Object become Invalid
'You should set it to nothing to release the memory
Set objNewMail = Nothing