links_add_url.asp kodları:
<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> 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
'** Türkçeye Çevirenler: OgReTmEnLeRiM.NeT | Bülent KARAYAZI & UzmanWeb.Net | Adem TÜRK
'***********************************************************************
curpagetype = "uload"
%><!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_clsUpload.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<%
if trim(objUpload.Fields("cat").Value) = "" then
Response.Redirect("links.asp")
else
cat = cLng(objUpload.Fields("cat").Value)
end if
name = replace(ChkString(objUpload.Fields("name").Value,"title"), "''","'", 1, -1, 1)
url = ChkString(objUpload.Fields("url").Value,"url")
key = replace(ChkString(objUpload.Fields("key").Value,"title"), "''","'", 1, -1, 1)
Description = replace(ChkString(objUpload.Fields("des").Value,"message"), "''","'", 1, -1, 1)
Email = replace(ChkString(objUpload.Fields("mail").Value,"url"), "''","'", 1, -1, 1)
today = datetostr(strForumTimeAdjust)
banner = ChkString(objUpload.Fields("banner").Value,"url")
if banner = "http://" then banner = ""
uLoad = filename
'response.Write uString
set objUpload=nothing
strSQL = "SELECT CAT_ID FROM LINKS_SUBCATEGORIES WHERE SUBCAT_ID = " & cat
dim rsCategories
set rsCategories = server.CreateObject("adodb.recordset")
rsCategories.Open strSQL, my_Conn
parent = rsCategories("CAT_ID")
rsCategories.Close
set rsCategories = nothing
strSQL = "select UP_ACTIVE, UP_ALLOWEDUSERS from " & strTablePrefix & "UPLOAD_CONFIG where UP_LOCATION = 'link'"
dim rsUload
set rsUload = server.CreateObject("adodb.recordset")
rsUload.Open strSQL, my_Conn
uActive = rsUload("UP_ACTIVE")
uAllowed = rsUload("UP_ALLOWEDUSERS")
rsUload.Close
set rsUload = nothing
if trim(uLoad) <> "" and FSOenabled = true and strAllowUploads = 1 and uActive = 1 and mLev >= uAllowed then
banner = strHomeUrl & linkDir & parent & "/" & cat & "/" & uLoad
end if
if trim(uLoad) = "" then
sString = ""
end if
if len(trim(name)) = 0 then
sString = sString & "<li>Lütfen Site Adını Yazın</li>"
end if
if len(trim(URL)) <= 7 then
sString = sString & "<li>Lütfen Link (URL)'i Belirtin</li>"
else
Set RS=Server.CreateObject("ADODB.Recordset")
strSql="Select URL from LINKS where URL='" & URL & "'"
RS.Open strSql, my_Conn
if not rs.eof then
sString = sString & "<li>Bu Link (URL) Zaten Veritanında Var!</li>"
end if
RS.close
end if
if cat = "--Bir Kategori Seçin--" then
sString = sString & "<li>Websitenize Uygun Bir Kategori Seçin</li>"
end if
'if len(trim(key)) = 0 then
' sString = sString & "<li>Lütfen Anahtar Sözcük Yazın</li>"
'end if
if len(trim(Description)) = 0 then
sString = sString & "<li>Lütfen Website Açıklamasını Yazın</li>"
end if
if len(trim(Description)) > 255 then
sString = sString & "<li>Açıklamanız Çok Uzun.</li>"
end if
if len(trim(Email)) = 0 then
sString = sString & "<li>Lütfen Email Adresinizi Yazın</li>"
end if
if EmailField(Email) = 0 then
sString = sString & "<li>Geçerli Bir Email Adresi Yazın!</li>"
end if
if sString = "" then
session.Contents("uploadType") = ""
strSQL = "insert into LINKS (name, url, keyword, category, description, email, banner_url, post_date, parent_ID, show, badlink)"
strSQL = strSQL & " values"
strSql = strSQL & "('" & chkString(name, "SQLString") & "', '" & url & "', '" & chkString(key, "SQLString") & "', '" & cat & "', '" & chkString(description, "SQLString") & "', '" & chkString(email, "SQLString") & "', '" & banner & "', '" & today & "', '" & parent & "'"
if mlev=4 then
strSql = strSQL & ", 1"
else
strSql = strSQL & ", 0"
end if
strSql = strSQL & ", 0)"
my_Conn.Execute (strSQL)
'sString = sString & "<li>" & remotePathMapped & "\" & filename & "</li>"
if trim(uLoad) <> "" and FSOenabled = true and strAllowUploads = 1 and uActive = 1 and mLev >= uAllowed then
on error resume next
set fso = Server.CreateObject("Scripting.FileSystemObject")
dirPath = server.MapPath(linkDir) & "\"
if fso.FolderExists(dirPath & parent) = false then
fso.CreateFolder(dirPath & parent)
end if
if fso.FolderExists(dirPath & parent & "\" & cat) = false then
fso.CreateFolder(dirPath & parent & "\" & cat)
end if
if fso.FileExists(dirPath & uLoad) = true then
fso.MoveFile dirPath & uLoad, dirPath & parent & "\" & cat & "\" & uLoad
else
sString = sString & "<li>Resim Yüklenemedi!</li>"
end if
set fso = nothing
end if
%>
<center>
<font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>"><% if mlev=4 then%>Website veritabanına eklendi.
<%
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_GOLD = M_GOLD + " & 10
strSql = strSql & " WHERE MEMBER_ID=" & getMemberNumber(strDBNTUserName)
my_Conn.Execute (strSql)
%>
<%else%>Website İncelenecektir.<br>
Website incelendikten sonra 1 hafta içerisinde ilgili kategoriye eklenecektir.<%end if%></font><br>
<br>
<%= "<ul>" & sString & "</ul>" %>
<table border=0 cellpadding=0 cellspacing=0 valign=top align=center width=500>
<tr>
<td valign=top>
<%mwpThemeBlock_open()%>
<tr>
<td bgcolor="<% =strForumCellColor %>" valign="middle" width=100%>
<table border="0" cellpadding="4" cellspacing="0" width="95%" align="center">
<tr>
<td valign=top width=30%>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Adı:</font></b>
</td>
<td valign=top align=left width=70%>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><%Response.write replace(chkString(name,"display"), "''","'", 1, -1, 1) %></font>
</td>
</tr>
<tr>
<td valign=top>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">URL:</font></b>
</td>
<td valign=top align=left>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><% Response.write replace(chkString(URL,"display"), "''","'", 1, -1, 1) %></font>
</td>
</tr>
<tr>
<td valign=top>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Anahtar Sözcük:</font></b>
</td>
<td valign=top align=left>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><% Response.write replace(chkString(key,"display"), "''","'", 1, -1, 1) %></font>
</td>
</tr>
<tr>
<td valign=top>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Email:</font></b>
</td>
<td valign=top align=left>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><% Response.write replace(chkString(Email,"display"), "''","'", 1, -1, 1) %></font>
</td>
</tr>
<tr>
<td valign=top>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Açıklama:</font></b>
</td>
<td valign=top>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><% Response.write replace(chkString(Description,"display"), "''","'", 1, -1, 1) %></font>
</td>
</tr>
<% if banner <> "" then%>
<tr>
<td valign=top>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Simge (Banner):</font></b>
</td>
<td valign=top>
<img src=<% Response.write replace(chkString(banner,"display"), "'","", 1, -1, 1) %> border=0>
</td>
</tr>
<% end if %>
</table>
</td>
</tr>
<%mwpThemeBlock_close()%>
</td>
</tr>
</table>
<p><a href="links.asp"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>">Linkler Kategorisine Geri Dön</font> </a></p>
</center>
<meta http-equiv="Refresh" content="1; URL=links.asp">
<%else
'They have made an error, delete their upload, if there is one
if FSOenabled = true and strAllowUploads = 1 then
on error resume next
set fso = Server.CreateObject("Scripting.FileSystemObject")
dirPath = server.MapPath(linkDir) & "\" & uLoad
if fso.FileExists(dirPath) = true then
' fso.DeleteFile dirPath
end if
set fso = nothing
end if
%>
<br>
<table border=0 cellpadding=0 cellspacing=0 valign=top align=center width=95%>
<tr>
<td valign=top>
<%mwpThemeBlock_open()%>
<tr>
<td bgcolor="<% =strForumCellColor %>" valign="middle" width=100%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td valign=top align=center>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Bir Sorun Var!</font></p>
<table align="center" border="0">
<tr>
<td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<ul>
<% =sString %>
</ul>
</font></td>
</tr>
</table>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)">Geri Dönün ve Gerekli Verileri Doldurun</a></font></p>
</td>
</tr>
</table>
</td>
</tr>
<%mwpThemeBlock_close()%>
</td>
</tr>
</table>
<%end if%>
<br>
<!--#INCLUDE FILE="inc_footer.asp" -->
Konu: Eklediğim Linkler Görünmüyor [Çözüldü] (Okunma sayısı 1360 defa)
Temmuz 20, 2007, 16:23:14 ÖS