Notifikationer

Markér alle som læst Log ud

hojben Novice

25. juni 2002 - 21:48 Der er 23 kommentarer og
1 løsning

Tilføj eget link - funktion

Jeg mangler en "Tilføj link" i ASP og Access...

Hvem kan lave sådan en??

Synes godt om

crunch Nybegynder

25. juni 2002 - 21:54 #1

det har jeg liggende, har du en mail så sender jeg det lige..

Synes godt om

swordcat Nybegynder

25. juni 2002 - 21:54 #2

:O)

Synes godt om

hojben Novice

25. juni 2002 - 21:57 #3

webmaster@healingzonen.dk

MEN nu ved du vel godt at ALT skal være tilrådighed for alle andre oz ikke ;)

Synes godt om

crunch Nybegynder

25. juni 2002 - 22:07 #4

ok.

admin side:



<%
if request.querystring("function") = "addsearhengine" then
SQL1 = "INSERT INTO links (name, url) VALUES ('"&request("name")&"','"&request("url")&"')"
conn.execute(SQL1)
end if

if request.querystring("function") = "deletefile" then
SQL2 = "DELETE FROM links WHERE id = "&request("deletefile")&""
conn.execute(SQL2)
end if
%>

<html>
<body bgcolor="#FFFFFF">
<BR>
<form name="form1" method="post" action="links.asp?function=addsearhengine">
<b>Links:</b><br>
<%
SQL1 = "SELECT name, url, id FROM links ORDER BY name ASC"
set rs1 = conn.execute(SQL1)
do while not rs1.eof%>
<table border="0">
<tr>
<td width="500">
<%Response.Write "<a href="""&(rs1(1))&""" target=""blank"">"&(rs1(0))&"</a>"%>
</td>
<td width="20"><a href="links.asp?deletefile=<%Response.Write (rs1(2))%>&function=deletefile">slet</a></td>
</tr>
</table>
<%
rs1.movenext
loop
rs1.close
%>
<b><br><br><br> Tilføj adresse:<br></b>
<table width="90%" border="0"><tr>
<td>Beskrivelse : <b>
<input type="text" name="name">
</b>URL : <b>
<input type="text" name="url" value="http://">
</b><b>
</b><b>
<input type="submit" name="Submit2" value="ok">
</b></td>
</tr>
</table>
<b><b></b><b></b><br></b>
</form>
</body>
</html>

visningside:


<html>
<body>
<br>
<table width="580" border="0" align="center">
<tr>
<td>
<%
SQL6 = "SELECT name, url, id FROM links ORDER BY name ASC"
set rs6 = conn.execute(SQL6)
do while not rs6.eof
%>
<TABLE BORDER="0" width="95%"><TR><TD>
<%
Response.Write "<a href="""&(rs6(1))&""" target=""blank"">"&(rs6(0))&"</a>"
%>
</TD></TR></TABLE>
<%
rs6.movenext
loop
rs6.close
%>
</td></tr>
</table>
</body>
</html>

dine db felter:

tabelnavn: links
id - auto nummerering
name - tekst
url - tekst

Synes godt om

hojben Novice

25. juni 2002 - 22:10 #5

hvis du gider smide det hele incl. DB på mail(har ikke access på denne maskine) så smider jeg et link til det hele bagefter..

Synes godt om

hojben Novice

25. juni 2002 - 22:11 #6

og lige hvad der skal stå i dbstring.shtm ????

Synes godt om

crunch Nybegynder

25. juni 2002 - 22:17 #7

db strig er din database connection. sender dig lige et eksempel.

Synes godt om

hojben Novice

26. juni 2002 - 13:01 #8

Okay kigger på det en af de næste dage.. og vender tilbage..

Synes godt om

hojben Novice

28. juni 2002 - 12:17 #9

har kigget men det fungerer ikke ???

Synes godt om

crunch Nybegynder

30. juni 2002 - 22:37 #10

hvad får du af fejl ?

Synes godt om

hojben Novice

30. juni 2002 - 22:41 #11

http://www.healingzonen.dk/add/links.asp

admin.asp ligger også der.. og jeg har skullet indtaste manuelt i databasen..

Prøv selv :)

Synes godt om

hojben Novice

30. juni 2002 - 22:49 #12

bl. a. target= er helt hen i vejret.. :)
selv om du tilføjer kommer der intet i db.mdb

Men ingen synlige fejl... ???

Synes godt om

crunch Nybegynder

30. juni 2002 - 22:49 #13

ret lige din visningsside til:


<html>
<body>
<br>
<table width="580" border="0" align="center">
<tr>
<td>
<%
SQL6 = "SELECT name, url, id FROM links ORDER BY name ASC"
set rs6 = conn.execute(SQL6)
do while not rs6.eof
%>
<TABLE BORDER="0" width="95%"><TR><TD><a href="<%=(rs6(1))%>" target="blank"><%=(rs6(0))%></a>
</TD></TR></TABLE>
<%
rs6.movenext
loop
rs6.close
%>
</td></tr>
</table>
</body>
</html>

og din admin side til:



<%
if request.querystring("function") = "addsearhengine" then
SQL1 = "INSERT INTO links (name, url) VALUES ('"&request("name")&"','"&request("url")&"')"
conn.execute(SQL1)
end if

if request.querystring("function") = "deletefile" then
SQL2 = "DELETE FROM links WHERE id = "&request("deletefile")&""
conn.execute(SQL2)
end if
%>

<html>
<body bgcolor="#FFFFFF">
<BR>
<form name="form1" method="post" action="admin.asp?function=addsearhengine">
<b>Links:</b><br>
<%
SQL1 = "SELECT name, url, id FROM links ORDER BY name ASC"
set rs1 = conn.execute(SQL1)
do while not rs1.eof%>
<table border="0">
<tr>
<td width="500">
<%Response.Write "<a href="""&(rs1(1))&" target=""blank"">"&(rs1(0))&"</a>"%>
</td>
<td width="20"><a href="admin.asp?deletefile=<%Response.Write (rs1(2))%>&function=deletefile">slet</a></td>
</tr>
</table>
<%
rs1.movenext
loop
rs1.close
%>
<b><br><br><br> Tilføj adresse:<br></b>
<table width="90%" border="0"><tr>
<td>Beskrivelse : <b>
<input type="text" name="name">
</b>URL : <b>
<input type="text" name="url" value="http://">
</b><b>
</b><b>
<input type="submit" name="Submit2" value="ok">
</b></td>
</tr>
</table>
<b><b></b><b></b><br></b>
</form>
</body>
</html>

