MaxWebPortal Dosya Kodları Güncelleme Bölümü

[AdmiN]

ÖNEMLİ: Bu mesajın devamında kodlarında güncelleme istenen dosyaların güncellenmiş hali yayınlanacaktır.Bu konuya istek yazabilirsiniz.Fakat konunun istek hattı karmaşası olmaması için, istediğiniz kodlar yazıldığında istek yazınız silinir.Bu konunun içinde kendi düzelttiğini dosya kodlarını da yayınlayabilirsiniz.

Bazı dosyalarda tablo isimlerinden dolayı sayfa hatalı olabiliyor.Türkçeleştirme yaparken portalı bir kaç sunucuda test ettik.Bazı sunucularda ta vermezken, bazı sunucularda tablo isimlerinin bazılarının küçük harfli yazılmasından dolayı hata verdi.Bu hataların nasıl giderileceği konusunda TÜM HATA MESAJLARININ ÇÖZÜMÜ forumunda açıklamalar yaptım.Bu foruma bakarsanız ne kadar emek harcandığını görürsünüz.
Ama hiç bir emek harcamadan şurda hata var diye foruma konu açıyorsunuz.Şunu belirteyim, maxwebportal (skyportal değil) kullanacak olan bir kişinin temel kodlama bilgisi olması gerekir. Çünkü portalda bir çok kodlama hatası var.600 tame dosyanın kodlarının kontrol edip düzeltme yapmamız da çok kolay bişey değil.Yani buradaki çevirici yapanlar bu işi bilmiyor diye düşünmeyin.

Aşağıdaki düzenlenmiş dosya kodlar 2.0 ve üst sürümlerde çalışır, bu kodlar hatalı dosyaların düzeltilmiş halidir.

[AdmiN]

dl_search.asp dosyası güncellenmiş kodları.

Kod: [Seç]

<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> Copyright (C) 2004-2005 Ken Smiley (PCAKen) All Rights Reserved
'<>
'<> By using this program, you are agreeing to the terms of the
'<> GNU General Public License.
'<>
'<> This program is free software; you can redistribute it and/or
'<> modify it under the terms of the GNU General Public License
'<> as published by the Free Software Foundation; either version 2
'<> of the License, or any later version.
'<>
'<> All copyright notices regarding MaxWebPortal must remain intact
'<> in the scripts and in the outputted HTML.
'<> The "powered by" text/logo with a link back to
'<> http://www.maxwebportal.info in the footer of the pages MUST
'<> remain visible when the pages are viewed on the internet or intranet.
'<>
'<> Support can be obtained from support forums at:
'<> http://www.maxwebportal.info
'<>
'<> Email: maxweb@maxwebportal.info
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'***********************************************************************
'** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'** Türkçeye Çeviren OgReTmEnLeRiM.NeT | Bülent KARAYAZI
'***********************************************************************
CurPageType = "Download-Dosyalar"
CurPageInfoChk = "1"
function CurPageInfo ()
strOnlineQueryString = ChkActUsrUrl(Request.QueryString)
PageName = "Arıyor"
PageAction = "Dosya<br>"
PageLocation = "dl_search.asp"
CurPageInfo = PageAction & " " & "<a href=" & PageLocation & ">" & PageName & "</a>"

end function
%>
<!-- #INCLUDE FILE="config.asp" -->
<!-- #INCLUDE FILE="inc_functions.asp" -->
<!-- #INCLUDE FILE="dl_functions.asp" -->
<!-- #INCLUDE FILE="inc_top.asp" -->

