ANTI spam tagwall
Hej jeg er igang med at lave noget anti-spam på tagwall på hjemmesiden,men, når jeg vil skrive noget og sende op på tagwall med "kontrol-koden", så vil den ikke.
Men, hvis jeg tager "kontrol-koden" væk så kan jeg fint, så det må værer noget med det "kontrol-kode" script;
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if Request.Form("kontrol") = Request.Form("kontrol2") then
ip = Trim(Request.Form("ip"))
tagperson = Trim(Request.Form("tagperson"))
email = Trim(Request.Form("email"))
tagtitel = Trim(Request.Form("tagtitel"))
tag = Trim(Request.Form("tag"))
if tagperson = "" then
Response.redirect("/tagwall/add.asp?tagperson=fejl")
End if
if tag = "" then
Response.redirect("/tagwall/add.asp?tag=fejl")
End if
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM publictw WHERE (ID = 0)"
rs.Open strSQL, conn, 1, 3
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("Gip") = ip
rs("ip") = ip
rs("tagperson") = tagperson
rs("email") = email
rs("tagtitel") = tagtitel
rs("tag") = tag
rs.Update
Response.redirect("/tagwall/tagwall.asp")
End If
rs.Close
Set rs = Nothing
Else
Response.redirect("/tagwall/add.asp?kontrolkode=fejl")
End if
End If
%>
-----------
<%
Randomize
intChoice = Int(Rnd * 10)
Select Case intChoice %>
<% case "0"
Response.Write "<img src='antispam/antispam1.gif' align='middle'><input name='kontrol2' type='hidden' id='kontrol2' value='87qd1'>" 'indsæt citat her
case "1"
Response.Write "<img src='antispam/antispam2.gif' align='middle'><input name='kontrol2' type='hidden' id='kontrol2' value='6mf87'>" 'indsæt citat her
case "2"
Response.Write "<img src='antispam/antispam3.gif' align='middle'><input name='kontrol2' type='hidden' id='kontrol2' value='79bxe'>" 'indsæt citat her
case "3"
Response.Write "<img src='antispam/antispam4.gif' align='middle'><input name='kontrol2' type='hidden' id='kontrol2' value='c24k3'>" 'indsæt citat her
case "4"
Response.Write "<img src='antispam/antispam5.gif' align='middle'><input name='kontrol2' type='hidden' id='kontrol2' value='jgp5a'>" 'indsæt citat her
case "5"
Response.Write "<img src='antispam/antispam6.gif' align='middle'><input name='kontrol2' type='hidden' id='kontrol2' value='l1yp1'>" 'indsæt citat her
case "6"
Response.Write "<img src='antispam/antispam7.gif' align='middle'><input name='kontrol2' type='hidden' id='kontrol2' value='rx4ta'>" 'indsæt citat her
case "7"
Response.Write "<img src='antispam/antispam8.gif' align='middle'><input name='kontrol2' type='hidden' id='kontrol2' value='w5fa9a'>" 'indsæt citat her
case "8"
Response.Write "<img src='antispam/antispam9.gif' align='middle'><input name='kontrol2' type='hidden' id='kontrol2' value='xz86x'>" 'indsæt citat her
case "9"
Response.Write "<img src='antispam/antispam6.gif' align='middle'><input name='kontrol2' type='hidden' id='kontrol2' value='l1yp1'>" 'indsæt citat her
End select %>
<input name="kontrol2" type="hidden" id="kontrol2" value="87qd1;6mf87;79bxe;c24k3;jgp5a;rx4ta;w5fa9a;w5fa9a;xz86x;l1yp1">
</font></font></td>
</tr>
<tr>
<td width="100" align="right" valign="top" nowrap> </td>
<td valign="baseline"><input name="submit" type="submit" style="background-color:rgb(40,61,82); border-width:2; border-color:rgb(49,58,83); border-style:none;" value="Indsæt data - add data">
</td>
</tr>
</table>
nogen som kan finde nogle fejl i dette?
