Hatalarla başedilemez

her programcı gibi bizde hata yapabilirz ama bu bizi durduramaz.. hata olsa bilse programamız işlemeye devam edecek

Kod:

<% On Error Resume Next %>


ama sonunda size asla tam sonuç vermeyebilir.. sadece hatayı atlar ama hatları düzeltmez..

Bazı Server Nesneleri

Bazen döngülerimiz sonsuzagidebilir ama serverimızın bize tanıdığı süre 90 saniyedir. eğer döngüleriniz 90 saniyeden süreceğini biliyorsanız bu süreyi uzatabilirsiniz..

Kod:
<% Server.ScriptTimeout = 100 %>



ama kesinlikle bu kadar uzun süre bir döngü ziyaretçeyi sıkabilir..

ALL_HTTP HTTP Header içinde yer alan bütün değişkenler ve değerleri. Header adlarının önünde "HTTP_" öneki vardır.
ALL_RAW HTTP Header içinde yer alan bütün değişkenler ve değerleri. Header adları ve değerleri istemci Browser'ın verdiği şekilde gösterilir.
APPL_MD_PATH Web Server'ın ISAPI.DLL dosyası için varsaydığı kök dizin
APPL_PHYSICAL_PATH Web Server'ın varsaydığı kök dizinin gerçek yolu
AUTH_PASSWORD Kullanıcı Web Server'a kullanıcı adı/parola yöntemiyle bağlanabiliyorsa, kullanılan parola
AUTH_TYPE Kullanıcı Web Server'a kullanıcı adı/parola yöntemiyle bağlanabiliyorsa, kullanılan yetkilendirme yöntemi
AUTH_USER Kullanıcı Web Server'a kullanıcı adı/parola yöntemiyle bağlanabiliyorsa, kullanıcı adı
CERT_COOKIE Kullanıcı siteye bağlanmak için yetkilendirme sertifikası kullanıyorsa kendisine verilen kimlik (ID)
CERT_FLAGS Sertifikanın varlığını gösteren bit değeri
CERT_ISSUER Sertifika varsa veren kurum
CERT_KEYSIZE Secure Socket Layers kullanılıyorsa, bağlantı için anahtar değeri
CERT_SECRETKEYSIZE Özel anahtar değeri
CERT_SERIALNUMBER Sertifika seri no.
CERT_SERVER_ISSUER Sertifikayı veren merci
CERT_SERVER_SUBJECT Server Sertifikasının "konu" alanı değeri
CERT_SUBJECT İstemci Sertifikasının konu alanı değeri
CONTENT_LENGTH İstemcinin gönderdiği bilgi yumağının boyutu
CONTENT_TYPE Ziyaretçiden gelen bilgilerin GET veya POST metoduna göre edindiği tür
GATEWAY_INTERFACE Web Server'ın ziyaretçi ile etkileşim arayüzünün adı ve sürümü. Genellikle: CGI/1.1
HTTPS Ziyaretçi ile bağlantı güvenli ise ON, değilse OFF
HTTPS_KEYSIZE Secure Sockets Layer için bağlantı anahtar sayısı
HTTPS_SECRETKEYSIZE Özel Server sertifikasının gizli anahtar sayısı
HTTPS_SERVER_ISSUER Özel Server sertifikasının veren merci
HTTPS_SERVER_SUBJECT Özel Server sertifikasının konusu
INSTANCE_ID Web Server'ın aynı anda kaç kere çalışmakta olduğu
INSTANCE_META_PATH Şu anda çalışmakta olan Web Server'ın Meta yolu
LOCAL_ADDR İstemcinin IP numarası
LOGON_USER İstemci Windows NT sisteminde ise oturum açma adı
PATH_INFO Çalışmakta olan ASP'nin göreli yolu ve adı
PATH_TRANSLATED Çalışmakta olan ASP'nin gerçek yolu ve adı
QUERY_STRING İstemcinin gönderdiği bilgi kümesi
REMOTE_ADDR İstemcinin Host'unun (ISS'inin) IP'si
REMOTE_HOST İstemcinin Host'unun (ISS'inin) adı
REMOTE_USER İstemcinin gerçek adı
REQUEST_METHOD İstemciden bilgi isteme yöntemi (GET veya POST)
SCRIPT_NAME Çalışmakta olan ASP'nin adı
SERVER_NAME Sunucu'nun adı
SERVER_PORT Sunucuya bağlantının geldiği TCP kapı numarası
SERVER_PORT_SECURE TCP kapısı güvenli ise 1, değilse 0
SERVER_PROTOCOL Server'ın çalıştırdığı HTTP'nin sürümü
SERVER_SOFTWARE Server programının adı ve sürümü
URL Şu anda geçerli URL

