<%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
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.
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" )
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 >
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 Ol Şimdi DeğilÜ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.
< Bu mesaj bu kişi tarafından değiştirildi hasimucler -- 5 Ocak 2016; 22:42:49 >