[PsyChaos]

bende çok kullandığım fonsiyonları burda toplamak istiyorum. @soul bir mahsuru yoksa ilk msj'dan sonra devam edeceğim zaman zaman..

Bu fonsiyon ile SQL Injection Saldırılarını Daha Aza İndirgiyoruz.

<%
Public Function SQLInjectionKillers(byVal strWords)

strBadWords = Array("SELECT", "DROP", ";", "--", "INSERT", "DELETE", "xp_", "UNION","'")
strBadWordsReplace = Array("&#83elect", "&#68rop", "&#59", "&#45-", "&#73nsert", "&#68elete", "&#120p&#95", "&#85nion","&#39")
				
	For iSQL = 0 to uBound(strBadWords)
	strWords = Replace(strWords, strBadWords(iSQL), strBadWordsReplace(iSQL),1,-1,1)
	Next
				
SQLInjectionKillers = strWords
			
End Function
%>

'---------------------------------
Bu Sub yordamıda, A-Z & a-z Şeklinde sıralama yapıyor

<%
	Sub AZ()
		For b = 65 To 90 Step 1
			Response.Write "<a href='?Harf="& chr(b) &"'>"& chr(b) &"</a> "
		Next
			
		Response.Write "<br>"
			
		For s = 97 To 122 Step 1
			Response.Write "<a href='?Harf="& chr(s) &"'>"& chr(s) &"</a> "
		Next
	End Sub
%>

'----------------------
Bu fonsiyon ile Localde ya da web üzerinde Access Veritabanı oluşturabilirsiniz.

<% 
Function CreateDatabase(ByVal DBPath) 
   On Error Resume Next 
   Set oCatalog = server.CreateObject("ADOX.Catalog" ) 
   oCatalog.Create _ 
       "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath 
   CreateDatabase = Err.Number = 0 
End Function 

If CreateDatabase(server.MapPath("deneme.mdb" )) Then 
   Response.Write("Veritabanı oluşturuldu..." ) 
End If 
%>

'-----------------------
Bu sub yordamı ile bilgisayarınızın yada server'ın fiziksel belleğini öğrenebilirsiniz.

<%
Sub Bellek(strComputer)

Dim wbemServ  
Set wbemServ = GetObject("winmgmts:\\" & strComputer) 

Dim wbemLMC 
Set wbemLMC = wbemServ.InstancesOf("Win32_LogicalMemoryConfiguration" ) 

Dim wbemObject 
For Each wbemObject In wbemLMC 
     Response.Write "Toplam fiziksel bellek (kb): " &  wbemObject.TotalPhysicalMemory 
Next
End Sub

Bellek(bilgisayar Adı)
%>