<%
'##########################
'# Zenta Arama Motoru 2.0
'# Edited ßy Mepring.
'# Mepring@Mepring.Net
'# /Server irc.Chat.tC
'##########################
%>
<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Buffer = True%>
<%
IF NOT Request.Cookies(""&Session.SessionID&"")("Admin") = "true" Then
Response.Redirect "default.asp"
End If
Function ChkString(string)
if string = "" then string = " "
ChkString = Replace(string, "'", "''")
End Function
%>
<%
sub post
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open StrConn
Set objRec2 = Server.CreateObject ("ADODB.Recordset")
%>
<%
strSql = "update admin set [Name]='" & request.form("name") & "',[Password]='" & request.form("password") & "' where [ID]= " & request.form("id")
objConn.Execute (StrSql)
Set objRec2 = Nothing
objConn.Close
Set objConn = Nothing
response.redirect "admin_duzenle.asp?mode=done"
end sub
%>
<% sub form
Dim conn1 ' ADO connection
Dim sql1 ' ADO recordset
Set Conn1 = Server.CreateObject ("ADODB.Connection")
Conn1.Open StrConn
Set sql1 = Conn1.Execute("SELECT * FROM admin WHERE id=1 ")
%>
<%
Set objRec2 = Nothing
Conn1.Close
Set sql1 = Nothing
end sub
%>
<% sub done %>
Bilgileriniz başarıyla değiştirildi!
<% end sub %>
<%
select case Request.QueryString("mode")
case "post"
Call post
case "done"
Call done
Case Else
Call Form
End Select
%>
<%End Sub
Sub Login
set objConn= Server.CreateObject("ADODB.Connection")
set objRec = server.CreateObject("ADODB.RecordSet")
objConn.Open strConn
strSql ="SELECT * from admin where Name = '" & Request.Form("User") & "' and password = '" & Request.Form("Password") &"'"
set objRec = objConn.Execute (StrSql)
If objRec.BOF or objRec.EOF then
Response.Write "Geçersiz kullanıcı adı veya şifre
"
Else
Response.Cookies(""&Session.SessionID&"") ("Admin") = "true"
Response.redirect "modlook.asp"
End If
End Sub
%>
<%
select case Request.QueryString("mode")
case "login"
Call Login
case "show"
Call Form
Case Else
Call Form
End Select
%>
ßy Mepring Mepring@Mepring.Net wWw.Chat.tC iRc.Chat.TC
<%
'##########################
'# Zenta Arama Motoru 2.0
'# Edited ßy Mepring.
'# Mepring@Mepring.Net
'# /Server irc.Chat.tC
'##########################
%>
<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Buffer = True%>
<%
IF NOT Request.Cookies(""&Session.SessionID&"")("Admin") = "true" Then
Response.Redirect "default.asp"
End If
Function ChkString(string)
if string = "" then string = " "
ChkString = Replace(string, "'", "''")
End Function
%>
Sisteme giriş yaptınız!
Lütfen menüden yapmak istediğiniz işlemi seçiniz.
ßy Mepring Mepring@Mepring.Net wWw.Chat.tC iRc.Chat.TC
<%
'##########################
'# Zenta Arama Motoru 2.0
'# Edited ßy Mepring.
'# Mepring@Mepring.Net
'# /Server irc.Chat.tC
'##########################
%>
<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Buffer = True%>
<%
IF NOT Request.Cookies(""&Session.SessionID&"")("Admin") = "true" Then
Response.Redirect "default.asp"
End If
Function ChkString(string)
if string = "" then string = " "
ChkString = Replace(string, "'", "''")
End Function
%>
Zenta Site İçi Arama Motoru v1.0
(Buraya logonuzu veya sık kullandığınız linkleri yerleştirebilirsiniz).
.
.
.
.
ßy Mepring Mepring@Mepring.Net wWw.Chat.tC iRc.Chat.TC
<%
'##########################
'# Zenta Arama Motoru 2.0
'# Edited ßy Mepring.
'# Mepring@Mepring.Net
'# /Server irc.Chat.tC
'##########################
%>
<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Buffer = True%>
<%
IF NOT Request.Cookies(""&Session.SessionID&"")("Admin") = "true" Then
Response.Redirect "default.asp"
End If
Function ChkString(string)
if string = "" then string = " "
ChkString = Replace(string, "'", "''")
End Function
%>
<%
select case Request.querystring("mode")
case "edit"
Call edit
case "list"
Call list
case "Form"
Call Form
Case Else
Call list
End Select
%>
<% sub edit
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open StrConn
Set objRec2 = Server.CreateObject ("ADODB.Recordset")
%>
<%
strSql = "update search set [name]='" & request.form("name") & "',[keywords]='" & request.form("keywords") & "',[dis]='" & request.form("dis") & "',//harikasozler05.tr.gg/Yeni-.htm='" & request.form("url") & "' where [id]= " & request.form("id")
objConn.Execute (StrSql)
Set objRec2 = Nothing
objConn.Close
Set objConn = Nothing
response.redirect "site_duzenle.asp?mode=list"
end sub
%>
<%
sub form
Dim conn1 ' ADO connection
Dim sql1 ' ADO recordset
Dim edit
Set Conn1 = Server.CreateObject ("ADODB.Connection")
Conn1.Open StrConn
edit = Request.form("id")
Set sql1 = Conn1.Execute("SELECT * FROM search WHERE id=" & edit & ";")
%>
">
<%
Set sql1 = Nothing
Conn1.Close
Set Conn1 = Nothing
end sub %>
<% sub list
Dim conn1 ' ADO connection
Dim rstSimple ' ADO recordset
Set Conn1 = Server.CreateObject ("ADODB.Connection")
Conn1.Open StrConn
'sql record set
Set rstSimple = Conn1.Execute("SELECT * FROM search")
%>
ID
Site Adı
Site Adresi
Anahtar Kelimeler
Açıklama
İşlem
<%
Do While Not rstSimple.EOF
%>
<%
rstSimple.MoveNext
Loop
%>
<%
rstSimple.Close
Set rstSimple = Nothing
conn1.Close
Set conn1 = Nothing
end sub%>
ßy Mepring Mepring@Mepring.Net wWw.Chat.tC iRc.Chat.TC
<%
'##########################
'# Zenta Arama Motoru 2.0
'# Edited ßy Mepring.
'# Mepring@Mepring.Net
'# /Server irc.Chat.tC
'##########################
%>
<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Buffer = True%>
<%
IF NOT Request.Cookies(""&Session.SessionID&"")("Admin") = "true" Then
Response.Redirect "default.asp"
End If
Function ChkString(string)
if string = "" then string = " "
ChkString = Replace(string, "'", "''")
End Function
%>
<%
select case Request.querystring("mode")
case "add"
Call add
case "Form"
Call Form
Case Else
Call Form
End Select
%>
<%
sub add
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open StrConn
Set objRec2 = Server.CreateObject ("ADODB.Recordset")
%>
<%
strSql = "insert into search (name, url, keywords, dis) values ('"
strSql = StrSql & Request.Form("name") & "', '"
strSql = StrSql & Request.Form("url") & "', '"
strSql = StrSql & Request.Form("keywords") & "', '"
strSql = StrSql & Request.Form("dis") & "')"
objConn.Execute (StrSql)
%>
<% response.redirect "site_duzenle.asp" %>
<%
Set objRec2 = Nothing
objConn.Close
Set objConn = Nothing
end sub
%>
<% sub form %>
<% end sub %>
ßy Mepring Mepring@Mepring.Net wWw.Chat.tC iRc.Chat.TC
<%
'##########################
'# Zenta Arama Motoru 2.0
'# Edited ßy Mepring.
'# Mepring@Mepring.Net
'# /Server irc.Chat.tC
'##########################
%>
<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Buffer = True%>
<%
IF NOT Request.Cookies(""&Session.SessionID&"")("Admin") = "true" Then
Response.Redirect "default.asp"
End If
Function ChkString(string)
if string = "" then string = " "
ChkString = Replace(string, "'", "''")
End Function
%>
<%
dim StrConn
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = StrConn
%>
<%
Dim I
Dim iRecordToDelete
Dim strSQL
Dim objRecordset
Set objRecordset = Server.CreateObject("ADODB.Recordset")
iRecordToDelete = Request.form("id")
If IsNumeric(iRecordToDelete) Then
iRecordToDelete = CLng(iRecordToDelete)
Else
iRecordToDelete = 0
End If
strSQL = "SELECT * FROM search WHERE id=" & iRecordToDelete & ";"
objRecordset.Open strSQL, DB_CONNECTIONSTRING, adOpenKeyset, adLockPessimistic, adCmdText
If Not objRecordset.EOF Then
objRecordset.MoveFirst
objRecordset.Delete adAffectCurrent
End If
If iRecordToDelete <> 0 Then
Response.redirect "site_sil.asp?mode=form"
End If
objRecordset.Close
Set objRecordset = Nothing
%>
<% sub form
Dim conn1 ' ADO connection
Dim rstSimple ' ADO recordset
Set Conn1 = Server.CreateObject ("ADODB.Connection")
Conn1.Open StrConn
'sql record set
Set rstSimple = Conn1.Execute("SELECT * FROM search")
%>
ID
Site Adı
Site Adresi
Anahtar Kelimeler
Tanım
İşlem
<%
Do While Not rstSimple.EOF
%>
<%
rstSimple.MoveNext
Loop
%>
<%
rstSimple.Close
Set rstSimple = Nothing
conn1.Close
Set conn1 = Nothing
end sub%>
<%
select case Request.QueryString("mode")
case "delete"
Call delete
case "Form"
Call Form
Case Else
Call Form
End Select
%>
ßy Mepring Mepring@Mepring.Net wWw.Chat.tC iRc.Chat.TC