<!-- #INCLUDE FILE="inc_ADOVBS.asp" -->
<%
search = ChkString(Request("search"), "SQLString")
show = Request("num")
mwpThemeTableCustomCode = " border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" align=""center"" width=""99%"""
mwpThemeSmallBlock_open()%>
  <tr>
    <td width="100%"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <img src="Images/nav_icon.gif" align="absbottom" border="0"> <a href="default.asp">Ana Sayfa</a> >> <a href="dl.asp">Download</a> >> Arama Sonuçları: <%= search %>
    </font></td>
  </tr>
<%mwpThemeSmallBlock_close()%><br>

<table border="0" width="99%" align="center">
<tr>
<td width="180" valign="top"><!-- #include file="dl_menu.asp" --></td>
<td width="100%" valign="top">
<%
mwpThemeBlock_open()
response.write "<br><tr><td align=""left"">"
if show = "10" then
  strSQL = "select * from DL where Keyword like'%" & search & "%' or DESCRIPTION like '%" & search & "%' and show=1 order by DL_ID DESC"


Dim iPageSize       
Dim iPageCount     
Dim iPageCurrent   
Dim strOrderBy     
Dim strSQL         
Dim objPagingConn   
Dim objPagingRS     
Dim iRecordsShown   
Dim I               


iPageSize = 10
'set page size

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
strOrderBy = "DL_id"
Else
strOrderBy = Request.QueryString("order")
End If


Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open strSQL, my_Conn, adOpenStatic, adLockReadOnly, adCmdText


reccount = objPagingRS.recordcount
iPageCount = objPagingRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
Response.Write "<center><font color=red size=3>Kayıt bulunamadı!</font></center>"
Else
objPagingRS.AbsolutePage = iPageCurrent

%>
<center><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>+1"><b>Arama Sonuçları: </b></font><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>+1" color="#FF0000"><%=reccount%><% if reccount = 1 then %> dosyada<% else %> dosyada<% end if %><b> <%=search%></b></font><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="#FF0000"> bulundu </center>

<%

iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
dagar=DateDiff("d", Date, strtodate(objPagingRS("post_Date")))+7

strDescription = objPagingRS("DESCRIPTION")
strDLName = objPagingRS("NAME")
intDLID = objPagingRS("DL_ID")
intHit = objPagingRS("HIT")
strPostDate = strtodate(objPagingRS("POST_DATE"))
dateSince=DateDiff("d", Date(), strPostDate)+7

call displayDL()

iRecordsShown = iRecordsShown + 1
objPagingRS.MoveNext
Loop
%>


<%
End If

objPagingRS.Close
Set objPagingRS = Nothing

If iPageCurrent <> 1 Then
%>

<a HREF="DL_search.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&search=<%=search%>&num=<%=show%>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>">Önceki</font></a>
   <%
End If

If iPageCurrent < iPageCount Then
%>
<a HREF="DL_search.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&search=<%=search%>&num=<%=show%>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>">Sonraki</font></a>
</center>
<%
End If


%>
<center>
<font face="<%= strDefaultFontFace %>" size="<%= strFooterFontSize %>">Sayfa <b><%= iPageCurrent %></b> / <b><%= iPageCount %></b> </font>
</center>

<%
else
if show = "20" then
  strSQL = "select * from DL where Keyword like'%" & search & "%' or DESCRIPTION like '%" & search & "%' and show=1 order by DL_ID DESC"


iPageSize = 20
'set page size

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
strOrderBy = "DL_id"
Else
strOrderBy = Request.QueryString("order")
End If

Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open strSQL, my_Conn, adOpenStatic, adLockReadOnly, adCmdText


reccount = objPagingRS.recordcount
iPageCount = objPagingRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
Response.Write "<center><font color=red size=3>Kayıt bulunamadı!</font></center>"
Else
objPagingRS.AbsolutePage = iPageCurrent

%>
<center><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>+1"><b>Arama Sonuçları: </b></font><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>+1" color="#FF0000"><%=reccount%><% if reccount = 1 then %> dosyada<% else %> dosyada<% end if %><b> <%=search%></b></font><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="#FF0000"> bulundu</font></center>

<%

iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
dagar=DateDiff("d", Date, strtodate(objPagingRS("post_Date")))+7

strDescription = objPagingRS("DESCRIPTION")
strDLName = objPagingRS("NAME")
intDLID = objPagingRS("DL_ID")
intHit = objPagingRS("HIT")
strPostDate = strtodate(objPagingRS("POST_DATE"))
dateSince=DateDiff("d", Date(), strPostDate)+7

call displayDL()

iRecordsShown = iRecordsShown + 1
objPagingRS.MoveNext
Loop
%>


<%
End If

objPagingRS.Close
Set objPagingRS = Nothing

If iPageCurrent <> 1 Then
%>

<a HREF="dl_search.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&search=<%=search%>&num=<%=show%>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>">Önceki</font></a>
   <%
End If

If iPageCurrent < iPageCount Then
%>
<a HREF="dl_search.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&search=<%=search%>&num=<%=show%>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>">Sonraki</font></a>
</center>
<%
End If


%>
<center>
<font face="<%= strDefaultFontFace %>" size="<%= strFooterFontSize %>">Sayfa <b><%= iPageCurrent %></b> / <b><%= iPageCount %></b> </font>
</center>
<%
else
if show = "30" then
strSQL = "select * from DL where Keyword like'%" & search & "%' or DESCRIPTION like '%" & search & "%' and show=1 order by DL_ID DESC"
 
iPageSize = 30
'set page size

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
strOrderBy = "DL_ID"
Else
strOrderBy = Request.QueryString("order")
End If

Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open strSQL, my_Conn, adOpenStatic, adLockReadOnly, adCmdText


reccount = objPagingRS.recordcount
iPageCount = objPagingRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
Response.Write "<center><font color=red size=3>Kayıt bulunamadı!</font></center>"
Else
objPagingRS.AbsolutePage = iPageCurrent

%>
<center><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>+1"><b>Arama Sonuçları:</b></font><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>+1" color="#FF0000"> <%=reccount%><% if reccount = 1 then %> dosyada<% else %> dosyada<% end if %><b> <%=search%></b></font><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="#FF0000"> bulundu</center>
<%

iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
dagar=DateDiff("d", Date, strtodate(objPagingRS("post_Date")))+7

strDescription = objPagingRS("DESCRIPTION")
strDLName = objPagingRS("NAME")
intDLID = objPagingRS("DL_ID")
intHit = objPagingRS("HIT")
strPostDate = strtodate(objPagingRS("POST_DATE"))
dateSince=DateDiff("d", Date(), strPostDate)+7

call displayDL()

iRecordsShown = iRecordsShown + 1
objPagingRS.MoveNext
Loop
%>


<%
End If

objPagingRS.Close
Set objPagingRS = Nothing

If iPageCurrent <> 1 Then
%>

<a HREF="dl_search.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&search=<%=search%>&num=<%=show%>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>">Önceki</font></a>
   <%
End If

If iPageCurrent < iPageCount Then
%>
<a HREF="dl_search.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&search=<%=search%>&num=<%=show%>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>">Sonraki</font></a>
</center>
<%
End If


%>
<center>
<font face="<%= strDefaultFontFace %>" size="<%= strFooterFontSize %>">Sayfa <b><%= iPageCurrent %></b> / <b><%= iPageCount %></b> </font>
</center>
<%
end if
end if
end if
response.write "</td></tr>"
mwpThemeBlock_close()
%>
</td>
</tr>
</table>
<!-- #INCLUDE FILE="dl_affiliates.asp" -->
<!-- #INCLUDE FILE="inc_footer.asp" -->


[AdmiN]

dl_new.asp dosyası güncellenmiş kodları.

Kod: [Seç]

<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> Copyright (C) 2004-2005 Tom Nance (SkyDogg) All Rights Reserved
'<> Events Suite Copyright (C) 2004-2005 Ken Smiley All Rights Reserved
'<>
'<> By using this program, you are agreeing to the terms of the
'<> GNU General Public License.
'<>
'<> This program is free software; you can redistribute it and/or
'<> modify it under the terms of the GNU General Public License
'<> as published by the Free Software Foundation; either version 2
'<> of the License, or any later version.
'<>
'<> All copyright notices regarding MaxWebPortal must remain intact
'<> in the scripts and in the outputted HTML.
'<> The "powered by" text/logo with a link back to
'<> http://www.maxwebportal.info in the footer of the pages MUST
'<> remain visible when the pages are viewed on the internet or intranet.
'<>
'<> Support can be obtained from support forums at:
'<> http://www.maxwebportal.info
'<>
'<> Email: maxweb@maxwebportal.info
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'***********************************************************************
'** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
CurPageType = "downloadlar"
CurPageInfoChk = "1"
function CurPageInfo ()
strOnlineQueryString = ChkActUsrUrl(Request.QueryString)
PageName = "Yeni Eklenen Downloadlar"
PageAction = "görüntülenen<br>"
PageLocation = "dl_new.asp?" & strOnlineQueryString & ""
CurPageInfo = PageAction & " " & "<a href=" & PageLocation & ">" & PageName & "</a>"

end function
%>
<!-- #INCLUDE FILE="config.asp" -->
<!-- #INCLUDE FILE="inc_functions.asp" -->
<!-- #INCLUDE FILE="inc_top.asp" -->
<!-- #INCLUDE FILE="dl_functions.asp" -->

<%
mwpThemeTableCustomCode = " border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" align=""center"" width=""99%"""
mwpThemeSmallBlock_open()%>
  <tr>
    <td bgcolor="<%= strForumCellColor %>"width="95%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <img src="Images/nav_icon.gif" align="absbottom" border="0"> <a href="default.asp">Anasayfa</a> >> <a href="dl.asp">Downloadlar</a> >> Yeni Eklenenler
    </font></td>
  </tr>
