bohthia gia directory system script se asp

Πληροφορίες σχετικές με την ASP, ASP.NET και με τις εφαρμογές που είναι γραμμένες με αυτήν.

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
mpempe
Δημοσιεύσεις: 156
Εγγραφή: 23 Ιουν 2003 02:48
Τοποθεσία: peloponisos

bohthia gia directory system script se asp

Δημοσίευση από mpempe » 17 Ιούλ 2003 16:48

Katevasa ena free script gia dhmioyrgia directory katalog. Einai poly aplo alla emena de me enoxlh giati tha to xrhsimopoihso se mia prosopikh erasitexnikh selida opoy tha kataxoro diafora agaphmena moy links.
Ayto poy tha hthela na ginei ana einai eykolo einai ta links px ton trapezon an einai 30 na bgazei sthn kathe selida apo 10 kai sto kato meros na bgazei links kai gia tis ypoloipes px

Σελίδα 1 | 2 | 3 |

είναι κάτι που το βλέπω σε ολλές σελίδες

Αν μπορεί κάποιος να με βοηθήσει είμαι πρόθυμος να πληρώσω (σε λογικά πλαίσια ομως ) για τον κόπο που θα κάνει.
Πείτε μου να σας στείλω σε zip τα αρχεία με τα script

ευχαριστω

User
Δημοσιεύσεις: 12
Εγγραφή: 04 Ιούλ 2003 15:38

bohthia gia directory system script se asp

Δημοσίευση από User » 18 Ιούλ 2003 17:00

'Τοποθέτησε αυτό πριν το ερώτημα στην database

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


iRowsPerPage = 2

'και τα παρακάτω πριν κλείσης την σύνδεση με την database

Sub ShowNavBar(rst)
Dim iPageCount
Dim iLoop
Dim sScriptName

Response.Write "<BR><BR>"
sScriptName = Request.ServerVariables("SCRIPT_NAME")

If page > 1 Then
Response.Write " <a href=" & sScriptName & "?page="
Response.Write (page -1) & "><img src='prev.gif' border=0></a>"
End If

iPageCount = rst.PageCount
Do Until iLoop > iPageCount
If iLoop = page Then
Response.Write " <B>" & CStr(iLoop) & "</B>"
Else
Response.Write " <a href=" & sScriptName & "?page=" & _
Cstr(iLoop) & ">" & iLoop & "</a>"
End If
iLoop = iLoop + 1
Loop

If Not rst.EOF Then
Response.Write " <a href=" & sScriptName & "?page="
Response.Write (page +1) & "><img src='next.gif' border=0></a><BR>"
Else
Response.Write "<BR>"
End If

Response.Write "Σελίδα " & page & " από " & iPageCount & "<BR>"
Response.Write rst.RecordCount & " Records"
End Sub

mpempe
Δημοσιεύσεις: 156
Εγγραφή: 23 Ιουν 2003 02:48
Τοποθεσία: peloponisos

bohthia gia directory system script se asp

Δημοσίευση από mpempe » 18 Ιούλ 2003 19:34

file user exaristo gia thn apanthsh soy
to problhma einai oti den katalaba se poio arxeio na balo ta script poy moy edoses
Tha mporoyses an soy estelna to script me mail na moy to ftiaxeis?

mpempe
Δημοσιεύσεις: 156
Εγγραφή: 23 Ιουν 2003 02:48
Τοποθεσία: peloponisos

bohthia gia directory system script se asp

Δημοσίευση από mpempe » 21 Ιούλ 2003 15:52

den katafera tipota telika

kamia allh gnomh?

User
Δημοσιεύσεις: 12
Εγγραφή: 04 Ιούλ 2003 15:38

bohthia gia directory system script se asp

Δημοσίευση από User » 21 Ιούλ 2003 17:18

mpempe έγραψε:file user exaristo gia thn apanthsh soy
to problhma einai oti den katalaba se poio arxeio na balo ta script poy moy edoses
Tha mporoyses an soy estelna to script me mail na moy to ftiaxeis?
Στο αρχείο που εμφανίζονται τα records από την database.

mpempe
Δημοσιεύσεις: 156
Εγγραφή: 23 Ιουν 2003 02:48
Τοποθεσία: peloponisos

bohthia gia directory system script se asp

Δημοσίευση από mpempe » 21 Ιούλ 2003 18:02

