Alttaki Kodu uzantısı " .asp " diye kaydedip kullanabilirsiniz.
Buyrun Kodlar ;
**************************************************************************************
<%
if request.querystring("s")=1 then
%>
<% end if %>
<html>
<script language="jscript">
function hesap(gelen)
{
if (gelen=="sil")
{
ilk = document.yaz.inp.value.substring(0,document.yaz.inp.value.length-1);
}
else
ilk=document.yaz.inp.value+(gelen)
document.yaz.inp.value=(ilk)
}
</script>
<STYLE TYPE="text/css">
<!--
.but { font: 12px Verdana, Arial, Helvetica, sans-serif; background: #dddddd}
.tab { background: #f2f2f2; border: #000000}
.tabb { background: #f2f2f2; border: #FFFFFF groove; font-size: <%=request.querystring("font")%>px}
.normal { font: 12px Verdana, Arial, Helvetica, sans-serif; background: #CCCCCC; color: #000033}
.klavye { background: #dddddd; border: #000000 }
-->
</STYLE>
<BODY BGCOLOR="#f2f2f2">
</body>
<form name=yaz>
<DIV ALIGN="CENTER">
<B><textarea class=tabb name=inp rows=10 cols=60>
<%=request.querystring("inp")%>
</textarea>
<br>
<TABLE WIDTH="82%" BORDER="1" CLASS="klavye" HEIGHT="8">
<TR>
<TD WIDTH="84%">
<%
for i=65 to 90
%><button class=normal onclick=hesap("<%=chr(i)%>")><b> <%=chr(i)%> </b></button>
<%
if i=90 then
response.write "<br>"
end if
%>
<% next %>
<%
for s=97 to 122
%>
<button class=normal onclick=hesap("<%=chr(s)%>")><b> <%=chr(s)%> </b></button>
<% next %>
<br>
<center>
<button class=normal onclick=hesap("sil")> <b><--- Sil</b></button>
<button onclick=hesap(" ") class=normal><b>Bosluk</b></button>
<button onclick=hesap(".") class=normal><b>.</b></button>
<button onclick=hesap(",") class=normal><b>,</b></button>
<button onclick=hesap(":") class=normal><b>:</b></button>
</TD>
<TD WIDTH="16%">
<DIV ALIGN="CENTER">
<%
for q=0 to 9
%>
<button class=normal onclick=hesap("<%=q%>")><b> <%=q%> </b></button>
<%
select case q
case 3
response.write "<br>"
case 6
response.write "<br>"
end select
%><% next %>
</DIV>
</TD>
</TR>
</TABLE>
<%
if request.querystring("nasil")="gelismis" then
%> <br>
<%
for w=122 to 255
%>
<button class=but onclick=hesap("<%=chr(w)%>")><b> <%=chr(w)%></b> </button>
<%
if w=255 then
response.write "<br>"
end if
%>
<% next %>
<% end if %>
<br>
<form method="get" action="">
<DIV ALIGN="CENTER">
<BR>
<A HREF="http://www.bekiradiguzel.com">Asp YazıLım | Asp Yazılımı</A>
<br>
<br>
<TABLE WIDTH="31%" BORDER="1" CLASS="but">
<TR>
<TD WIDTH="73%">
<FONT SIZE="2">Font Büyüklügü : <b>(<%=request.querystring("font")%>)</b></FONT>
</TD>
<TD WIDTH="27%">
<SELECT NAME=font SIZE=1>
<OPTION>Seçiniz</OPTION>
<OPTION VALUE="12">12</OPTION>
<OPTION VALUE="14">14</OPTION>
<OPTION VALUE="16">16</OPTION>
<OPTION VALUE="18">18</OPTION>
<OPTION VALUE="24">24</OPTION>
<OPTION VALUE="36">36</OPTION>
</SELECT>
</TD>
</TR>
<TR>
<TD WIDTH="73%">
Klavye Görünüsü : <b>(<%=request.querystring("nasil")%>)</b>
</TD>
<TD WIDTH="27%">
<SELECT NAME=nasil SIZE=1>
<OPTION>Seçiniz</OPTION>
<OPTION VALUE="normal">Normal</OPTION>
<OPTION VALUE="gelismis">Gelismis</OPTION>
</SELECT>
</TD>
</TR>
</TABLE>
<INPUT TYPE="submit" NAME="Submit" VALUE="Degistir">
<BR>
<BR>
</DIV>
</form>
********************************************************************************************