<%mwpThemeSmallBlock_close()%><br>

<table border="0" width="99%" align="center">
<tr>
<td width="180" valign="top"><!-- #include file=dl_menu.asp --></td>
<td width="100%" valign="top">
<%
dim intDaysAgo
if Request.QueryString("daysago") <> "" or  Request.QueryString("daysago") <> " " then
if IsNumeric(Request.QueryString("daysago")) = True then
intDaysAgo = cLng(Request.QueryString("daysago")) 'mwpv2.1
else
my_Conn.close               'mwpv2.1
set my_Conn = nothing       'mwpv2.1
Response.Redirect("dl.asp") 'mwpv2.1
end if
end if

if intDaysAgo <> "" then
curDate = dateadd("d",-intDaysAgo,strForumTimeAdjust)

mwpThemeCellCustomCode = "align=""center"""
mwpThemeBlock_open()
response.write "<tr><td>"

strSQL = "SELECT DL_ID, NAME, URL, KEYWORD, DESCRIPTION, EMAIL, POST_DATE, HIT, CATEGORY, PARENT_ID, SHOW, BADLINK FROM DL WHERE POST_DATE LIKE '" & left(datetostr(curDate),8) & "%' AND show = 1 ORDER BY CATEGORY"

dim rsDay
set rsDay = server.CreateObject("adodb.recordset")
rsDay.Open strSQL, my_Conn
If rsDay.eof Then
Response.Write "<center><font color=red size=3>Dosya Bulunamadı!</font></center>"
end if
Do While Not rsDay.EOF
strDescription = rsDay("DESCRIPTION")
strDLName = rsDay("NAME")
strPostDate = strtodate(rsDay("POST_DATE"))
dateSince=DateDiff("d", strForumTimeAdjust, strPostDate)+7
intHit = rsDay("HIT")
intDLID = rsDay("DL_ID")


