Arama butonu
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
1
Cevap
250
Tıklama
0
Öne Çıkarma
asp dosya update sorunu lütfen acill
H
10 yıl
Er
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 %>
<!--#include virtual="/inc/Ayar.asp"-->
<!--#include virtual="/inc/Filtre.asp"-->
<%
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">

<!-- TinyMCE Metin Editörü -->
<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>
<!-- /TinyMCE Metin Editörü -->

<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 %>
<!--#include file="Haber.asp"-->
<%Else If p = "Duyuru" Then %>
<!--#include file="Duyuru.asp"-->
<%Else If p = "Ihale" Then %>
<!--#include file="Ihale.asp"-->
<%Else If p = "Sayfa" Then %>
<!--#include file="Sayfa.asp"-->
<%Else If p = "UstMenu" Then %>
<!--#include file="UstMenu.asp"-->
<%Else If p = "Buton" Then %>
<!--#include file="Buton.asp"-->
<%Else If p = "Galeri" Then %>
<!--#include file="Galeri.asp"-->
<%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 %>
<!--#include file="Ayar.asp"-->
<%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 %>
<!--#include file="Kullanicilar.asp"-->
<%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>

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil





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

H
10 yıl
Er
Konu Sahibi

protokol.asp dosyası


<% @ Language=VBScript %>
<!--#include virtual="/inc/Ayar.asp"-->
<%
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
DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.