Netde gezerken bulduğum FSO Upload Scripti.. Maksu'ya teşekkürler..


Kod:

------------ UploadForm.htm----------------

<FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="Upload.asp">
Dosya:<INPUT NAME="dosya" TYPE="file" size="25"><BR>
<INPUT TYPE="submit" Value="Kaydet">
</FORM>
------------
Bu kod üzerinde sadece 4.satirda Yol isimli degiskende yüklenecek klasörü belirleyin. Sondaki \ isaretini ise kaldirmayin.
-----------Upload.asp--------
<%
Set Yukle = New DosyaYukleme

Yol = Server.Mappath("dosyalar")&"\"

DosyaIsmi = Yukle.FileName (" dosya ")

Set FSO = Server.CreateObject("Scripting.FileSystemObject" )

Set YeniDosya = FSO.CreateTextFile(Yol & DosyaIsmi)

For i = 1 To LenB(Yukle.Value("dosya" ))
YeniDosya.Write Chr(AscB(MidB(Yukle.Value("dosya" ), i, 1)))
Next


YeniDosya.Close
Set YeniDosya = Nothing
Set FSO = Nothing

Set Yukle = Nothing
%>
Yüklendi.
<!-- ***** Bu bölümden asagisini degistirmeyin. **** -->
<%
Class DosyaYukleme

Private pvObjUploadRequest

Private Sub Class_Initialize
Dim RequestBin, Boundary, Value
Dim lngPosBegin, lngPosEnd, lngBoundaryPos
Dim lngPos, lngPosFile, lngPosBound
Dim strName, strFileName, strContentType
Dim objUploadControl


Set pvObjUploadRequest = Server.CreateObject("Scripting.Dictionary" )


RequestBin = Request.BinaryRead(Request.TotalBytes)


lngPosBegin = 1
lngPosEnd = InStrB(lngPosBegin, RequestBin, GetByteString(Chr(13)))
Boundary = MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin)
lngBoundaryPos = InstrB(1, RequestBin, Boundary)


Do Until (lngBoundaryPos = InstrB(RequestBin, Boundary & getByteString("--" )))

Set objUploadControl = CreateObject("Scripting.Dictionary" )


lngPos = InstrB(lngBoundaryPos, RequestBin, GetByteString("Content-Disposition" ))
lngPos = InstrB(lngPos, RequestBin, GetByteString("name=" ))
lngPosBegin = lngPos + 6
lngPosEnd = InstrB(lngPosBegin, RequestBin, GetByteString(Chr(34)))
strName = LCase(GetString(MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin)))
lngPosFile = InstrB(lngBoundaryPos, RequestBin, GetByteString("filename=" ))
lngPosBound = InstrB(lngPosEnd, RequestBin, Boundary)


If lngPosFile <> 0 AND lngPosFile < lngPosBound Then

lngPosBegin = lngPosFile + 10
lngPosEnd = InStrB(lngPosBegin, RequestBin, GetByteString(Chr(34)))
strFileName = GetString(MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin))


objUploadControl.Add "FileName" , strFileName
lngPos = InStrB(lngPosEnd, RequestBin, GetByteString("Content-Type:" ))
lngPosBegin = lngPos + 14
lngPosEnd = InStrB(lngPosBegin, RequestBin, GetByteString(Chr(13)))


strContentType = GetString(MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin))
objUploadControl.Add "ContentType" , strContentType


lngPosBegin = lngPosEnd + 4
lngPosEnd = InstrB(lngPosBegin, RequestBin, Boundary) - 2
Value = MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin)
Else

lngPos = InstrB(lngPos, RequestBin, GetByteString(Chr(13)))
lngPosBegin = lngPos + 4
lngPosEnd = InStrB(lngPosBegin, RequestBin, Boundary) - 2
Value = GetString(MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin))
End If


