number_info.asp

1。超强文件读写锁定

<%
  Function NumberWriteColor(num)
    Select Case num
	  Case 1,2,7,8,12,13,18,19,23,24,29,30,34,35,40,45,46 '红波
	    Response.Write "#FF0000"
	  Case 3,4,9,10,14,15,20,25,26,31,36,37,41,42,47,48  '蓝波
	    Response.Write "#0000FF"
	  Case 5,6,11,16,17,21,22,27,28,32,33,38,39,43,44,49 '绿波
	    Response.Write "#008000"
	End Select
  End Function

  Function NumberBigColor(num)
    Select Case num
	  Case 1,2,7,8,12,13,18,19,23,24,29,30,34,35,40,45,46 '红波
	    Response.Write "red"
	  Case 3,4,9,10,14,15,20,25,26,31,36,37,41,42,47,48  '蓝波
	    Response.Write "blue"
	  Case 5,6,11,16,17,21,22,27,28,32,33,38,39,43,44,49 '绿波
	    Response.Write "green"
	End Select
  End Function

  Function NumberImage(num)
    Select Case num
	  Case 1,2,7,8,12,13,18,19,23,24,29,30,34,35,40,45,46 '红波
	    Response.Write "r.gif"
	  Case 3,4,9,10,14,15,20,25,26,31,36,37,41,42,47,48  '蓝波
	    Response.Write "b.gif"
	  Case 5,6,11,16,17,21,22,27,28,32,33,38,39,43,44,49 '绿波
	    Response.Write "g.gif"
	End Select
  End Function

%>