中科新闻网进学解构思的好处:ASP题目怎么做
来源：百度文库 编辑：中科新闻网 时间：2024/05/04 07:22:25
<%@ page language="VB" %>
<script runat="server">
sub clsnum(sender as object,e as eventargs)
label1.text=""
end sub
sub bknum(sender as object,e as eventargs)
dim i as integer
i=len(label1.text)
if i>0 then label1.text=left(label1.text,i-1)
end sub
sub calcutlate (byval sender as object, byval e as eventargs)
label1.text=label1.text+ctype(sender,button).commandname
end sub
sub ys_onclick(sender as object,e as eventargs)
dim strop as string
dim i,j as integer
i=len(label1.text)
j=instr(label1.text,"+")+instr(label1.text,"-")+instr(label1.text,"*")+instr(label1.text,"/")
if i>0 then
if j=0 then label1.text=label1.text+ctype(sender,button).commandname
if j=i then label1.text=left(label1.text,i-1)+ctype(sender,button).commandname
end if
end sub
sub dy_onclick(sender as object,e as eventargs)
dim strop as string
dim i,j,sza,szb as integer
i=len(label1.text)
j=instr(label1.text,"+")+instr(label1.text,"-")+instr(label1.text,"*")+instr(label1.text,"/")
if i>=3 and j>0 and j<i then
sza=left(label1.text,j-1)
szb=right(label1.text,i-j)
strop=mid(label1.text,j,1)
select case strop
case "+"
label1.text=cstr(cint(sza)+cint(szb))
case "-"
label1.text=cstr(cint(sza)-cint(szb))
case "*"
label1.text=cstr(cint(sza)*cint(szb))
case "/"
label1.text=cstr(cint(sza)/cint(szb))
end select
end if
end sub
</script>
<html>
<head><title>计算器实例</title>
</head>
<style type="text/css">
<!--
.style1 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
<body>
<form runat=server>
<div align="center">
<table width="175" height="170" border="0">
<tr bgcolor="#0033FF">
<td colspan="4"><div align="center" class="style1">计算器实例</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" colspan="4"><div align="center"><asp:label id="label1" runat=server/></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="19" colspan="2"><div align="center"><asp:button id="bkspace" runat=server text="Backspace" commandname="bk" onclick="bknum"/></div></td>
<td colspan="2"><div align="center"><asp:button id="ce" runat=server text="CE" commandname="cls" onclick="clsnum"/></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="39" height="24"><div align="center"><asp:button id="b7" onclick="calcutlate" runat=server text="7" commandname="7"/></div></td>
<td width="39"><div align="center"><asp:button id="b8" onclick="calcutlate" runat=server text="8" commandname="8"/></div></td>
<td width="39"><div align="center"><asp:button id="b9" onclick="calcutlate" runat=server text="9" commandname="9"/></div></td>
<td width="40"><div align="center"><asp:button id="bjia" onclick="ys_onclick" runat=server text="+" commandname="+"/></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center"><asp:button id="b4" onclick="calcutlate" runat=server text="4" commandname="4"/></div></td>
<td><div align="center"><asp:button id="b5" onclick="calcutlate" runat=server text="5" commandname="5"/></div></td>
<td><div align="center"><asp:button id="b6" onclick="calcutlate" runat=server text="6" commandname="6"/></div></td>
<td><div align="center"><asp:button id="bjian" onclick="ys_onclick" runat=server text="-" commandname="-"/></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center"><asp:button id="b1" onclick="calcutlate" runat=server text="1" commandname="1"/></div></td>
<td><div align="center"><asp:button id="b2" onclick="calcutlate" runat=server text="2" commandname="2"/></div></td>
<td><div align="center"><asp:button id="b3" onclick="calcutlate" runat=server text="3" commandname="3"/></div></td>
<td><div align="center"><asp:button id="bcheng" onclick="ys_onclick" runat=server text="*" commandname="*"/></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center"><asp:button id="b0" onclick="calcutlate" runat=server text="0" commandname="0"/></div></td>
<td><div align="center"><asp:button id="bdian" onclick="calcutlate" runat=server text="." commandname="."/></div></td>
<td><div align="center"><asp:button id="bchu" onclick="ys_onclick" runat=server text="/" commandname="/"/></div></td>
<td><div align="center"><asp:button id="bdeng" onclick="dy_onclick" runat=server text="=" commandname="="/></div></td>
</tr>
</table>
</div>
</form>
</body>
</html>
就是做网站用的,网页编码格式.