网站内部培训内容2

大鸟，飞起来

1. 
   
2. <%
   
3. function calc(num1,num2)
   
4. num3=num1+num2
   
5. calc=num3
   
6. end function
   
7. 'a=1
   
8. 'b=2
   
9. 'c=a+b
   
10. 'response.Write(a&"+"&b&"="&c)
    
11. a=1
    
12. b=3
    
13. response.Write(a&"+")
    
14. response.Write(b&"=")
    
15. response.Write(calc(a,b))
    
16. %>
    

复制代码

请将此程序改为计算器，必须使用function

大鸟，飞起来

1. 
   
2. <script language="JavaScript" type="text/JavaScript">
   
3. <!--
   
4. function del()
   
5. {  var bigbird = window.confirm("删除管理员之后不可恢复,确定删除请按“确认”键!");
   
6.    if ( false == bigbird )
   
7.     {      return false;
   
8.      }
   
9. }
   
10. -->
    
11. </script>
    

复制代码

大鸟，飞起来

1. 
   
2. <%
   
3. ' ============================================
   
4. ' 取实际字符长度
   
5. ' ============================================
   
6. Function GetLen(str)
   
7. Dim l, t, c, i
   
8. l = Len(str)
   
9. t = l
   
10. For i = 1 To l
    
11.   c = Asc(Mid(str, i, 1))
    
12.   If c < 0 Then c = c + 65536
    
13.   If c > 255 Then t = t + 1
    
14. Next
    
15. GetLen = t
    
16. End Function
    
17. 
    
18. t1="一二三四五六七八九十"
    
19. t2="1234567890"<BR>%>
    
20. 
    
21. <table border="1" cellspacing="0" cellpadding="0">
    
22.   <tr>
    
23.     <td height="20">名</td>
    
24.     <td>内容</td>
    
25.     <td>len()</td>
    
26.     <td>lenB()</td>
    
27.     <td>GetLen()</td>
    
28.   </tr>
    
29.   <tr>
    
30.     <td width="31">t1</td>
    
31.     <td width="186">
    
32. <%
    
33. response.Write(t1)
    
34. %>
    
35. </td>
    
36.     <td width="105"><%=len(t1)%></td>
    
37.     <td width="105"><%=lenB(t1)%></td>
    
38.     <td width="105"><%=GetLen(t1)%></td>
    
39.   </tr>
    
40.   <tr>
    
41.     <td height="20">t2</td>
    
42.     <td>
    
43. <%
    
44. response.Write(t2)
    
45. %></td>
    
46.     <td><%=len(t2)%></td>
    
47.     <td><%=lenB(t2)%></td>
    
48.     <td><%=GetLen(t2)%></td>
    
49.   </tr>
    
50. </table>
    

复制代码

香耐儿

非常好的好贴。。。