Call DisplayDL()
rsDay.MoveNext
Loop

rsDay.Close
Set rsDay = Nothing
response.write "</td></tr>"
mwpThemeBlock_close()
else

dim intDaysShown
intDaysShown = chkString(Request.QueryString("daysshown"),"sqlstring") 'mwpv2.1

if intDaysShown = 0 then intDaysShown = 7


mwpThemeTitle= "<b>Son  " &intDaysShown&" günde eklenenler.</b>"
mwpThemeCellCustomCode = "align=""center"""
mwpThemeBlock_open()
%>
      <tr><td align="center"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <% GetNewDL(intDaysShown)%>
      </font></td></tr>
<%
mwpThemeBlock_close()
end if
%>
<br>
</td>
</tr>
</table>
<!-- #INCLUDE FILE="dl_affiliates.asp" -->
<!-- #INCLUDE FILE="inc_footer.asp" -->
<%
function GetNewDL(daysShown)
dim i
%>
<table cellspacing=0 cellpadding=4>
<%
for i = 0 to daysShown - 1
curDate = dateadd("d",-i,strForumTimeAdjust)
strSQL = "SELECT count(DL_ID) as DLSCOUNT FROM DL WHERE POST_DATE LIKE '" & left(datetostr(curDate),8) & "%' AND show = 1"
set rsDay = server.CreateObject("adodb.recordset")
rsDay.Open strSQL, my_Conn
%>
  <tr>
    <td>•</td>
    <td> <font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href=dl_new.asp?daysago=<%=i%>><%= formatdatetime(curDate,1) %></a></font></td>
    <td> <font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">(<%=rsDay("DLSCOUNT")%>)</font></td>
  </tr>
<%
rsDay.Close
set rsDay = nothing
next
%>
</table>
<%
end function
%>



[AdmiN]

event_new.asp dosyası güncellenmiş kodları

