Klasik ASP ile Bileşen Testi

**PELİN** · 09-07-2009, 13:51

Bu örnek uygulamada ASP ile Componentlerin kurulu olup olmadığı veya kullanma izni olup olmadığını denetleyebileceksiniz.
<%@Language="JavaScript" EnableSessionState="false" %>
<%
//Response.*******Type = "application/xhtml+xml;charset=ISO-8859-9"
var accept = String(Request.ServerVariables("HTTP_ACCEPT"));
var ua = String(Request.ServerVariables("HTTP_USER_AGENT"));
if (accept != null && ua != null) {
if (accept.indexOf("application/xhtml+xml") >=0 || ua.indexOf("W3C_Validator") >= 0) {
Response.*******Type = "application/xhtml+xml;charset=ISO-8859-9";
}
}
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="tr">
<head>
<**** http-e****="*******-type" *******="application/xhtml+xml; charset=iso-8859-9" />
<title>ASP JavaScript Veritabanı test sayfası</title>
<**** name="generator" *******="Notepad, see http://www.microsoft.com/windows/" />
</head>
<body>
<div>
<% // Öncelikle bir fonksiyona ihtiyacımız var.
// Bu fonksiyon nesneleri oluşturup sonra silecek ve hata olursa bize geri bildirim yapacak
function Detect(name)
{
try {
var obj = Server.CreateObject(name);

/*if (obj != null) return true;// Ulaşılamaz kod algılandı
delete obj;
obj = null;*/
var s = true; // Kestirme kod fakat bellek açısında verimli...
if (obj != null) {
delete obj;
obj = null;
}

return s;

}
catch (e) {return false;}
return false;
}

var objeler = new Array("ADODB.Connection", "ADODB.Recordset", "CDONTS.NewMail");

for (var i = 0; i < objeler.length; i++)
{
Response.Write( Detect(objeler[i]) ? "Yüklü" : "Yüklü Değil" );
}
%>
</div>
</body>
</html>

objeler dizisine dikkat edin. Burda bize gerekli olan sınıfları bir dizi içine koydukki daha sonra bu diziden adlarını alarak işlem yapalım ayrıca buraya istediğiniz sınıflarıda girebilirsiniz.

İşte bukadar. hatta bazı programcılar (benim gibi mesela) Scripting.Dictionary nesnesi ile otomatik COM destekli diziler oluşturabilirler fakat gereksiz. Gerekli neden çünkü nesnelerin adları ile oluşturma adları farklı olduğundan. Anlatmak istediğim CDONT mesela yada ADODB biz şimdi ADODB.Recordset ile kayıtseti oluşturuyoruz ama bahsettiğimiz zamanda ADODB yada ADO diye söylüyoruz kısacası Scripting.Dictionary nesnesinin Add metoduna iki tane parametre girilerek istediğiniz gibi bir biçimleme oluşturabilirsiniz. ozaman kodumuz şöyle olurdu

var objeler = Server.CreateObject("Scripting.Dictionary");
objeler.Add("ADO", "ADODB.Connection");
yada objeler.Add("ADO", "ADODB.Recordset");
hatta objeler.Add("CDONTS", "CDONTS.NewMail");

sonrada kodumuzda ufak bir değişiklikle

for (var i = 0; i < objeler.Count; i++)
{
Response.Write( Detect(objeler.Items[i]) ? objeler.Keys[i] + "Yüklü" : objeler.Keys[i] + "Yüklü Değil" );
}

alıntıdır..