exo dio arxeia poy emfanizoyn apotelesmata apo db
to secCat.asp

<!--#include file="config.asp"-->
<%
dim catID
dim conn
dim rs
dim sql
dim title
dim url
dim sDesc
dim mainID



mainID = request.queryString("mainID")
catID = request.queryString("catID")

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")

Conn.Open dsn

SQL = "SELECT * from links where subCatID="&catID


%>
<link rel="stylesheet" href="style.css">
<table border=0 width=600 cellpadding="10" cellspacing="0">
<tr>
<td><b><a href=mainCat.asp?catID=<%=mainID%>><%=findSubj(mainID)%></a>--><%=findSecSubj(catID)%></b><br>
</td>
</tr>
<%
rs.Open SQL, Conn
if rs.eof and rs.bof then
response.write "<tr><td>Δεν υπάρχουν εγραφές σ' αυτή την κατηγορία</td></tr>"
else
do while not rs.eof
title = rs("title")
url = rs("url")
sDesc = rs("sDesc")
response.write "<tr bgcolor=#FFFFD9><td>"
response.write "<a href='"& url & "'>" & title & "<br></a>"
response.write sDesc & "</td></tr>"
rs.movenext
loop
end if
response.write "</table>"

'closing objects
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</table>


kai to search.asp

<!--#include file="config.asp"-->
<%

dim flag,color,useraction,element,myarray,t,oro,p,id,fid,tid
dim sql,conn,rs
dim resFromFunc



useraction=request.querystring("action")
fid = request("fid")
select case useraction
case "search"

sql = "select * from links where id>0 "

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")

Conn.Open dsn

oro = request.form("oro")
fid = request.form("fid")

for each element in request.form

if request.form(element)<>"" then

select case element
case "name"
sql=sql & " and title like '%" & Request.form(element) & "%'"
case "fsearch"
myarray=split(Request.form(element)," ")
if oro="" then
for t=0 to ubound(myarray)
sql=sql & " and sDesc like '%" & myarray(t) & "%'"
next
else
p=0
for t=0 to ubound(myarray)
if p=0 then
sql=sql & " and sDesc like '%" & myarray(t) & "%'"
p=1
else
sql=sql & " or sDesc like '%" & myarray(t) & "%'"
end if
next
end if
end select
end if
next
sql=sql & " order by title"
'response.write sql'***debug


rs.open sql,conn
if rs.eof and rs.bof then
response.write "<br><b>Δεν βρέθηκαν αποτελέσματα</b>"
else
response.write "<table width=400 border=0><th></th><th align=left>Όνομα</TH>"
response.write "<th align=left>Κατηγορία</TH><th align=left>Υποκατηγορία</TH>"
do while not rs.eof
id = rs("id")

if flag=0 then
flag=1
color="#D7D7D7"
else
flag=0
color="#B0C4EC"
end if
response.write "<TR bgcolor="& color & "><TD><img src=images/search.gif></td><td>"
response.write "<a href='"&rs("url")&"'>" & RS("title") & "</a></td><td>" & "<a href='mainCat.asp?catID="&RS("catID")&"'>" & findSubj(RS("catID")) & "</td><td>"
resFromFunc = findSecSubj(RS("subCatID"))
if resFromFunc = "No sub Topic" then
response.write resFromFunc & "</A></td></TR>"
else
response.write "<a href='secCat.asp?mainID=" &RS("catID")& "&catID=" & RS("subCatID") & "'>" & resFromFunc & "</A></td></TR>"
end if
rs.movenext
loop
response.write "</table>"
end if
end select
%>
<html>
<head>

<style>
a:hover{color:red}
td{font-size:14px}
</style>
<title>tel list</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1253"><body>

<table border=0 width=450>
<tr>
<td colspan=2 align=center><b>Αναζήτηση</b><br></tr></td>
<form action="search.asp?action=search" method=post>
<input type="hidden" name="fid" value='<%= fid %>'>
<tr>
<td> Αναζήτηση τίτλου:</td>
<td><input type="text" name="name" size=20 maxlength=20></tr></td>
<tr>
<td> Ελεύθερη αναζήτηση:<br>
Χωρήστε τις λέξεις με κενά<br>
Το κρητήριο AND λειτουργεί</td>
<td><input type="text" name="fsearch" size=30 maxlength=30></tr></td>
<tr>
<td> Χρήση OR </td>
<td><input type="checkbox" name="oro" value="1"></tr></td>
<tr><td colspan=2 align="center"><input type="submit" value="Αναζήτηση"></tr></td>
</table>

