??? supponendo che la pagina si chiami prova.asp e che i dati vengano inviati a pagina1.asp
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="prova.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="java-script: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="java-script: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>
<%response.redirect ("prova1.asp")%>
<%
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>
</table>
</form>
</dir></dir>
</BODY>
</HTML>
Rispondi quotando