Kod: [Seç]

<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> Copyright (C) 2004-2005 Tom Nance (SkyDogg) All Rights Reserved
'<> Events Suite Copyright (C) 2004-2005 Ken Smiley All Rights Reserved
'<>
'<> By using this program, you are agreeing to the terms of the
'<> GNU General Public License.
'<>
'<> This program is free software; you can redistribute it and/or
'<> modify it under the terms of the GNU General Public License
'<> as published by the Free Software Foundation; either version 2
'<> of the License, or any later version.
'<>
'<> All copyright notices regarding MaxWebPortal must remain intact
'<> in the scripts and in the outputted HTML.
'<> The "powered by" text/logo with a link back to
'<> http://www.maxwebportal.info in the footer of the pages MUST
'<> remain visible when the pages are viewed on the internet or intranet.
'<>
'<> Support can be obtained from support forums at:
'<> http://www.maxwebportal.info
'<>
'<> Email: maxweb@maxwebportal.info
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'###############################################################
'##
'## Modified for 'Events Suite' for MaxWebportal, by PCAKen (Ken Smiley)
'##
'###############################################################
'***********************************************************************
'** Copyright (C) 2001 - 2003 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
CurPageType = "Ajanda"
CurPageInfoChk = "1"
function CurPageInfo ()
strOnlineQueryString = ChkActUsrUrl(Request.QueryString)
PageName = "Yeni Eklenen Etkinlikler"
PageAction = "görüntülenen<br>"
PageLocation = "event_new.asp?" & strOnlineQueryString & ""
CurPageInfo = PageAction & " " & "<a href=" & PageLocation & ">" & PageName & "</a>"

end function
%>
<!-- #INCLUDE FILE="config.asp" -->
<!-- #INCLUDE FILE="inc_functions.asp" -->
<!-- #INCLUDE FILE="inc_top.asp" -->
<!--#INCLUDE FILE="events_functions.asp" -->
<script language="JavaScript" type="text/javascript" src="inc_jscode.js"></script>
<%
mwpThemeTableCustomCode = " border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" align=""center"" width=""99%"""
mwpThemeSmallBlock_open()%>
  <tr>
    <td bgcolor="<%= strForumCellColor %>"width="95%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <img src="Images/nav_icon.gif" align="absbottom" border="0"> <a href="default.asp">Anasayfa</a> >> <a href="events.asp">Ajanda</a> >> Yeni Eklenenler
    </font></td>
  </tr>
<%mwpThemeSmallBlock_close()%><br>

<table border="0" width="99%" align="center">
<tr>
<td width="180" valign="top"><!-- #include file="event_menu.asp" --></td>
<td width="100%" valign="top">
<%
dim intDaysAgo
if Request.QueryString("daysago") <> "" or  Request.QueryString("daysago") <> " " then
if IsNumeric(Request.QueryString("daysago")) = True then
intDaysAgo = cLng(Request.QueryString("daysago"))  'mwpv2.1
else
my_Conn.close                   'mwpv2.1
set my_Conn = nothing           'mwpv2.1
Response.Redirect("events.asp") 'mwpv2.1
end if
end if


if intDaysAgo <> "" then
curDate = dateadd("d",-intDaysAgo,strForumTimeAdjust)

mwpThemeCellCustomCode = "align=""center"""
mwpThemeTitle= "Etkinlik Başlığı"
mwpThemeBlock_open()
response.write "<tr><td>"

    %>
   
    <font align=center face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">   
     Detayları görmek için üzerine tıklayın</font>
    <%
strSQL = "SELECT Event_ID, DATE_ADDED, START_DATE, END_DATE, EVENT_TITLE, EVENT_DETAILS, ADDED_BY, PRIVATE, PENDING FROM portal_events WHERE PENDING = 0 AND PRIVATE = 0 AND DATE_ADDED LIKE '" & left(datetostr(curDate),8) & "%' ORDER BY Event_ID"




dim rsDay
set rsDay = server.CreateObject("adodb.recordset")
rsDay.Open strSQL, my_Conn
If rsDay.eof Then
Response.Write "<center><font color=red size=3>Kayıt Bulunamadı!</font></center>"
end if
Do While Not rsDay.EOF
    ShareCheck = "no"
strPicOwner = rsDay("ADDED_BY")
if strPicOwner = "0" or instr(strPicOwner,("|" & getMemberNumber(STRdbntUserName) & "|")) then

if instr(strPicOwner,("|" & getMemberNumber(STRdbntUserName) & "|")) then
ShareCheck = "ok"
end if

strpicTitle = rsDay("EVENT_TITLE")
strDESC = rsDay("EVENT_DETAIL")
intpicID = rsDay("Event_ID")
'intHit = rsDay("HIT")
strPostDate = strtodate(rsDay("DATE_ADDED"))
dateSince=DateDiff("d", strForumDateAdjust, strPostDate)+7
Response.Write "<center><font color=red size=3>1. Bölümü Oku!</font></center>"

'if not len(trim(rsDay("TURL"))) = 7 or rsDay("TURL") = "" then
                'strTURL = rsDay("TURL")
  'end if
'call displaypic()
Response.write(intpicID)
Response.Write("intpicID" & intpicID)
Response.Write "<center><font color=red size=3>2. Bölümü Oku!</font></center>"

end if
    %>
<tr>
<td align=center width="100%"> </td>
</tr>
<tr>
<td align=center width="100%"><a href="JavaScript:openWindow3('pop_event.asp?event_ID=<%=rsDay("Event_ID")%>')"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> <%=rsDay("Event_TITLE")%> - başlama tarihi <%=strtodate(rsDay("START_DATE"))%></font></a></td>
</tr>
<%


rsDay.MoveNext
Loop

rsDay.Close
Set rsDay = Nothing
response.write "</td></tr>"
mwpThemeBlock_close()
else

dim intDaysShown
intDaysShown = chkString(Request.QueryString("daysshown"),"sqlstring")  'mwpv2.1

if intDaysShown = 0 then intDaysShown = 7
mwpThemeTitle= "<b>Son " &intDaysShown&" günde eklenenler.</b>"
mwpThemeCellCustomCode = "align=""center"""
mwpThemeBlock_open()
%>
      <tr><td align="center"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <% GetNewEvent(intDaysShown)%>
      </font></td></tr>
<%
mwpThemeBlock_close()
end if%>
<br>
</td>
</tr>
</table>
<!-- #INCLUDE FILE="inc_footer.asp" -->
<%
function GetNewEvent(daysShown)
dim i
%>
<table cellspacing=0 cellpadding=4>
<%
for i = 0 to daysShown - 1
curDate = dateadd("d",-i,strForumTimeAdjust)
strSQL = "SELECT count(Event_ID) as EventsCOUNT FROM PORTAL_EVENTS WHERE PENDING = 0 and DATE_ADDED LIKE '" & left(datetostr(curDate),8) & "%' and Private = 0"
set rsDay = server.CreateObject("adodb.recordset")
rsDay.Open strSQL, my_Conn
%>
  <tr>
    <td>•</td>
    <td> <font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href=event_new.asp?daysago=<%=i%>><%= formatdatetime(curDate,1) %></a></font></td>
    <td> <font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">(<%=rsDay("EventsCOUNT")%>)</font></td>
  </tr>
<%
rsDay.Close
set rsDay = nothing
next
%>
</table>
<%
end function
%>



[AdmiN]

pic_new.asp dosyası güncellenmiş kodları

Kod: [Seç]


<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> Copyright (C) 2004-2005 Tom Nance (SkyDogg) All Rights Reserved
'<> Events Suite Copyright (C) 2004-2005 Ken Smiley All Rights Reserved
'<>
'<> By using this program, you are agreeing to the terms of the
'<> GNU General Public License.
'<>
'<> This program is free software; you can redistribute it and/or
'<> modify it under the terms of the GNU General Public License
'<> as published by the Free Software Foundation; either version 2
'<> of the License, or any later version.
'<>
'<> All copyright notices regarding MaxWebPortal must remain intact
'<> in the scripts and in the outputted HTML.
'<> The "powered by" text/logo with a link back to
'<> http://www.maxwebportal.info in the footer of the pages MUST
'<> remain visible when the pages are viewed on the internet or intranet.
'<>
'<> Support can be obtained from support forums at:
'<> http://www.maxwebportal.info
'<>
'<> Email: maxweb@maxwebportal.info
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'***********************************************************************
'** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
CurPageType = "Yeni Eklenen Resimler"
CurPageInfoChk = "1"
function CurPageInfo ()
strOnlineQueryString = ChkActUsrUrl(Request.QueryString)
PageName = "İnceliyor"
PageAction = "Yeni Resimleri "
PageLocation = "pic_new.asp?" & strOnlineQueryString & ""
CurPageInfo = PageAction & " " & "<a href=" & PageLocation & ">" & PageName & "</a>"

end function
%>
<!-- #INCLUDE FILE="config.asp" -->
<!-- #INCLUDE FILE="inc_functions.asp" -->
<!-- #INCLUDE FILE="inc_top.asp" -->
<!-- #INCLUDE FILE="pic_functions.asp" -->
<%
mwpThemeTableCustomCode = " border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" align=""center"" width=""99%"""
mwpThemeSmallBlock_open()%>
  <tr>
    <td width="100%"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <img src="Images/nav_icon.gif" align="absbottom" border="0"> <a href="default.asp">Ana Sayfa</a> >> <a href="pic.asp">Resimler</a> >> Yeni Eklenen Resimler
    </font></td>
  </tr>
<%mwpThemeSmallBlock_close()%><br>

<table border="0" width="99%" align="center">
<tr>
<td width="180" valign="top"><!-- #include file=pic_menu.asp --></td>
<td width="100%" valign="top">
<%
dim intDaysAgo
if Request.QueryString("daysago") <> "" or  Request.QueryString("daysago") <> " " then
if IsNumeric(Request.QueryString("daysago")) = True then
intDaysAgo = cLng(Request.QueryString("daysago"))
else
my_Conn.close
set my_Conn = nothing
Response.Redirect("pic.asp")
end if
end if


if intDaysAgo <> "" then
curDate = dateadd("d",-intDaysAgo,strForumTimeAdjust)

mwpThemeCellCustomCode = "align=""center"""
mwpThemeBlock_open()
response.write "<tr><td>"
strSQL = "SELECT PIC_ID, TITLE, POST_DATE, DESCRIPTION, HIT, COPYRIGHT, HIT, OWNER, TURL, CATEGORY, PARENT_ID, SHOW FROM PIC WHERE POST_DATE LIKE '" & left(datetostr(curDate),8) & "%' AND show = 1 ORDER BY CATEGORY"

dim rsDay
set rsDay = server.CreateObject("adodb.recordset")
rsDay.Open strSQL, my_Conn
If rsDay.eof Then
Response.Write "<center><font color=red size=3>Resim Bulunamadı!</font></center>"
end if
Do While Not rsDay.EOF
    ShareCheck = "no"
strPicOwner = rsDay("OWNER")
if strPicOwner = "0" or instr(strPicOwner,("|" & getMemberNumber(STRdbntUserName) & "|")) then

if instr(strPicOwner,("|" & getMemberNumber(STRdbntUserName) & "|")) then
ShareCheck = "ok"
end if

strpicTitle = rsDay("TITLE")
strDESC = rsDay("DESCRIPTION")
intpicID = rsDay("PIC_ID")
intHit = rsDay("HIT")
strPostDate = strtodate(rsDay("POST_DATE"))
dateSince=DateDiff("d", strForumDateAdjust, strPostDate)+7
if not len(trim(rsDay("TURL"))) = 7 or rsDay("TURL") = "" then
                strTURL = rsDay("TURL")
  end if
call displaypic()
end if
rsDay.MoveNext
Loop

rsDay.Close
Set rsDay = Nothing
response.write "</td></tr></table>"
mwpThemeBlock_close()
else

dim intDaysShown
intDaysShown = chkString(Request.QueryString("daysshown"),"sqlstring")

if intDaysShown = 0 then intDaysShown = 7
mwpThemeTitle= "<b>Son " &intDaysShown&" Günde Eklenen Resimler</b>"
mwpThemeCellCustomCode = "align=""center"""
mwpThemeBlock_open()
%>
      <tr><td align="center"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <% GetNewPic(intDaysShown)%>
      </font></td></tr></table></td></tr>
