sto implementando un CAPTCHA e più precisamente il bellissimo http://www.tipstricks.org
ora la pagina chge sto facendo è questa:
http://www.iltrogolo.it/attila/coins/traders/post01.asp
problema: come faccio a far si che possa avere un tasto solo che contemporaneamente controlli e il CAPTCHA e se corretto infii il form?
il codice che sto usando è questo:
perdonate la confusione nel codice la parte in questione sta in fondo...
grazie a chiunque mi possa aiutare...
codice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> <% Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 %> <% Function CheckCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("CAPTCHA")) Session("CAPTCHA") = vbNullString if Len(SessionCAPTCHA) < 1 then CheckCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then CheckCAPTCHA = True else CheckCAPTCHA = False end if End Function %> <% If Request("Post")<>"" Then OpenDB con, "GuestBook" '--- determin browser and IP-------------- If Instr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") Then browser = "MSIE" Elseif Instr(Request.ServerVariables("HTTP_USER_AGENT"), "Mozilla") Then browser = "Netscape" Else browser = "Other" End If IP = Request.ServerVariables("Remote_Addr") '---- end -------------------------------- SQL = "INSERT INTO tblGuestbook (fldName, fldCity, fldState, fldCountry, fldRefer, fldMessage, fldEmail, fldHomepage, fldBrowser, fldIP, fldTime, fldDate) VALUES ('" & _ InsertAP(Trim(Request("Name"))) & _ "','" & InsertAP(Trim(Request("City"))) & _ "','" & InsertAP(Trim(Request("State"))) & _ "','" & InsertAP(Trim(Request("Country"))) & _ "','" & Request("Refer") & _ "','" & InsertAP(Trim(Request("Message"))) & _ "','" & InsertAP(Trim(Request("Email"))) & _ "','" & InsertAP(Trim(Request("Homepage"))) & _ "','" & browser & _ "','" & IP & _ "',#" & Time() & _ "#,#" & Date() & "#)" con.execute(SQL) response.redirect "default.asp" End If %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <HTML> <HEAD> <script language="javascript"> var text1; function checklength(i) { var txt; txt=document.frmPost.Message.value; n=txt.length; if (n>i) //i is the maxlength of textarea which we have set to 80 { alert('Text overflow'); document.frmPost.Message.value=text1; return; } text1=document.frmPost.Message.value; } </script> <script language="javascript"> var text2; function checklength2(i) { var txt3; txt3=document.frmPost.Homepage.value; n=txt3.length; if (n>i) //i is the maxlength of textarea which we have set to 80 { alert('Text overflow'); document.frmPost.Homepage.value=text2; return; } text2=document.frmPost.Homepage.value; } </script> <TITLE>POST A MESSAGE</TITLE> <script LANGUAGE="JavaScript"> <!-- HIDE FROM OTHER BROWSERS function validate(theForm) { if (theForm.Name.value == "") { alert("Name required. Thank you."); theForm.Name.focus(); return (false); } if (theForm.Email.value == "") { alert("Email address required. Thank you."); theForm.Email.focus(); return (false); } if (theForm.Message.value == "") { alert("Message required. Thank you."); theForm.Message.focus(); return (false); } if (theForm.Message.value.length > "800") { alert("Message exceded size. Thank you."); theForm.Message.focus(); return (false); } return (true); } // STOP HIDING FROM OTHER BROWSERS --> </script> </HEAD> <BODY bgcolor="#c6c1ff" onload="document.frmPost.Name.focus()" > <dir><dir> <form action="post01.asp" method="post" onsubmit="return validate(this);" name="frmPost"> <table border="2" cellpadding="0" cellspacing="0" bgcolor="#c6c1ff"> <tr> <td align="center" colspan="2"><font face=Verdana,Arial size=3>POST A MESSAGE</font></td> </tr> <tr> <td><font face="TREBUCHET MS,ARIAL,HELVETICA" size="2">Name:</font></td> <td><input type="text" name="Name" size="20"></td> </tr> <tr> <td></td> <td></td> </tr> <tr> <td></td> <td></td> </tr> <tr> <td><font face="TREBUCHET MS,ARIAL,HELVETICA" size="2">Country:</font></td> <td><select size="1" name="Country"> <option selected>Country....</option> <OPTION>AFGHANISTAN </OPTION> <OPTION>ALBANIA </OPTION> <OPTION>ALGERIA </OPTION> <OPTION>VANUATU </OPTION> <OPTION>VATICAN CITY STATE (HOLY SEE) </OPTION> <OPTION>VENEZUELA </OPTION> <OPTION>VIETNAM </OPTION> <OPTION>VIRGIN ISLANDS (BRITISH) </OPTION> <OPTION>VIRGIN ISLANDS (US) </OPTION> <OPTION>WALLIS AND FUTUNA ISLANDS </OPTION> <OPTION>WESTERN SAHARA </OPTION> <OPTION>YEMEN </OPTION> <OPTION>YUGOSLAVIA </OPTION> <OPTION>ZAMBIA </OPTION> <OPTION>ZIMBABWE</OPTION> </select></td> </tr> <tr> <td><font face="TREBUCHET MS,ARIAL,HELVETICA" size="2">Email:</font></td> <td><input type="text" name="Email" size="20"></td> </tr> <tr> <td><font face="TREBUCHET MS,ARIAL,HELVETICA" size="2">Homepage:</font></td> <td><input type="text" name="Homepage" onkeydown="javascript:checklength2(100)" value="http://" size="20"></td> </tr> <tr> <td></td> <td></td> </tr> <tr> <td colspan="2"><font face="TREBUCHET MS,ARIAL,HELVETICA" size="2">Message:</font> <textarea name="Message" onkeydown="javascript:checklength(800)" rows="6" cols="40" wrap="virtual"></textarea></td> </tr> <tr> <td width="152" height="32">CAPTCHA Image</td> <td width="182">[img]aspcaptcha.asp[/img]</td> </tr> <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if CheckCAPTCHA(strCAPTCHA) = true then %> <tr> <td height="37" colspan="2" align="center"><b style="color:#00CC00">Verified (<%=strCAPTCHA%>)[/b]</td> </tr> <% else %> <tr> <td height="37" colspan="2" align="center"><b style="color:#FF0000">Not Verified. Please Retry.[/b]</td> </tr> <% end if end if %> <tr> <td height="66">Write the characters in the image above</td> <td><input name="strCAPTCHA" type="text" id="strCAPTCHA" maxlength="8" /></td> </tr> <tr> <td height="37" colspan="2" align="center"><input type="submit" name="Submit" value="Test Input" /></td> </tr> <tr> <td height="37" colspan="2" align="center">Download v2.0 Example</td> </tr> <tr> <td align="center" colspan="2"><input type="submit" name="Post" value="Post Now"></td> </tr> </table> </form> </dir></dir> </BODY> </HTML>

Rispondi quotando