תמיד טוב ונחמד לדעת איזה תוכנה רצה בשרת ה-WEB שלך - גרסת ה-IIS, גרסאות ה-MDAC, האם ה-CDONTS מותקן בו, XMLHTTP ועוד...
אז בניתי לי איזה קוד קטן שאותו אני שותל כל פעם בשביל לבדוק שרתים ומריץ אותו כדי לקבל תשובות.
לפניכם תשובות שהקוד מספר לגבי השרת הנוכחי של אתר זה:
<%
strServer = request.servervariables("SERVER_NAME")
strHost = request.servervariables("SERVER_SOFTWARE")
set objConn=server.createobject("adodb.connection")
strMDAC = objConn.version
set objConn= nothing
strScript = scriptenginemajorversion&"."&scriptengineminorversion
on error resume next
set objMail = createobject("cdonts.newmail")
if err.number <> 0 then err.clear
if isobject(objmail) then
strMail = "קיימת"
set objMail=nothing
else
strMail = "לא קיימת"
end if
set objMail = createobject("microsoft.xmlhttp")
if err.number <> 0 then err.clear
if isobject(objmail) then
strHTTP = "קיימת"
set objMail=nothing
else
strHTTP = "לא קיימת"
end if
%>
| דומיין | <%=strServer%> |
| גרסת שרת | <%=strHost%> |
| גרסת MDAC | <%=strMDAC%> |
| גרסת VBScript Version | <%=strScript%> |
| תמיכה ב-CDONTS | <%=strmail%> |
| תמיכה ב-XMLHTTP | <%=strHTTP%> |
ניתן להוריד את הקוד ולשים אותו בכל שרת בו אתם מתכוונים לעבוד בכדי לבדוק במה הוא תומך
להלן הקוד שמכניס את התשובות למשתנים מתאימים:
<![CDATA[
strServer = request.servervariables("SERVER_NAME")
strHost = request.servervariables("SERVER_SOFTWARE")
set objConn=server.createobject("adodb.connection")
strMDAC = objConn.version
set objConn= nothing
strScript = scriptenginemajorversion&"."&scriptengineminorversion
on error resume next
set objMail = createobject("cdonts.newmail")
if err.number <> 0 then err.clear
if isobject(objmail) then
strMail = "קיימת"
set objMail=nothing
else
strMail = "לא קיימת"
end if
set objMail = createobject("microsoft.xmlhttp")
if err.number <> 0 then err.clear
if isobject(objmail) then
strHTTP = "קיימת"
set objMail=nothing
else
strHTTP = "לא קיימת"
end if
]]>
| 
.png)
