Formulär som lägger in spamord i databasen

**brorsan** · 2012-03-20, 19:19

Lägger in detta i första inlägget.

**brorsan** · 2012-03-22, 10:45

Jag har försökt sätta ihop kod själv själv men skulle bara behöva veta hur man säger åt koden att läsa en rad i taget och om man ska skriva strRowword.eof som jag gjort i koden?

Sen kommer ju meddelandet kunna innehålla rader som ">? och liknande biter av koder. Ställer det till problem eller fungerar det?

Är sån här inskrivning till databasen case sensitive som default eller behöver man skriva till något för det?

Nån som vet?

Code:

Message = Request.Form("message")
Message = replace(Message, "'", "''")
if Message <> "" then

dim strRownumbertoread

strRownumbertoread = 1

dim strRowword

strRowword = ***?? läs_in_med_nummer_strRownumbertoread_hur_gor_man

do Until strRowword.eof ***?? kan man skriva så

Connect.Execute "INSERT INTO spammertable (spamfield) VALUES ('"& strRowword &"')",,128

strRownumbertoread = strRownumbertoread + 1


Loop


	
Set strRownumbertoread = nothing
Set strRowword = nothing

**brorsan** · 2012-06-05, 13:06

Ingen som vet? Trodde det var en vanlig grej att lägga in listor i databaser.

**Gildebrand** · 2012-06-05, 14:42

Till att börja med, ASP? Lite gammalt...
En snabb googling ger mycket

http://www.google.se/search?q=asp+insert+into+database&ie=UTF-8&oe=UTF-8&hl=sv&client=safari

**brorsan** · 2012-06-05, 14:55

Tack för svar!

Ja jag har en "gammal" och kodmässigt stor asp-sida och det känns synd att kasta bort den för det ligger tusentals uppladdade bilder i den från en era som inga andra sidor har så många såna svenska bilder ifrån så den är lite som ett bildgallerimuseum inom sin nisch. Samtidigt finns det inget ekonomiskt intresse i den så att göra om allt vore en stor förlustaffär och bortkastad tid eftersom den fungerar tillräckligt bra som den är.

Googlesökningen visade ju inte riktigt den sortens funktion som det handlar om här, att läsa in rad för rad från fältet och lägga varje rad i en ny post i databasen. Men det är klart att jag kan ändra i sökorden och leta vidare..

Men det tipset att googla fungerar ju i så fall i varje post i hela webforum.nu så då kan man ju ska stänga webforum.nu och bara göra en startsida som hänvisar till google enligt den logiken. Sparar en massa modereringstid.

**civilpolisen** · 2012-06-06, 11:13

Det är inget fel på ASP!
Det fungerar alldeles utmärkt, om än med vissa begränsningar.
Jag har själv sidor som rullat i 10 år och som mer eller mindre uppdaterar sig själva med hjälp av ASP...

***
Hur som helst.
Jag tyckte det verkade vara en intressant fråga och tänkte man kan räkna antalet radbrytningar.

Detta fungerar:

Code:

<%
'##TEST SPAM
IF request("strSpam") <> "" THEN
myArray = split(request("strSpam"), vbCRLF, -1,1)
response.write "Det är " & UBound(myArray,1) +1 & " rader i din kod."

END IF
%>

Lägg in denna koden på en sida med ett formulär och en "Skicka" -knapp.

Det är i stället för din kod:

Code:

do Until strRowword.eof ***?? kan man skriva så

Nej, man kan inte skriva så.

***
Kolla här för det lilla plutteprogrammet (reference guide), även med hänvisning till hur du får det att fungera i Windows 7 längre ner på sidan.

**civilpolisen** · 2012-06-06, 11:18

Arrayer är 0 baserade. Dvs. första posten är 0. Därför blir det +1 för att skriva ut det korrekta antalet radbrytningar.

Code:

FOR j = 0 to UBound(myArray,1)
    ' ## PETA IN DITT SPAMORD HÄR:
    Connect.Execute "INSERT INTO spammertable (spamfield) VALUES ('"& myArray(j) &"')",,128
NEXT

Formulär som lägger in spamord i databasen

Formulär som lägger in spamord i databasen

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Oderland