校园天空

标题: 网站内部培训内容2 [打印本页]
作者: 大鸟，飞起来    时间: 2005-12-10 02:18
标题: 网站内部培训内容2

  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
作者: 大鸟，飞起来    时间: 2005-12-10 03:29

  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>
复制代码


作者: 大鸟，飞起来    时间: 2005-12-19 00:59

  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

  18. t1="一二三四五六七八九十"
  19. t2="1234567890"<BR>%>

  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>
复制代码
作者: 香耐儿    时间: 2009-4-10 09:31
标题: 非常好的好贴。。。
非常好的好贴。。。



欢迎光临 校园天空 (http://bbs.xytk.com/) Powered by Discuz! X3.5