brugers ip

brug det samme som du hele tiden gør også skal du bare indlægge dette i databasen:
Request.ServerVariables(\"REMOTE_ADDR\")

hvis du ikke forstår det så kom med noget kode, så laver jeg det lige for dig...

<%
dim useraction,fid,action,id,tid,mailme
dim mesbody,name,subject
dim sql_maxid,rs_maxid,maxid
fid=request(\"fid\")
id=request(\"id\")
tid=request(\"tid\")
if id=\"\" then
    action=\"post.asp?action=save\"
else
    action=\"post.asp?action=replay\"
end if
userAction=request(\"action\")
\'response.write useraction
select case userAction
case \"save\"
    call connect()
    sql=\"select * from mestbl\"
    RS.Open sql, Conn, 3, adLockOptimistic
    mesbody=request.form(\"message\")
    name=request.form(\"name\")
    name = replace(name,\"*\",\"\")
    subject=request.form(\"subject\")
    mailme=request.form(\"mailme\")
    \'htmlencode so people can post code
    mesbody=Server.HtmlEncode(mesbody)
    name=Server.HtmlEncode(name)
    subject=Server.HtmlEncode(subject)
    \'insert br when user do
    mesbody = Replace(mesbody, vbCrLf, \"<br>\")
    rs.addnew
    rs(\"name\")=name
    rs(\"subject\")=subject
    rs(\"email\")=request.form(\"email\")
    rs(\"mesdate\")=now()
    rs(\"mesbody\")=mesbody
    rs(\"thread_parent\")=0
    rs(\"thread_id\")=0
    rs(\"forumID\")=request.form(\"fid\")
    rs(\"isChecked\")=mailme
    rs.update
    call close()
    response.redirect \"list.asp?fid=\"&fid
    case \"replay\"
    fid=request.form(\"fid\")
    id=request.form(\"id\")
    mailme=request.form(\"mailme\")
    \'response.write fid & tid & tl\'***debug
    \'adding the replay to table:
    call connect()
    sql=\"select * from mestbl\"
    \'Access does not support a cursor engine so a client cursor must be used
    RS.Open sql, Conn, adOpenStatic, adLockOptimistic
    mesbody=request.form(\"message\")
    name=request.form(\"name\")
    subject=request.form(\"subject\")
    tid=request.form(\"tid\")
    if tid=0 then
        tid=id
    end if
    \'htmlencode so people can post code
    mesbody=Server.HtmlEncode(mesbody)
    name=Server.HtmlEncode(name)
    subject=Server.HtmlEncode(subject)
    \'insert br when user do
    mesbody = Replace(mesbody, vbCrLf, \"<br>\")
    rs.addnew
    rs(\"name\")=name
    rs(\"subject\")=subject
    rs(\"email\")=request.form(\"email\")
    rs(\"mesdate\")=now()
    rs(\"mesbody\")=mesbody
    rs(\"forumID\")=fid
    rs(\"thread_parent\")=id
    rs(\"thread_id\")=tid
    rs(\"isChecked\")=mailme
    rs.update
   
    \'------------------------Send Mail to All \"family\"------------------------
    \'if your server doesnt support the cdonts sending mail just delete the next
    \'3 lines
   
    call maxRec()
    call sendAllFamily(tid,maxid,fid)
    call close()
   
    \'---------------------------------------------------------------------------
    response.redirect \"list.asp?fid=\"&fid
end select
dim requireFldSign
requireFldSign=\"<font color=\'red\'>*</font>\"
response.write \"<HTML><HEAD><link rel=\'stylesheet\' href=\'style.css\'>\"
%>

du skal oprette en kollone der hedder ip i databasen og så skulle koden vidst se sådan her ud:

<%
dim useraction,fid,action,id,tid,mailme
dim mesbody,name,subject
dim sql_maxid,rs_maxid,maxid
fid=request(\"fid\")
id=request(\"id\")
tid=request(\"tid\")
if id=\"\" then
    action=\"post.asp?action=save\"
else
    action=\"post.asp?action=replay\"
end if
userAction=request(\"action\")
\'response.write useraction
select case userAction
case \"save\"
    call connect()
    sql=\"select * from mestbl\"
    RS.Open sql, Conn, 3, adLockOptimistic
    mesbody=request.form(\"message\")
    name=request.form(\"name\")
    name = replace(name,\"*\",\"\")
    subject=request.form(\"subject\")
    mailme=request.form(\"mailme\")
    \'htmlencode so people can post code
    mesbody=Server.HtmlEncode(mesbody)
    name=Server.HtmlEncode(name)
    subject=Server.HtmlEncode(subject)
    \'insert br when user do
    mesbody = Replace(mesbody, vbCrLf, \"<br>\")
    rs.addnew
    rs(\"name\")=name
    rs(\"subject\")=subject
    rs(\"email\")=request.form(\"email\")
    rs(\"mesdate\")=now()
    rs(\"mesbody\")=mesbody
    rs(\"thread_parent\")=0
    rs(\"thread_id\")=0
    rs(\"forumID\")=request.form(\"fid\")
    rs(\"isChecked\")=mailme
    rs(\"ip\")= Request.ServerVariables(\"REMOTE_ADDR\")
    rs.update
    call close()
    response.redirect \"list.asp?fid=\"&fid
    case \"replay\"
    fid=request.form(\"fid\")
    id=request.form(\"id\")
    mailme=request.form(\"mailme\")
    \'response.write fid & tid & tl\'***debug
    \'adding the replay to table:
    call connect()
    sql=\"select * from mestbl\"
    \'Access does not support a cursor engine so a client cursor must be used
    RS.Open sql, Conn, adOpenStatic, adLockOptimistic
    mesbody=request.form(\"message\")
    name=request.form(\"name\")
    subject=request.form(\"subject\")
    tid=request.form(\"tid\")
    if tid=0 then
        tid=id
    end if
    \'htmlencode so people can post code
    mesbody=Server.HtmlEncode(mesbody)
    name=Server.HtmlEncode(name)
    subject=Server.HtmlEncode(subject)
    \'insert br when user do
    mesbody = Replace(mesbody, vbCrLf, \"<br>\")
    rs.addnew
    rs(\"name\")=name
    rs(\"subject\")=subject
    rs(\"email\")=request.form(\"email\")
    rs(\"mesdate\")=now()
    rs(\"mesbody\")=mesbody
    rs(\"forumID\")=fid
    rs(\"thread_parent\")=id
    rs(\"thread_id\")=tid
    rs(\"isChecked\")=mailme
    rs(\"ip\")= Request.ServerVariables(\"REMOTE_ADDR\")
    rs.update
   
    \'------------------------Send Mail to All \"family\"------------------------
    \'if your server doesnt support the cdonts sending mail just delete the next
    \'3 lines
   
    call maxRec()
    call sendAllFamily(tid,maxid,fid)
    call close()
   
    \'---------------------------------------------------------------------------
    response.redirect \"list.asp?fid=\"&fid
end select
dim requireFldSign
requireFldSign=\"<font color=\'red\'>*</font>\"
response.write \"<HTML><HEAD><link rel=\'stylesheet\' href=\'style.css\'>\"
%>

prøver det lige

hvorfor lægger du foresten noget i db\'en 2 gange??

fino..det virker som det skal...tak for det..

ehh, hva mener du med jeg ligger i db twice?

er det ikke forskel på om det er nyt indlæg, og/eller en besvarelse på et indlæg

nåå okay, det er sikkert derfor, jeg forstod ikke helt koden, men det gør jeg nu, jeg vidste ikke helt hvad du brugte det til :)

nu hvor vi har fat i ip.. Er det muligt at holde en bestemt ip fra at kunne skrive et indlæg fx?? Kunne være interessant

det er det sikkert men jeg forstår ikke helt dit spørgsmål :)
(jeg fatter intet idag) :)

hehe...det er mig der skriver snørklet..

jeg prøver igen.

Kan man på en eller anden måde sørge for at en bestemt IP ikke kan skrive i ens forum..
Hvis nu fx. man har en gut fra 192.xxx.xxx.xxx der spammer sit board, kan man så blokere ham fra at skrive derinde på en eller anden måde??

jep, du kan jo lave et tabel i databasen hvor du så indtaster de ip\'er som ikke må skrive også laver du en if sætning der hvor du skal indsætte i databasen!

er det noget du kan hjælpe mig med at få lavet for 100 point tpiil?

har du ICQ??

mit nummer 73543734

yep..finder dig lige