Synes godt om

hojben Novice

30. juni 2002 - 22:52 #14

done, men ved indtastning af nyt link får jeg http://www.healingzonen.dk/add/links.asp?function=addsearhengine og intet nyt under solen..

Synes godt om

crunch Nybegynder

30. juni 2002 - 22:55 #15

<%
if request.querystring("function") = "addsearhengine" then
SQL1 = "INSERT INTO links (name, url) VALUES ('"&request("name")&"','"&request("url")&"')"
conn.execute(SQL1)
end if

if request.querystring("function") = "deletefile" then
SQL2 = "DELETE FROM links WHERE id = "&request("deletefile")&""
conn.execute(SQL2)
end if
%>

<html>
<body bgcolor="#FFFFFF">
<BR>
<form name="form1" method="post" action="admin.asp?function=addsearhengine">
<b>Links:</b><br>
<%
SQL1 = "SELECT name, url, id FROM links ORDER BY name ASC"
set rs1 = conn.execute(SQL1)
do while not rs1.eof%>
<table border="0">
<tr>
<td width="500">
<%Response.Write "<a href="""&(rs1(1))&"" target=""blank"">"&(rs1(0))&"</a>"%>
</td>
<td width="20"><a href="admin.asp?deletefile=<%Response.Write (rs1(2))%>&function=deletefile">slet</a></td>
</tr>
</table>
<%
rs1.movenext
loop
rs1.close
%>
<b><br><br><br> Tilføj adresse:<br></b>
<table width="90%" border="0"><tr>
<td>Beskrivelse : <b>
<input type="text" name="name">
</b>URL : <b>
<input type="text" name="url" value="http://">
</b><b>
</b><b>
<input type="submit" name="Submit2" value="ok">
</b></td>
</tr>
</table>
<b><b></b><b></b><br></b>
</form>
</body>
</html>

-så skulle det virke.

Synes godt om

hojben Novice

30. juni 2002 - 22:55 #16

hmm kan se dit link.. og target virker oz fint nu.. men synes den er ret underlig..

det skal være muligt for besøgende at tilføje ikke slette..