<%
mwpThemeBlock_close()
end if%>
<br>
</td>
</tr>
</table>
<!-- #INCLUDE FILE="pic_affiliates.asp" -->
<!-- #INCLUDE FILE="inc_footer.asp" -->
<%
function GetNewpic(daysShown)
dim i
%>
<table cellspacing=0 cellpadding=4>
<%
for i = 0 to daysShown - 1
curDate = dateadd("d",-i,strForumTimeAdjust)
strSQL = "SELECT count(PIC_ID) as PicturesCOUNT FROM PIC WHERE POST_DATE LIKE '" & left(datetostr(curDate),8) & "%' AND show = 1"
set rsDay = server.CreateObject("adodb.recordset")
rsDay.Open strSQL, my_Conn
%>
  <tr>
    <td>•</td>
    <td> <font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href=pic_new.asp?daysago=<%=i%>><%= formatdatetime(curDate,1) %></a></font></td>
    <td> <font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">(<%=rsDay("PicturesCOUNT")%>)</font></td>
  </tr>
<%
rsDay.Close
set rsDay = nothing
next
%>
</table>
<%
end function
%>



[AdmiN]

En İyi 5 Resim dosyası (inc_pic_eniyi.asp dosyası kodları)

Kod: [Seç]



<%
'***********************************************************************
'** copyright (c) 2001 - 2003 max yuan all rights reserved
'** Modül : UzmanWeb.Net
'***********************************************************************
dim featdesc, featpictitle, featurli, feathits, featpicid

featuredpic = 1

sub getfeaturedpic(fpic_id)

strsql = "select PIC_ID, TITLE, description, post_date, HIT, show from PIC where PIC_ID = " & fpic_id
dim rsfeat
nastr = "n/a"
set rsfeat = server.createobject("adodb.recordset")
rsfeat.open strsql, my_conn
if rsfeat.eof = true and rsfeat.bof = true then
featpictitle = nastr
featdesc = nastr
featurli = ""
feathits = nastr
else
featpictitle = rsfeat("TITLE")
featdesc = rsfeat("DESCRIPTION")
feathits = rsfeat("HIT")
featpicid = rsfeat("PIC_ID")
end if
rsfeat.close
set rsfeat = nothing


end sub



sub displaypic2
%>
<%end sub

getfeaturedpic(featuredpic)
inteniyi = 5

mwpthemetitle= "<b>En İyi  " &inteniyi& " Resim</b>"
mwpthemecellcustomcode = "align=""center"" colspan=""4"""
mwpthemeblock_open()%>
<tr><td>
<%
strsql = "select top " & inteniyi & " PIC_ID, title, url, keyword, description, post_date, HIT, category, parent_ID, show, BADLINK from PIC where show = 1 order by HIT desc"

dim rseniyi
set rseniyi = server.createobject("adodb.recordset")
rseniyi.open strsql, my_conn

do while not rseniyi.eof
strdescription = rseniyi("DESCRIPTION")
strpictitle = rseniyi("TITLE")
strpostdate = strtodate(rseniyi("post_date"))
datesince=datediff("d", date(), strpostdate)+7
inthit = rseniyi("HIT")
intpicid = rseniyi("PIC_ID")
    %>


   
       <tr><td align="center" valign="top" width="33%">
         <font face="<%= strdefaultfontface %>" size="<%= strdefaultfontsize %>" color="<%= strdefaultfontcolor %>"><b><a href="pic_display.asp?id=<%=intpicid%> "><%=left(strpictitle,28)%><br>
         <img src="pic_show.asp?picid=<% =intpicid%>&type=1" border="1" width="100" height="75"></a></b><br></font>
         
         <font face="<%= strdefaultfontface %>" size="<%= strdefaultfontsize-1 %>" color="<%= strdefaultfontcolor %>">
         <% if datesince >= 0 then response.write "<img src=images/new.gif>"%> <i>(Hit: <%=inthit%><% getrating(intpicid) %>)</i><br></font>
         <font face="<%= strdefaultfontface %>" size="<%= strdefaultfontsize %>" color="<%= strdefaultfontcolor %>">
        <%=left(strdescription,28)%>...</font></td></tr>

<%
rseniyi.movenext
loop

rseniyi.close
set rseniyi = nothing
%></td></tr>


<%mwpthemeblock_close()
%>



[demirbey_24]

merhaba ben asp den fazla anlamıyorum MaxWebPortal  2.12 yükledim yanlız bana bu hatayı veriyo yardımcı olurmusun veya hangi dosyadan nasıl yapacagımı anlatırsan sevinirim Teşekürler.


Active Server Pages error 'ASP 0113'

Script timed out

/default.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.