objUploadControl.Add "Value" , Value


pvObjUploadRequest.Add strName, objUploadControl


lngBoundaryPos = InStrB(lngBoundaryPos + LenB(Boundary), RequestBin, Boundary)
Loop
End Sub


Private Sub Class_TerMINate
Dim objDictionary

For Each objDictionary In pvObjUploadRequest.Items
objDictionary.RemoveAll
Set objDictionary = Nothing
Next
pvObjUploadRequest.RemoveAll
Set pvObjUploadRequest = Nothing
End Sub



Private Function GetByteString(strString)
Dim Char
Dim i

For i = 1 To Len(strString)
Char = Mid(strString, i , 1)
GetByteString = GetByteString & ChrB(AscB(Char))
Next
End Function



Private Function GetString(strBin)
Dim intCount

GetString = ""

For intCount = 1 To LenB(strBin)
GetString = GetString & Chr(AscB(MidB(strBin, intCount, 1)))
Next
End Function


Public Function Value(Name)
Name = LCase(Name)
If pvObjUploadRequest.Exists(Name) Then
Value = pvObjUploadRequest.Item(Name).Item("Value" )
Else
Value = Empty
End If
End Function


Public Function ContentType(Name)
Name = LCase(Name)
If pvObjUploadRequest.Exists(Name) Then
If pvObjUploadRequest.Item(Name).Exists("ContentType" ) Then
ContentType = pvObjUploadRequest.Item(Name).Item("ContentType" )
Else
ContentType = Empty
End If
Else
ContentType = Empty
End If
End Function


Public Function FileNamePath(Name)
Name = LCase(Name)
If pvObjUploadRequest.Exists(Name) Then
If pvObjUploadRequest.Item(Name).Exists("FileName" ) Then
FileNamePath = pvObjUploadRequest.Item(Name).Item("FileName" )
Else
FileNamePath = Empty
End If
Else
FileNamePath = Empty
End If
End Function


Public Function FileName(Name)
Dim strFileName

Name = LCase(Name)
If pvObjUploadRequest.Exists(Name) Then
If pvObjUploadRequest.Item(Name).Exists("FileName" ) Then
strFileName = pvObjUploadRequest.Item(Name).Item("FileName" )
FileName = Right(strFileName, Len(strFileName) - InStrRev(strFileName, "\" ))
Else
FileName = Empty
End If
Else
FileName = Empty
End If
End Function

End Class
%>

Kod:

<%
dim gun_tarih, ay, yil, ayadi, gun_sayi, gun_adi
gun_sayi=Weekday(date)
gun_tarih= Day(date)
ay=Month(date)
yil=Year(date)

Select Case(ay)
Case 1
ayadi="Ocak"
Case 2
Ayadi="Şubat"
Case 3
Ayadi="Mart"
Case 4
Ayadi="Nisan"
Case 5
Ayadi="Mayıs"
Case 6
Ayadi="Haziran"
Case 7
Ayadi="Temmuz"
Case 8
Ayadi="Ağustos"
Case 9
Ayadi="Eylül"
Case 10
Ayadi="Ekim"
Case 11
Ayadi="Kasım"
Case 12
Ayadi="Aralık"
End Select

Select Case(gun_sayi)
Case 1
gun_adi="Pazar"
Case 2
gun_adi="Pazartesi"
Case 3
gun_adi="Salı"
Case 4
gun_adi="Çarşamba"
Case 5
gun_adi="Perşembe"
Case 6
gun_adi="Cuma"
Case 7
gun_adi="Cumartesi"
End Select

Response.Write "Bugün : " & gun_tarih &" " & ayadi &" " & yil &" " & gun_adi
%>

Kod:

DSN ve ODBC ile
<%
Set conn=Server.CreateObject("adodb.connection" )
conn.CursorLocation=adUseClient ' requires use of adovbs.inc; numeric value is 3
conn.Open "DSN=your_DSN_name;UID=kathi;PWD=xxxxxx"
%>

OLEDB ile

<%
Set conn=Server.CreateObject("adodb.connection" )
conn.CursorLocation=adUseClient
DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=kathi;Data Source=xxx.world"
conn.Open DSNtemp
%>

Kolay Gelsin Arkadaşlar