Synes godt om

crunch Nybegynder

30. juni 2002 - 22:57 #17

jamen så kan du jo bare bruge admin siden og fjerne slet funktionen..



<%
if request.querystring("function") = "addsearhengine" then
SQL1 = "INSERT INTO links (name, url) VALUES ('"&request("name")&"','"&request("url")&"')"
conn.execute(SQL1)
end if

if request.querystring("function") = "deletefile" then
SQL2 = "DELETE FROM links WHERE id = "&request("deletefile")&""
conn.execute(SQL2)
end if
%>

<html>
<body bgcolor="#FFFFFF">
<BR>
<form name="form1" method="post" action="admin.asp?function=addsearhengine">
<b>Links:</b><br>
<%
SQL1 = "SELECT name, url, id FROM links ORDER BY name ASC"
set rs1 = conn.execute(SQL1)
do while not rs1.eof%>
<table border="0">
<tr>
<td width="500">
<%Response.Write "<a href="""&(rs1(1))&" target=""blank"">"&(rs1(0))&"</a>"%>
</td>
</tr>
</table>
<%
rs1.movenext
loop
rs1.close
%>
<b><br><br><br> Tilføj adresse:<br></b>
<table width="90%" border="0"><tr>
<td>Beskrivelse : <b>
<input type="text" name="name">
</b>URL : <b>
<input type="text" name="url" value="http://">
</b><b>
</b><b>
<input type="submit" name="Submit2" value="ok">
</b></td>
</tr>
</table>
<b><b></b><b></b><br></b>
</form>
</body>
</html>

Synes godt om

hojben Novice

30. juni 2002 - 22:58 #18

sådan... ville det være kompliceret at indkode banner (ikke opload men links til brugerens eget banner på egen side)

Synes godt om

crunch Nybegynder

30. juni 2002 - 23:05 #19

nej det kommer lidt an på hvad du mener. du kan godt lave en dynamisk img scr, hvis det er det du mener ?



<%
if request.querystring("function") = "addsearhengine" then
SQL1 = "INSERT INTO links (name, url) VALUES ('"&request("name")&"','"&request("url")&"')"
conn.execute(SQL1)
end if

if request.querystring("function") = "deletefile" then
SQL2 = "DELETE FROM links WHERE id = "&request("deletefile")&""
conn.execute(SQL2)
end if
%>

<html>
<body bgcolor="#FFFFFF">
<BR>
<form name="form1" method="post" action="admin.asp?function=addsearhengine">
<b>Links:</b><br>
<%
SQL1 = "SELECT name, url, id FROM links ORDER BY name ASC"
set rs1 = conn.execute(SQL1)
do while not rs1.eof%>
<table border="0">
<tr>
<td width="500">
<a href="<%=(rs1(1))%>" target="blank"><img src="<%=(rs1(0))%>" border="0"></a>
</td>
</tr>
</table>
<%
rs1.movenext
loop
rs1.close
%>
<b><br>
<br>
<br>
Tilføj adresse:<br>
</b>
<table width="90%" border="0">
<tr>
<td>Adresse på dit banner : <b>
<input type="text" name="name" value="http://">
</b>URL : <b>
<input type="text" name="url" value="http://">
</b><b>
</b><b>
<input type="submit" name="Submit2" value="ok">
</b></td>
</tr>
</table>
<b><b></b><b></b><br>
</b>
</form>
</body>
</html>

Synes godt om

hojben Novice

30. juni 2002 - 23:07 #20

Det var meget i den stil, men nu mangler linket's beskrivelse, og hvis brugeren ikke har et banner skal det kun være et tekstlink. ?

Synes godt om

hojben Novice

30. juni 2002 - 23:08 #21

http://www.healingzonen.dk/add/add2.asp

Synes godt om

crunch Nybegynder

30. juni 2002 - 23:12 #22

så skal der lige kodes lidt mere, fordi du skal have et felt i dbén der siger om linket er til billede eller tekst. og du skal lige lave noget kode så man kan vælge mellem indput typerne. jeg har desværre ikke tid til at kode det for dig. desværre.

Synes godt om

hojben Novice

30. juni 2002 - 23:13 #23

Okay finno finno.. starter med denne version med tekstlinket.. takker :)

Synes godt om

crunch Nybegynder

30. juni 2002 - 23:16 #24

det var så lidt. og tak for points.
(:

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS