Asp bestands en linkcontrole

[Verwijderd]

Hey,

Ik ben bezig met een asp script voor mijn website, waarmee mensen online een link naar een bestand kunnen toevoegen.

nu wil ik het script zo maken dat de toegevoegde bestanden in de databse worden gecontroleerd, zodat ik niet een database krijg met allemaal broken links, en dat het script "ziet" wat voor bestand het is.. bijv. een .zip of .gif of wat dan ook...

Wie o wie kan mij hier verder bij helpen,
kan er namelijk niets over vinden...

Thnx,

Menno

[Verwijderd]

Voor dat eerste kun je terecht op:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6585

en wat dat tweede betreft:

code:

function StripFileExt(sFileName)
        if sFileName = "" Then Exit function
        if InStr(1, sFileName, ".") = 0 Then Exit function
        StripFileExt = Right(sFileName, Len(sFileName) - InStrRev(sFileName, ".") + 1)
    End function

[Verwijderd]

Dank je..

ik ga het eens proberen

En het werkt als een speer.. bedankt man!

[Verwijderd]

Nou,

ik heb de hele dag + avond zitten prutsen met de scripts.
(1) script dat controleerd of the link "up" is &
(2) een script dat de gegevens uit een form in een database plaats..

Ik krijg het niet voor elkaar om dit samen te voegen.

Wellicht ziet iemand de fout direct, ik ben namelijk echt een super newbie op aspgebied.. uberhaupt op het gebied van scripten trouwens..

Please help..

Ik heb dit ervan gemaakt:

code:

<%
    option explicit

Response.Buffer = true

strURL=request.form("url")
    if strURL<>"" Then
    if left(lcase(strURL),7)<>"http://" Then
      strURL="http://" & strURL
        End if
    On Error Resume Next
    Dim objHTTP
    Dim sHTML
    Set objHTTP = Server.CreateObject ("Microsoft.XMLHTTP")
    objHTTP.open "GET", strURL, False
    objHTTP.send
    sHTML=objHTTP.statusText
    if err or sHTML<>"OK" Then
    sTxt="fail"
     else
    sTxt="ok"
     End if
    Set objHTTP=nothing
     else
    sTxt="fail"
     End if
    strFrom=request.ServerVariables("HTTP_REFERER")
    p=instr(1,strFrom,"?")
    if p>0 Then
    strFrom=left(strFrom,p-1) Then
if sTxt = "ok"

Dim artiest,titel,url
Dim pass,website,siteurl
Dim objDC,addRS,sqltext


set objDC = Server.CreateObject("ADODB.Connection")
set addRS = Server.CreateObject("ADODB.RecordSet")
objDC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\www.thareef.com\songs.mdb" 
sqltext = "SELECT * FROM mp3s"
addRS.Open sqltext,objDC,1,3


artiest = Request.Form("artiest")
titel = Request.Form("titel")
url = Request.Form("url")
pass = Request.Form("pass")
website = Request.Form("website")
siteurl = Request.Form("siteurl")

addRS.addnew
addRS("artiest") = artiest
addRS("titel") = titel
addRS("url") = url
addRS("pass") = pass
addRS("website") = website
addRS("siteurl") = siteurl
addRS.update

set addRS = nothing
set objDC = nothing

Response.Redirect "gelukt.asp"

else

Response.Redirect "mislukt.gif"

End if


    %>

Hmz.. dat brengt mij bij: inspringen, wanneer wel en wanneer niet ?

[Crazy D]

Op dinsdag 15 januari 2002 00:47 schreef ThaReef een lap code

1. gebruik asjeblieft

code:

 en

blokken, en spring je code in. Dat leest een heel stuk prettiger (en duidelijker!).
2. Uhh.. zie 1

code:

option explicit

Response.Buffer = true

strURL = request.form("url")
if strURL <> "" Then
    if left(lcase(strURL), 7) <> "http://" Then
      strURL = "http://" & strURL
    End if

En nou jij de rest

[Verwijderd]

niemand ????

kom er echt niet uit als newbie...