asp dosya update sorunu lütfen acill

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Asp / Asp.NET asp dosya update sorunu lütfen acill

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

1
Cevap 252
Tıklama 0
Öne Çıkarma

1. sayfa

asp dosya update sorunu lütfen acill

Cevap Yaz

hasimucler

10 yıl

Konu Sahibi

sayfam natro firmasında 1 2 haftaya kadar resim doc pdf lerini yüklüyordum, şimdi yükleyemiyorum dosya seçilemedi hatası veriyor.

default.asp içerik

<% @ Language=VBScript CodePage="1254" LCID="1055"%>
<% Option Explicit %>


<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"
%>
<%
If Session("StrLogin") = "" Then
Response.Redirect "Giris.asp"
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Yönetim Paneli</title>
<meta http-equiv="content-type" content="application/xhtml+xml; charset=Windows-1254">
<link rel="stylesheet" type="text/css" media="screen" href="style.css">


<script type="text/javascript" src="editor/jscripts/tiny_mce/tiny_mce.js"></script>
<script type="text/javascript" src="editor/jscripts/tiny_mce/tiny_mce_ayar.js"></script>


<script src="../Script/jquery-latest.js"></script>
<script type="text/javascript" src="../Script/jquery.validate.js"></script>
<script>
$(document).ready(function(){
$("#commentForm").validate();
});
</script>
<script type="text/javascript" src="../Script/jquery.maskedinput-1.2.2.js"></script>
<script>
jQuery(function($){
$("#date").mask("99/99/9999");
$("#date2").mask("99/99/9999");
$("#time").mask("99:99");
$("#tel").mask("(999)9999999");
$("#faks").mask("(999)9999999");
});
</script>

<script type="text/javascript" src="../script/highslide-with-html.js"></script>
<link rel="stylesheet" type="text/css" href="../script/highslide.css" />

<script>
function Onay(Url) {
if (confirm("Kayıt Silinsin mi?")) {
document.location = Url;
}
}
</script>
<script>
function OnayT(Url) {
if (confirm("Kayıt İçeriği Temizlensin mi?")) {
document.location = Url;
}
}
</script>

<script language="JavaScript">
function pick(symbol){
document.getElementById('fekle').value = symbol;
}
function pickarti(symbol){
document.getElementById('fekle').value += symbol;
}
</script>

</head>
<body>
<div id="container">
<div class="ust"></div>
<div class="menu"></div>
<div class="orta">
<table cellpadding="0" cellspacing="0">
<tr>
<td class="td1" valign="top">
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=Default.asp" data-href="Default.asp">Hoşgeldiniz <%=Session("StrIsim")%></a></div>
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=Default.asp" data-href="Default.asp">Ana Sayfa</a></div>
<%
If Session("YetkiHBR") = "True" Then
%>
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=Default.asp?p=Haber" data-href="Default.asp?p=Haber">Haberler</a></div>
<%
End If
If Session("YetkiDYR") = "True" Then
%>
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=Default.asp?p=Duyuru" data-href="Default.asp?p=Duyuru">Duyurular</a></div>
<%
End If
If Session("YetkiSYF") = "True" Then
%>
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=Default.asp?p=Sayfa" data-href="Default.asp?p=Sayfa">Bağımsız Sayfalar</a></div>
<%
End If
If Session("YetkiUMN") = "True" Then
%>
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=Default.asp?p=UstMenu" data-href="Default.asp?p=UstMenu">Üst Menü Sayfaları</a></div>
<%
End If
If Session("YetkiBTN") = "True" Then
%>
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=Default.asp?p=Buton" data-href="Default.asp?p=Buton">Sağ ve Sol Butonlar</a></div>
<%
End If
If Session("YetkiGLR") = "True" Then
%>
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=Default.asp?p=Galeri" data-href="Default.asp?p=Galeri">Fotoğraf Galerisi</a></div>
<%
End If
If Session("YetkiAYR") = "True" Then
%>
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=Default.asp?p=Ayar" data-href="Default.asp?p=Ayar">Genel Ayarlar</a></div>
<%
End If
If Session("YetkiUPL") = "True" Then
%>
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=Default.asp?p=Upload" data-href="Default.asp?p=Upload">Dosya ve Resim Yükle</a></div>
<%
End If
If Session("YetkiUSR") = "True" Then
%>
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=Default.asp?p=Kullanici" data-href="Default.asp?p=Kullanici">Kullanıcı İşlemleri</a></div>

<%
End If
%>
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=Cikis.asp" data-href="Cikis.asp">Çıkış</a></div>
<div class="menuitem"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=<%=Web%>" target="_blank" data-href="<%=Web%>" target="_blank">Site Ana Sayfa</a></div>
</td>
<td class="td2" valign="top">
<%Call Mesaj(Request("m"))%>

<%If p = "" Then %>

<%Else If p = "Haber" Then %>

<%Else If p = "Duyuru" Then %>

<%Else If p = "Ihale" Then %>

<%Else If p = "Sayfa" Then %>

<%Else If p = "UstMenu" Then %>

<%Else If p = "Buton" Then %>

<%Else If p = "Galeri" Then %>

<%Else If p = "Protokol" Then %>
<div class="kutu690a">Protokol Listesi Yükle</div>
<%
If a="Kaydet" Then

Server.Execute("Protokol.asp")

' Dim Upload, path, File, Count, Uzanti
'
' Set Upload = Server.CreateObject("Persits.Upload.1")
' path = Server.MapPath("/img/")
'
' Upload.OverwriteFiles = false
' On Error Resume Next
'
' Upload.SetMaxSize 4048576
' Count = Upload.Save(path)
'
' Set File = Upload.Files(1)
'
' If File.Ext <> ".pdf" Then
'
' File.Delete
'
' Response.Redirect "Default.asp?p=Protokol&m=not"
'
' Else
'
' Upload.DeleteFile Server.MapPath("/yeni/docs/ProtokolListesi.pdf")
'
' File.MoveVirtual "/yeni/docs/"&"ProtokolListesi"&File.Ext
'
' Upload.Close
'
' Response.Redirect "Default.asp?p=Protokol&m=dOK"

' End If

End If
%>
<form name="Form" id="commentForm" enctype="multipart/form-data" method="POST" action="Protokol.asp?p=Protokol&a=Kaydet">
<input type="hidden" name="p" value="Protokol">
<table class="form" cellpadding="0" cellspacing="0">
<tr>
<td class="Label">Dosya :<br /></td>
<td class="Input"><input type="file" size="40" name="Dosya"></td>
</tr>
<tr>
<td class="Label"> </td>
<td class="Input"><input type="submit" value="Yükle"></td>
</tr>
</table>
</form>
<%Else If p = "Kullarici" Then %>

<%Else If p = "Ayar" Then %>

<%Else If p = "Upload" Then%>
<div class="kutu690a">Dosya ve Resim Yükle</div>
<%
If a="Kaydet" Then

Server.Execute("Protokol.asp")

Else If a="Sil" Then

VlkGenel.Open "Delete * From TblSayfaImg Where ID="&Request("ID"), VTB, 1, 3

Response.Redirect "Default.asp?p=Upload&m=hSIL"

End If : End If
%>
<form name="Form" id="commentForm" enctype="multipart/form-data" method="POST" action="Protokol.asp?p=Upload&a=Kaydet">
<input type="hidden" name="p" value="Upload">
<table class="form" cellpadding="0" cellspacing="0">
<tr>
<td class="Label">Dosya :<br /><span>Haberler için kullanılacak resim ölçüleri 580x374 piksel olmalıdır</span></td>
<td class="Input"><input type="file" size="40" name="Dosya"></td>
</tr>
<tr>
<td class="Label">Açıklama</td>
<td class="Input"><input type="text" name="DAciklama"></td>
</tr>
<tr>
<td class="Label"> </td>
<td class="Input"><input type="submit" value="Yükle"></td>
</tr>
</table>
</form>

<table class="form" cellpadding="0" cellspacing="0">
<tr>
<td class="Upload"> </td>
</tr>
<tr>
<td class="Upload">Resimler</td>
</tr>
<tr>
<td class="Upload">
<%
VlkGenel.Open "Select * From TblSayfaImg Where Uzanti='jpg' Or Uzanti='png' Order By ID DESC", VTB, 1, 3
i = 0
Do While i < 24 And Not VlkGenel.EOF
%>
<div class="ImgFile"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=javascript:Onay('Default.asp?p=Upload&a=Sil&ID=<%=VlkGenel("ID")%>')" title="Sil" data-href="javascript:Onay('Default.asp?p=Upload&a=Sil&ID=<%=VlkGenel("ID")%>')" title="Sil"><img src="../img/hbimg/<%=VlkGenel("Dosya")%>"></a></div>
<%
VlkGenel.Movenext : i = i+1 :Loop
VlkGenel.Close
%>
</td>
</tr>
<tr>
<td class="Upload">Dokümanlar</td>
</tr>
<tr>
<td class="Upload">
<%
VlkYardimci.Open "Select * From TblSayfaImg Where Uzanti='pdf' Or Uzanti='doc' Or Uzanti='docx' Order By ID DESC", VTB, 1, 3
Do While Not VlkYardimci.EOF
%>
<div class="ImgFile"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=113334752&url=javascript:Onay('Default.asp?p=Upload&a=Sil&ID=<%=VlkYardimci("ID")%>')" title="<%=VlkYardimci("DAciklama")%>" data-href="javascript:Onay('Default.asp?p=Upload&a=Sil&ID=<%=VlkYardimci("ID")%>')" title="<%=VlkYardimci("DAciklama")%>"><img src="img/pdficon.png"></a></div>

<%
VlkYardimci.Movenext : Loop
%>
</td>
</tr>
</table>
<%Else If p = "Kullanici" Then %>

<%End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If%>
</td>
</tr>
</table>
</div>
</div>
</body>
</html>

< Bu mesaj bu kişi tarafından değiştirildi hasimucler -- 5 Ocak 2016; 22:42:49 >

hasimucler

10 yıl

Konu Sahibi

protokol.asp dosyası

<% @ Language=VBScript %>

<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"

If Session("StrLogin") = "" Then
Response.Redirect "Giris.asp"
End If

Set Yukle = New DosyaYukleme

If Yukle.Value("Dosya")="" Then

response.redirect Request.ServerVariables("HTTP_REFERER")

End If

Yol = Server.Mappath("/upl")& "/"

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 Dosya = FSO.Getfile(Yol & DosyaIsmi)
Uzanti = LCase(FSO.GetExtensionName(Yol & DosyaIsmi))

If p = "Protokol" Then

If Uzanti <> "pdf" Then

Dosya.Delete

Set Dosya = Nothing
Set FSO = Nothing
Set Yukle = Nothing

Response.Redirect "Default.asp?p=Protokol&m=not"

Else

ProtokolFile = Server.MapPath("/docs/Listesi.pdf")

If FSO.FileExists(ProtokolFile) = True Then

FSO.DeleteFile ProtokolFile

End If

Dosya.Move ProtokolFile

Set Dosya = Nothing
Set FSO = Nothing
Set Yukle = Nothing

Response.Redirect "Default.asp?p=Protokol&m=dOK"

End If

Else If p = "Upload" Then

If Uzanti = "pdf" Or Uzanti = "doc" Or Uzanti = "docx" Then

Dosya.Move Server.MapPath("/docs/Doc_"&UploadSayi&"."&Uzanti)

VTB.Execute("INSERT INTO TblSayfaImg (Dosya, Uzanti, Tarih, DAciklama) VALUES('"&"Doc_"&UploadSayi&"."&Uzanti&"', '"&Replace(Uzanti,".","")&"', '"&SQLTarih(Date())&"', '"&Yukle.Value("DAciklama")&"');")

VlkYardimci.Open "Select * From TblAyar Where ID=1", VTB, 1, 3
VlkYardimci("UploadSayi") = CInt(UploadSayi)+1
VlkYardimci.Update

VlkYardimci.Close
VTB.Close

Set Dosya = Nothing
Set FSO = Nothing
Set Yukle = Nothing

Response.Redirect "Default.asp?p=Upload&m=dOK"

Else If Uzanti = "jpg" Or Uzanti = "png" Or Uzanti = "gif" Then

Dosya.Move Server.MapPath("/img/hbimg/Img_"&UploadSayi&"."&Uzanti)

VTB.Execute("INSERT INTO TblSayfaImg (Dosya, Uzanti, Tarih, DAciklama) VALUES('"&"Img_"&UploadSayi&"."&Uzanti&"', '"&Replace(Uzanti,".","")&"', '"&SQLTarih(Date())&"', '"&Yukle.Value("DAciklama")&"');")

VlkYardimci.Open "Select * From TblAyar Where ID=1", VTB, 1, 3
VlkYardimci("UploadSayi") = CInt(UploadSayi)+1
VlkYardimci.Update

VlkYardimci.Close
VTB.Close

Set Dosya = Nothing
Set FSO = Nothing
Set Yukle = Nothing

Response.Redirect "Default.asp?p=Upload&m=iOK"

Else If Uzanti <> "jpg" And Uzanti <> "png" And Uzanti <> "gif" And Uzanti <> "pdf" And Uzanti <> "doc" And Uzanti <> "docx" Then

Dosya.Delete

Response.Redirect "Default.asp?p=Upload&m=not"

End If : End If : End If

End If : End If
'-------------------------------------------------------------------------------------------------

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
%>

< Bu mesaj bu kişi tarafından değiştirildi hasimucler -- 5 Ocak 2016; 22:49:18 >

Bu mesajda bahsedilenler: @hasimucler

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Asp / Asp.NET asp dosya update sorunu lütfen acill