</body>
</html>

Άβαταρ μέλους
Cha0s
SysAdmin
Δημοσιεύσεις: 10242
Εγγραφή: 28 Ιούλ 2001 03:00

bohthia gia directory system script se asp

Δημοσίευση από Cha0s » 22 Ιούλ 2003 02:16

ouaaaa tosos kodikas gia kati toso aplo! :P

mpempe
Δημοσιεύσεις: 156
Εγγραφή: 23 Ιουν 2003 02:48
Τοποθεσία: peloponisos

bohthia gia directory system script se asp

Δημοσίευση από mpempe » 22 Ιούλ 2003 10:17

se poia shmeia tha prostheso ton kodika poy mou eipes

User
Δημοσιεύσεις: 12
Εγγραφή: 04 Ιούλ 2003 15:38

bohthia gia directory system script se asp

Δημοσίευση από User » 22 Ιούλ 2003 13:10

όλος ο κώδικας του secCat.asp
Ανέβασε μικρό Image για 'next.gif' και 'prev.gif'


<!--#include file="config.asp"-->
<%
dim catID
dim conn
dim rs
dim sql
dim title
dim url
dim sDesc
dim mainID

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


iRowsPerPage = 2

mainID = request.queryString("mainID")
catID = request.queryString("catID")

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")

Conn.Open dsn


SQL = "SELECT * from links where subCatID="&catID


%>
<link rel="stylesheet" href="style.css">
<table border=0 width=600 cellpadding="10" cellspacing="0">
<tr>
<td><b><a href=mainCat.asp?catID=<%=mainID%>><%=findSubj(mainID)%></a><p>--><%=findSecSubj(catID)%></b><br>
</td>
</tr>
<%
rs.Open SQL, Conn
if rs.eof and rs.bof then
response.write "<tr><td>Δεν υπάρχουν εγραφές σ' αυτή την κατηγορία</td></tr>"
else
do while not rs.eof
title = rs("title")
url = rs("url")
sDesc = rs("sDesc")
response.write "<tr bgcolor=#FFFFD9><td>"
response.write "<a href='"& url & "'>" & title & "<br></a>"
response.write sDesc & "</td></tr>"
rs.movenext
loop
end if
response.write "</table>"

Sub ShowNavBar(rst)
Dim iPageCount
Dim iLoop
Dim sScriptName

Response.Write "<BR><BR>"
sScriptName = Request.ServerVariables("SCRIPT_NAME")

If page > 1 Then
Response.Write " <a href=" & sScriptName & "?page="
Response.Write (page -1) & "><img src='prev.gif' border=0></a>"
End If

iPageCount = rst.PageCount
Do Until iLoop > iPageCount
If iLoop = page Then
Response.Write " <B>" & CStr(iLoop) & "</B>"
Else
Response.Write " <a href=" & sScriptName & "?page=" & _
Cstr(iLoop) & ">" & iLoop & "</a>"
End If
iLoop = iLoop + 1
Loop

If Not rst.EOF Then
Response.Write " <a href=" & sScriptName & "?page="
Response.Write (page +1) & "><img src='next.gif' border=0></a><BR>"
Else
Response.Write "<BR>"
End If

Response.Write "Σελίδα " & page & " από " & iPageCount & "<BR>"
Response.Write rst.RecordCount & " Records"
End Sub

'closing objects
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</table>

mpempe
Δημοσιεύσεις: 156
Εγγραφή: 23 Ιουν 2003 02:48
Τοποθεσία: peloponisos

bohthia gia directory system script se asp

Δημοσίευση από mpempe » 22 Ιούλ 2003 17:27

mou bgazei to parakato mhnhma lathous

Technical Information (for support personnel)

Error Type:
Microsoft VBScript runtime (0x800A01F4)
Variable is undefined: 'page'
/secCat.asp, line 15


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Page:
GET /secCat.asp

User
Δημοσιεύσεις: 12
Εγγραφή: 04 Ιούλ 2003 15:38

bohthia gia directory system script se asp

Δημοσίευση από User » 22 Ιούλ 2003 17:37

Για δώσε έτσι.



<!--#include file="config.asp"-->
<%
dim catID
dim conn
dim rs
dim sql
dim title
dim url
dim sDesc
dim mainID



mainID = request.queryString("mainID")
catID = request.queryString("catID")

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")

Conn.Open dsn

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


iRowsPerPage = 2

SQL = "SELECT * from links where subCatID="&catID


%>
<link rel="stylesheet" href="style.css">
<table border=0 width=600 cellpadding="10" cellspacing="0">
<tr>
<td><b><a href=mainCat.asp?catID=<%=mainID%>><%=findSubj(mainID)%></a><p>--><%=findSecSubj(catID)%></b><br>
</td>
</tr>
<%
rs.Open SQL, Conn
if rs.eof and rs.bof then
response.write "<tr><td>Δεν υπάρχουν εγραφές σ' αυτή την κατηγορία</td></tr>"
else
do while not rs.eof
title = rs("title")
url = rs("url")
sDesc = rs("sDesc")
response.write "<tr bgcolor=#FFFFD9><td>"
response.write "<a href='"& url & "'>" & title & "<br></a>"
response.write sDesc & "</td></tr>"
rs.movenext
loop
end if
response.write "</table>"

Sub ShowNavBar(rst)
Dim iPageCount
Dim iLoop
Dim sScriptName

Response.Write "<BR><BR>"
sScriptName = Request.ServerVariables("SCRIPT_NAME")

If page > 1 Then
Response.Write " <a href=" & sScriptName & "?page="
Response.Write (page -1) & "><img src='prev.gif' border=0></a>"
End If

iPageCount = rst.PageCount
Do Until iLoop > iPageCount
If iLoop = page Then
Response.Write " <B>" & CStr(iLoop) & "</B>"
Else
Response.Write " <a href=" & sScriptName & "?page=" & _
Cstr(iLoop) & ">" & iLoop & "</a>"
End If
iLoop = iLoop + 1
Loop

If Not rst.EOF Then
Response.Write " <a href=" & sScriptName & "?page="
Response.Write (page +1) & "><img src='next.gif' border=0></a><BR>"
Else
Response.Write "<BR>"
End If

Response.Write "Σελίδα " & page & " από " & iPageCount & "<BR>"
Response.Write rst.RecordCount & " Records"
End Sub

'closing objects
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</table>

mpempe
Δημοσιεύσεις: 156
Εγγραφή: 23 Ιουν 2003 02:48
Τοποθεσία: peloponisos

bohthia gia directory system script se asp

Δημοσίευση από mpempe » 22 Ιούλ 2003 21:09

Mpa tipota de ginete
tora bgazei to parakato minima :cry:


Technical Information (for support personnel)

Error Type:
Microsoft VBScript runtime (0x800A01F4)
Variable is undefined: 'page'
/secCat.asp, line 23
Τελευταία επεξεργασία από το μέλος mpempe την 22 Ιούλ 2003 21:27, έχει επεξεργασθεί 1 φορά συνολικά.

Άβαταρ μέλους
Cha0s
SysAdmin
Δημοσιεύσεις: 10242
Εγγραφή: 28 Ιούλ 2001 03:00

bohthia gia directory system script se asp

Δημοσίευση από Cha0s » 22 Ιούλ 2003 21:13

Simperasma? Oloi PHP!!!! :kaloe: :kaloe: :kaloe:

exxexexeexexexe

plaka kano :hammer:

User
Δημοσιεύσεις: 12
Εγγραφή: 04 Ιούλ 2003 15:38

bohthia gia directory system script se asp

Δημοσίευση από User » 23 Ιούλ 2003 12:52

Mpempe Πρόσθεσε και το dim page κάτω από τα dim
Επίσης δεν κατάλαβα αν ρώτησες τι είναι καλύτερο php ή asp.

mpempe
Δημοσιεύσεις: 156
Εγγραφή: 23 Ιουν 2003 02:48
Τοποθεσία: peloponisos

bohthia gia directory system script se asp

Δημοσίευση από mpempe » 23 Ιούλ 2003 13:18

user to ekana alla pali tipota
an theleis steile moy se PM to email soy na soy steilo olo to script na to deis an mporei na ginei tipota.
An de ginete den peirazei ygeia.

Απάντηση

Επιστροφή στο “ASP, ASP.NET”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες